Word VBA邮件与附件合并

Question

我一直在努力做Word VBA邮件合并，但我设法得到了这个权利，现在我想添加一个.xls文件到每一个合并的文件，但似乎无法得到它。

到目前为止我的代码：

Sub SendMerge() 

    Dim BLN As Boolean 
    BLN = False 
    Do While BLN = False 

     ActiveDocument.Fields.Update 

     With ActiveDocument.MailMerge 
      .MailAddressFieldName = "EMail" 
      .Destination = wdSendToEmail 
      .SuppressBlankLines = True 
     .MailSubject = "Samedi 26 Avril 2014" 
     With .DataSource 
      .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord 
      .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord 
     End With 
     .Execute Pause:=False 
    End With 

    If ActiveDocument.MailMerge.DataSource.ActiveRecord = _ 
     ActiveDocument.MailMerge.DataSource.RecordCount Then 
     bDone = True 
    End If 
    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord 
Loop 
End Sub 

Answer 1

我也有类似的问题，但采取了不同的方法。

我没有使用Word，而是使用了Excel，并使用样板电子邮件文本创建了一个工作表，而在另一个工作表上，每个收件人使用“合并”字段（名称，电子邮件地址等）以及每个文件在不同的列中。

然后，Excel宏接受此块，然后通过一个do-while循环将它们逐个发送。这个链接会给你做什么的骨头：http://www.rondebruin.nl/win/s1/outlook/amail6.htm