I see a lot of items that are helping with sending a new mail with attachment. And it works very well.
But now I like to add a pdf as attachment to every reply or forward I do. Not the ataachments that are in the original mail but a new own attachment. Is there anybody who can help me with this?
The code I use for sending a new mail with attachment is:
Sub Attach()
Const AttFile As String = "C:\pathnamedoc.pdf"
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Set olApp = Outlook.Application
Set Msg = olApp.CreateItem(olMailItem)
With Msg
.Attachments.Add AttFile
.Display
End With
End Sub
Thanks in advance.
Kind regards
Kurt
But now I like to add a pdf as attachment to every reply or forward I do. Not the ataachments that are in the original mail but a new own attachment. Is there anybody who can help me with this?
The code I use for sending a new mail with attachment is:
Sub Attach()
Const AttFile As String = "C:\pathnamedoc.pdf"
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Set olApp = Outlook.Application
Set Msg = olApp.CreateItem(olMailItem)
With Msg
.Attachments.Add AttFile
.Display
End With
End Sub
Thanks in advance.
Kind regards
Kurt