Excel VBA - открыть файл MSG Outlook, а затем сохранить как черновик - PullRequest
0 голосов
/ 03 мая

У меня есть следующий код. То, что я хотел бы сделать, это открыть файл .msg, изменить его так, как я хочу, и затем сохранить его в папке черновиков (что обычно и происходит, если это новое сообщение электронной почты). Проблема в том, что приведенное ниже просто сохраняет обратно в файл, как и ожидалось ...

Можно ли как-нибудь принудительно сохранить его в черновики? У меня был хороший Google, и я ничего не нашел, поэтому теряю надежду.

Sub TestMsg()
    Dim OL As Object
    Dim Msg As Object

    Set OL = CreateObject("Outlook.Application")
    Set Msg = OL.Session.OpenSharedItem("C:\Users\user\Desktop\Template.msg")
    Msg.Body = Msg.Body = " Test Message"
    Msg.Save

    Set Msg = Nothing
    Set OL = Nothing
End Sub

Спасибо

1 Ответ

1 голос
/ 03 мая

https://docs.microsoft.com/en-us/office/vba/api/outlook.application.createitemfromtemplate

имеет этот пример:

Sub CreateFromTemplate2() 
 Dim MyItem As Outlook.MailItem 

 Set MyItem = Application.CreateItemFromTemplate("C:\statusrep.oft", _ 
                Application.Session.GetDefaultFolder(olFolderDrafts)) 
 MyItem.Save 
End Sub
...