add pdf to every reply or forward

Status
Not open for further replies.

Kurt

New Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
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
 

Kurt

New Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
I found already a solution for adding my pdf when I reply. Stays open: adding my pdf when I forward. Any tips? thank you.

the code I used:
Sub Reply2AllSCQ()

' 2006 January 17 AAW - Written
' ReplyAll to open email requesting sender complete and return the attached SQC file
Dim objOutlook As Outlook.Application
Dim atts As Outlook.Attachments
Dim newAttachement As Outlook.Attachments
Dim objMail As Outlook.MailItem
Dim objItem As Object
Dim strAddress As String
Dim strName As String
Dim strEntryID As String
Dim strMessage As String

strMessage = "Please complete and return the attached SCQ Form." & vbCrLf & vbCrLf & "Thank You."
Set objOutlook = CreateObject("Outlook.Application")
Set objItem = objOutlook.ActiveInspector.CurrentItem
Set objMail = objItem.ReplyAll

CopyBody = objMail.Body
objMail.Body = vbCrLf & strMessage & vbCrLf & vbCrLf & CopyBody
Set newAttachments = objMail.Attachments
newAttachments.Add "C:SCQ.doc", _
olByValue, 1, "SCQ Questionnaire"
objMail.Display

End Sub
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
L Tired of Outlook disabling Adobe PDF Creator add-in Using Outlook 1
C Auto Add a PDF to an outgoing Email, based on a rule Using Outlook 2
E Can't disable nuance pdf add-in Using Outlook 3
K .pdf add-in error Using Outlook 1
O Outlook tasks - Add text column with multiple lines Using Outlook 3
W April 2020 Office 365 Update - Add-Ons fail after Office 365 Update Using Outlook 6
B Task Filter Not Working When I add too many criteria Using Outlook 0
D Add date next to day name in Outlook Today calendar view Using Outlook 1
D iCloud Add-in not working in Outlook 2013 and Outlook 2016 After Windows Upgrade & iCloud Upgrade Using Outlook 2
P Add Paste Unformatted to QAT Using Outlook 1
M Ignore slow add-ins Using Outlook 0
B Add Prefix text to Subject Line Using Outlook 1
Jennifer Murphy Add birthdays to calendar Using Outlook 7
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
P Add, remove, & reorder folder pane Using Outlook 6
R Add 'Company' to Select Names Form Using Outlook 1
A Outlook 2016 Web add-in missing on some machines Using Outlook 9
P Syncing problems with add-ins Using Outlook 3
Mark Foley Cannot enable add-in in outlook 2010 Using Outlook 0
BretAB Is it possible to add a lookup field to a Message form? Outlook VBA and Custom Forms 4
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
iwshim outlook 2013 - I cannot see the "Manage Add-ins" Using Outlook 2
A Add multiple servers "on behalf of" email to "safe senders" list. Using Outlook 1
S Add Exchange Account as Secondary to Existing PST? Exchange Server Administration 1
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3
A Add to Outlook Contacts from email - default view Outlook VBA and Custom Forms 1
P Add a contact to the New Task in Outlook 2016 Using Outlook 2
e_a_g_l_e_p_i Is there a way to add something that is in the "Format Text" tab to the "basic Text" on the message tab Using Outlook 1
B When working on emails in a certain folder, when I hit reply or reply all, I would like it re always reply all and add an email address to send to Outlook VBA and Custom Forms 3
M Macro to add date/time stamp to subject Outlook VBA and Custom Forms 4
O Outlook on Android - add BCC Using Outlook 2
J Execute Add-In Button from VBA Outlook 2016 Outlook VBA and Custom Forms 1
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11
B When I add more search strings to RULES, it is not processing them Using Outlook 3
D Add Tetxbox at form open Outlook VBA and Custom Forms 1
Andrew Quirl Open attachment, manipulate without add-on program? Outlook VBA and Custom Forms 5
B Searching for a Add-In Using Outlook 3
J Add Fillable Fields to Existing Template Outlook VBA and Custom Forms 1
J vb to c# for Outlook add-in. Using Outlook 0
S Send email via SMTP - use transport rules to add to senders inbox (then rule to move to sent items Exchange Server Administration 1
R Outlook add-in to create new contact from an email. Using Outlook 0
twofivepie GTD Netcentrics add-in for 2016 Outlook VBA and Custom Forms 13
D Add all meeting rooms to the meeting request by default Outlook VBA and Custom Forms 0
A add birthday to outlook contacts Using Outlook 1
Tanja Östrand Outlook 2016 - Create Macro button to add text in Subject Outlook VBA and Custom Forms 1
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
R Add Exchange Account to existing POP3 Outlook 2007 Profile Using Outlook 0
Commodore Microsoft Exchange Add-in Using Outlook 2
skyfox Add folders inside a PST. How? Outlook VBA and Custom Forms 3
O Outlook 2016 follow-up flags--how can I add dates? Using Outlook 1
Similar threads


















































Top