我正试图在Outlook中将创建的pdf文件附加到我的电子邮件中。除了附件外,其他东西都在工作。
在我的代码下面查找:
Sub sendApplicationMail()
Dim strPath As String
strPath = Environ("USERPROFILE") & "Desktop"
ChDir strPath
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & "CreatedFile.pdf"
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments
With OutLookMailItem
.To = "max.mustermannm@gmail.com"
.Subject = "My Data"
.Body = "Dear team" & "," & vbCrLf & "please find attached my pdf."
.myAttachments.Add strPath & "CreatedFile.pdf"
'.send
.Display
End With
Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
End Sub
.Attachments.Add strPath & "CreatedFile.pdf"
这里不需要myAttachments
测试和工作:
Sub sendApplicationMail()
Dim strPath As String
Dim OutLookApp As Object
strPath = Environ("USERPROFILE") & "Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & "CreatedFile.pdf"
Set OutLookApp = CreateObject("Outlook.application")
With OutLookApp.CreateItem(0)
.To = "max.mustermannm@gmail.com"
.Subject = "My Data"
.Body = "Dear team" & "," & vbCrLf & "please find attached my pdf."
.Attachments.Add strPath & "CreatedFile.pdf"
'.send
.Display
End With
End Sub