Email 访问Word邮件合并_Email_Merge

Email 访问Word邮件合并

email merge

Email 访问Word邮件合并,email,merge,Email,Merge,我有这个代码来创建一个邮件合并从工作通过按钮点击。它可以工作，但是抛出了一个错误消息：在最后找不到数据库文件。有人能帮忙吗？谢谢 Private Sub Command200_Click() Dim txtMailMergeFile As String Dim objWord As word.Document Dim i As Integer txtMailMergeFile = "C:\Users\dbaulch\Desktop\Doc.docx" Set objWord

我有这个代码来创建一个邮件合并从工作通过按钮点击。它可以工作，但是抛出了一个错误消息：在最后找不到数据库文件。有人能帮忙吗？谢谢

Private Sub Command200_Click()
Dim txtMailMergeFile As String
Dim objWord As word.Document
Dim i As Integer
txtMailMergeFile = "C:\Users\dbaulch\Desktop\Doc.docx"
Set objWord = GetObject(txtMailMergeFile, "Word.Document")
' Make Word visible.
objWord.Application.Visible = True
' Set the mail merge data source
objWord.MailMerge.OpenDataSource _
Name:="C:\Users\dbaulch\Desktop\MRP_Database_LIVE.accdb", _
LinkToSource:=True, _
Connection:="QUERY qryEmailAddressAlerts"
objWord.MailMerge.Execute
' Close any "extra" mail merge documents that may open
For i = 1 To objWord.Application.Documents.Count - 1
objWord.Application.Documents(i).Close wdSaveNo
Next i
End Sub