Сохранить письмо с расширением *.msg или *.eml

[S@fer]

Добрый день.
Пишу программку на VBA for Access
на Аксесовской форме у меня есть кнопка, при нажатии которой формируется Excel-ский файл и сохраняется в определенную папку.
Затем мне нужно создать письмо с вложением этого файла. и сохранить это письмо с расширением *.msg или *.eml.
Можно ли это сделать?
Сейчас сделал: создается файл, создается письмо с вложением и сразу отправляется. Как можно сохранить это письмо?

Dim name_k, email_k As String
Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String

'Здесь создается Excel файл и сохраняется под определенным именем'

name_k = "SELECT Контрагент.Имя, Контрагент.email FROM Контрагент where (((Контрагент.код)=" & CLng(Kod) & "))"
Set quer = CurrentDb.OpenRecordset(name_k)

Set oMSG = CreateObject("CDO.Message")
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.ru" 'smtp сервер моего ящика'
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Login" 'Логин моего ящика'
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Pass" 'Мой пароль'
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.update
oMSG.To = quer![email] 
oMSG.From = login@mail.ru
oMSG.Subject = "Тема письма"
oMSG.BodyPart.Charset = "windows-1251" 
oMSG.AddAttachment "C:\tabel.xls" 'добавляю вложение'
oMSG.HTMLBody = "Текст письма"

'Вот здесь нужно не отпралять письмо, а сохранить???????'
oMSG.Send

Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing

Set rst = Nothing
Set quer = Nothing

Сохранение нужно, что бы потом вручную открыть это письмо в The Bat если надо отредактировать, а потом отправить.

[Sparxy]

если сильно не заморачиваться то можно просто сделать oMSG.display и в ручную сохранить туда, куда надо.

[EducatedFool]

Сохранение нужно, что бы потом вручную открыть это письмо в The Bat если надо отредактировать, а потом отправить

Так не проще ли тогда создавать письмо средствами TheBAT?

Пример работы с этой программой из VBA можно посмотреть здесь:
http://www.programmersforum.ru/showp...4&postcount=10

[S@fer]

Спасибо.
Пока временно сделал так

oMSG.GetStream.SaveToFile ("C:\mail.eml")

Буду пробовать, что предложил EducatedFool

[S@fer]

to EducatedFool
Для чего необходима строчка?

 For i = 1 To 10000: DoEvents: Next

т.е. (для чего необходима задержка создания письма?)
Если я ее убираю, то письмо создается моментально.

[EducatedFool]

For i = 1 To 10000: DoEvents: Next ' пауза для формирования уникальных имён файлов
    ИмяФайла = ФайлДляСохраненияТекстаПисьма & "." & Replace(Timer, ",", "")
    'Debug.Print ИмяФайла
    Open ИмяФайла For Output As #1
    Print #1, Текст: Close #1    ' пишем текст в файл

Написан же комментарий - для чего эта пауза.
Мне просто неохота было придумывать нормальный способ формирования уникальных имён файлов... и я к имени файла просто приписывал значение таймера (& Replace(Timer, ",", ""))
Без паузы всё работает настолько быстро, что за 10 миллисекунд успевает создаваться несколько файлов с текстами писем...
Самым простым решением с моей стороны было добавление паузы

Конечно, чуточку подкорректировав код, от паузы можно избавиться.

[S@fer]

Спасибо. Немножко переделал для своих целей получилось так

Dim strTO, strSUBJECT, AttachFilename, StrTEXT, StrAttach, cmd As String
Dim ИмяФайла, Текст As String

Текст = "Текст письма" 

strTO = "TO=" & Chr(34) & quer![Email] & Chr(34)
strSUBJECT = "SUBJECT=" & Chr(34) & "Уведомление" & Chr(34)
AttachFilename = "C:\Temp\" & tbNdoc_sale & ".xls"

ИмяФайла = "C:\Temp\" & tbNdoc_sale & ".txt"
      
Open ИмяФайла For Output As #1
Print #1, Текст: Close #1

    StrTEXT = "TEXT=" & Chr(34) & ИмяФайла & Chr(34)
    StrAttach = "ATTACH=" & Chr(34) & AttachFilename & Chr(34)

    cmd = "C:\Program Files\The Bat!\thebat.exe" & " /MAIL;" & strTO & ";" & strSUBJECT & ";" & _
          StrTEXT & ";" & StrAttach & " "    
    CreateObject("WScript.Shell").Exec cmd