邮件合并电子邮件宏

Question

我正在尝试创建一个宏来将 word 文档发送到每个文档的 4 封电子邮件，每封电子邮件都来自它自己的字段

例如供应商 1 邮件、供应商 2 邮件等，通常每批发送大约 10 个文档，从访问数据库中提取数据，并通过 Outlook 发送电子邮件。

主题行将始终相同，不需要正文。任何帮助将不胜感激，因为这是我第一次真正看过 VBA。 谢谢。

Answer 1

只是为了让你开始，这就是我的做法（之前，在 Word 中设置你的邮件）：

Sub MergeToEmail()
Dim DisPTxT As String

    Dim bDone As Boolean
    bDone = False

    Do While bDone = False

        ActiveDocument.Fields.Update

        With ActiveDocument.MailMerge
            .MailAddressFieldName = "Mail"
            .Destination = wdSendToEmail
            .SuppressBlankLines = True
            ' You can modify the text "Enter Your Subject Here" or
            ' remove the following line if you do not want a subject
            .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