batch-file - 差し込み印刷を介して Outlook の電子メールを自動化する VBScript

Question

差し込み印刷を使用して、Excel テーブルにある連絡先のリストの各人に自動的に電子メールを送信する VBScript を探しています。

さらに詳しい情報が必要な場合は、お問い合わせください:)

基本的に私はこのコードを持っています

Sub SendMessage(DisplayMsg As Boolean, Optional AttachmentPath)
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment

  ' Create the Outlook session.
  Set objOutlook = CreateObject("Outlook.Application")

  ' Create the message.
  Set objOutlookMsg  = objOutlook.CreateItem(olMailItem)

  With objOutlookMsg
      ' Add the To recipient(s) to the message.
      Set objOutlookRecip = .Recipients.Add("Nancy Davolio")
      objOutlookRecip.Type = olTo

     ' Set the Subject, Body, and Importance of the message.
     .Subject = "This is an Automation test with Microsoft Outlook"
     .Body = "This is the body of the message." &vbCrLf & vbCrLf
     .Importance = olImportanceHigh  'High importance

     ' Resolve each Recipient's name.
     For Each ObjOutlookRecip In .Recipients
         objOutlookRecip.Resolve
     Next

     ' Should we display the message before sending?
     If DisplayMsg Then
         .Display
     Else
         .Save
         .Send
     End If
  End With
  Set objOutlook = Nothing
End Sub

しかし、メールを作成する代わりに、差し込み印刷を使用し、メールをExcelシートに保存されたリストの全員に送信する必要があります。問題は、これを行う方法がわからないので、助けてください素晴らしいことだ！

ありがとう