編集、我々は現在で満たされたすべてのテンプレートのテキストと件名、受信者、メッセージ本体と、自動的にVBAを使用してExcelで作成された電子メールを持っているシステム

Question

をファイルに電子メールを送信して保存します。

Sub CreateMail(Optional sFile As String = "") 
'Create email to send to requestor with attachment sFile 

'Declarations 
    Dim app As Outlook.Application 
    Dim msg As Outlook.MailItem 
    Dim send_to As Recipient 
    Dim send_tos As Recipients 

'Initiations 
    Set app = CreateObject("Outlook.Application") 
    Set msg = app.CreateItem(olMailItem) 
    Set send_tos = msg.Recipients 
    Set send_to = send_tos.Add("receiver@email.com") 
    send_to.Type = 1 

'Create message 
    With msg 
     .SentOnBehalfOfName = "sender@email.com" 
     .Subject = "This is the email subject" 
     .HTMLBody = "This is the email body" & vbCrLf 
     'Resolve each Recipient's name. 
      For Each send_to In msg.Recipients 
       send_to.Resolve 
      Next 
     If Len(sFile) > 0 Then 
      .Attachments.Add sFile 
     End If 
     .Display 
    End With 

End sub 

をいくつかの手動変更を行った後、作成された電子メールに送信して、ファイルシステム上のフォルダに自動的に（Outlookの通常の送信フォルダに加えて）コピーを保存します。 Excel VBA内でこれをすべて実行する方法はありますか？

Outlook VBAを使用している可能性がありますが、フォルダはExcelで定義されているため、1つのファイルにコードをまとめておきたいと思います。

Answer 1

電子メールを送信するコードは何ですか？これは、Excel VBAモジュールで私の作品：

Dim appOutLook As Outlook.Application 
Dim MailOutLook As Outlook.MailItem 
Set appOutLook = CreateObject("Outlook.Application") 
Set MailOutLook = appOutLook.CreateItem(olMailItem) 
With MailOutLook 
    .BodyFormat = olFormatRichText 
    .To = "email address" 
    .Subject = "Test" 
    .HTMLBody = "Test " & Now 
    .DeleteAfterSubmit = True 'to not retain in sent folder 
    .Display 
    .SaveAs "C:\filepath\Test.txt", 0 
' .Send 
End With 

しかし、本当のトリックは、ファイルを保存する前に、電子メールの編集を許可されると思います。これまでのところ解決策を見ていない。残念ながら、コード実行はメッセージウィンドウが開いている間は一時停止しません。 Officeは、コードの実行を一時停止するダイアログモードでAccessにフォームを開くなど、Officeが統合された一連のアプリケーションであるはずなので、一時停止を望んでいました。

Answer 2

Excelのコードのみで、SentItemsフォルダを監視します。

Utilizing Outlook Events From Excel

ユニークIDからのメールを確認してください。

一意のIDは、件名や本文に含めることができます。

PR_SEARCH_KEYに一意のIDを保存することができます。 How, can get the exact sent Email from Sent Items folder?とHow to uniquely identify an Outlook email as MailItem.EntryID changes when email is moved