Hello,

I am stumped and would appreciate some direction on how to solve this issue:

Below, Range D62 and Range D63 contain first and last names of email recipients, but does not include their "email" name. I use the following to create the email but I want to have Outlook "Check Names" before sending. Any guidance on how I can accomplish this?

Thank you!!

'Send email message
Dim objOL As Object
Dim objMail As Object
Dim sEmail As String
Dim sEmailColumn As String
Dim sSubject As String
Dim sBody As String
Dim Signature As String
Dim lDataRow As Long
Dim cl As Range
Dim StrTo

StrTo = Range("d61")
sSubject = "Test" & Range("D6") & Space(2) & Range("D7")

sBody = "** TEST **" & vbNewLine & vbNewLine & Range("D46") & _
vbNewLine & vbNewLine & Range("D51") & vbNewLine

'Bind to Outlook
Set objOL = CreateObject("Outlook.Application")

'Create a new email and send it
Set objMail = objOL.CreateItem(0) '0=olmailitem

With objMail
objMail.Display
End With
Signature = objMail.body

With objMail
objMail.To = StrTo
objMail.CC = "[email protected];" & "[email protected];" & Range("d62") & ";" & Range("d63") & ";"
objMail.Subject = sSubject
objMail.body = sBody & vbNewLine & Signature
End With

'Turn on error handling
On Error GoTo Cleanup
Cleanup:
'Release all objects
Set objMail = Nothing
Set objOL = Nothing
On Error GoTo 0