使用Access 2016 VBA将XML文件附加到PDF

Sub AttachXMLtoPDF()
    Dim objOutlook As Object
    Dim objMail As Object
    Dim strXMLPath As String
    Dim strPDFPath As String
    
    ' 设置XML文件路径
    strXMLPath = "C:\path\to\your\file.xml"
    
    ' 设置PDF文件路径
    strPDFPath = "C:\path\to\your\file.pdf"
    
    ' 创建Outlook对象
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' 创建新邮件
    Set objMail = objOutlook.CreateItem(0)
    
    ' 添加附件
    objMail.Attachments.Add strXMLPath, 1, 1, "XML File"
    objMail.Attachments.Add strPDFPath, 1, 2, "PDF File"
    
    ' 显示邮件
    objMail.Display
    
    ' 释放对象
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub