Email

[Hermione]

Hi

I want when sendins an email to display the name of the receiver
I tryed : ReceivedByName but it's not working

This is my code:

Dim objOLMail As Outlook.MAPIFolder
Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objOlMailItem As Outlook.MailItem

Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objOLMail = objNameSpace.GetDefaultFolder(olFolderOutbox)

'Create email
With objOLMail.Items.Add
.To = sEmail
.ReceivedbyName = sName
.Subject = sSubject
.HTMLBody = sMessage
.Send
End With

Set objOLMail = Nothing
Set objNameSpace = Nothing


Thanks