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并使用样板电子邮件文本放置了一个工作表，而在另一个工作表中，每个收件人使用＆＃34; merge＆＃34;字段（名称，电子邮件地址等）以及不同列中每个文件的名称。

然后，Excel宏接受此块，然后将它们放入do-while循环并逐个发送电子邮件。此链接将为您提供有关操作的信息：http://www.rondebruin.nl/win/s1/outlook/amail6.htm

Word VBA邮件与附件合并

1 个答案: