Dim Outlook As Outlook.Application
Dim AttachmentPath
Dim TemplateFile As String
Dim objOutlookAttach
Dim Mail As MailItem, DestFolder As MAPIFolder

Set Outlook = New Outlook.Application
Set DestFolder = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts)
Set Mail = CreateItem(olMailItem)

With Mail
.To = "test@test.ru"
.Subject = "test"
'Сюда нужно считать файл (MyTest.txt): 
.HTMLBody = ""
.FlagStatus = olFlagMarked
.Importance = olImportanceHigh  'Высокая важность
' вложение файла.
AttachmentPath = "U:\OutputReport\Заказ1.snp"
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If
AttachmentPath = "U:\OutputReport\Заказ2.snp"
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If
.Display
End With
Set Outlook = Nothing