Auto Add a PDF to an outgoing Email, based on a rule

[CJD]

Hello

I would like to have a few PDF files and based on a keyword in the body of an outgoing Outlook message for the appropriate PDF to be autoattached

eg I might have
Audi.pdf
BMW.pdf
Toyota.pdf

in the outgoing email I would have a 'code string' for instance eg *audinews*

When this is seen Audi.PDF is auto attached


I would only ever have a case where one unique string would attach per email.

If there was a magic wa y to remove the string *audinews* from the emal body that would be ideal but not essential.


I have a few other requirements such as the Subject line changing based on the string - but the PDF auto attach is the key requirement

Could anyone recommended either
1) A Paid for tool - as I would like this to be simple for staff to manage
2) If its Macro based, any pointers to snippets of code would be greatly appreciated

Kind Regards

 

[Diane Poremsky]

I don't recall any paid apps that would do this, but it is doable using an itemsend macro - use Select case to match the keywords and field changes. A very basic itemsend macro is here - Add attachments and set email fields during a mail merge to email a select case example is at Using Arrays in Outlook macros

 

[Diane Poremsky]

It sounds like more fun that real work. This is one way of doing it -

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strCar As String, strFile As String, strKey As String
Select Case True
    Case InStr(LCase(Item.Body), "audinews")
        strCar = "Audi"
        strKey = "audinews"
        strFile = "C:\Users\drcp\Documents\Insert Text\file1.txt"
    Case InStr(LCase(Item.Body), "bmwnews")
        strCar = "BMW"
       strFile = "C:\Users\drcp\Documents\Insert Text\file2.txt"
        strKey = "bmwnews"
    Case InStr(LCase(Item.Body), "fordnews")
        strCar = "ford"
        strFile = "C:\Users\drcp\Documents\Insert Text\file2.txt"
        strKey = "fordnews"
End Select

With Item
    .Body = replace(.Body, strKey, strCar)
    .Subject = strCar & ": " & Item.Subject
    .Attachments.Add strFile
    .Save
End With

End Sub