outlook-Automatically Insert Recipient Name from To Field

[Trevor3007]

hi,

i know this is possible as i have seen it, but I cannot now find it on the web ( some very near to, but not actual)

From the To: field bill.james@riddle.com

and in the body of message

the VB will automatically put in

Hello bill, (including "," )

This would be ran from a macro, can someone much much cleaver than I, send me the applicable VB code please

 

[Domenic]

Have you considered creating a template email for this recipient?

 

[Trevor3007]

Have you considered creating a template email for this recipient?

hi Domenic,
yes I have, but I have over 1500 to do and cannot multi send or bcc. each have to have a 'individual' email sent to them with in the body of the message

hi 'name'

thanks anyhoo

 

[Domenic]

In that case, you'll need to provide additional information, explaining exactly how you want the process to unfold, and then someone will likely be able to help.

Cheers!

 

[Trevor3007]

ok thank you.

from the the example above, copy jonathan

into the body of the message and after

Hi ,

so it will look like

Hi jonathan ,

hoping this helps & thanks again.

 

[Domenic]

Unfortunately, you haven't added any new information, so it's unclear as to how you want the process to unfold. Are you running the macro from Excel or Outlook? Are you creating a new email or do you want that information copied to an existing and active email?

Here's a macro that you can run from Excel. It simply creates a new email, fills in the relevant fields, and displays the email...

Sub Insert_Recipient()

    Dim outlookApp As Object
    Set outlookApp = CreateObject("Outlook.Application")
    
    Dim outlookMailItem As Object
    Set outlookMailItem = outlookApp.CreateItem(0)
    
    With outlookMailItem
        .to = "bill.james@riddle.com"
        .body = "Hi Bill," & vbCrLf & vbCrLf
        .display
        '.send
    End With
    
    Set outlookMailItem = Nothing
    Set outlookApp = Nothing

 

[Trevor3007]

thanks.. sorry for not .

(may bad) I should of also stated that the VB has to run from outlook as the excel spreadsheet I am using is on a shared platform & using VB on it causes issues. ?

 

[Domenic]

In that case, you can change it to the following...

Sub Insert_Recipient()

    Dim theMailItem As MailItem
    Set theMailItem = Application.CreateItem(olMailItem)
    
    With theMailItem
        .To = "bill.james@riddle.com"
        .Body = "Hi Bill," & vbCrLf & vbCrLf
        .Display
        '.send
    End With
    
    Set theMailItem = Nothing
    
End Sub

 

[Trevor3007]

Many I will give it test Thursday and advise u soon as .

 

[Trevor3007]

hi,
I could not wait until Thursday to test.

Ran the VB , but it changes the the recipient name & changes it to whats in the VB (bill.james@riddle.com)


and in the body of the message

inserts "Hi Bill,"