Outlook application - mailitem - envoyer un mail avec données sur le Sender - impossible
Bonjour,
je construis un mail avec Outlook.application
Je voudrais aussi mettre dans ce mail :
le nom et prénom de l'expéditeur ainsi que son adresse mail.
Mais rien n'y fait !
Le mail.Sender(sendermail, serderaddressmail, ...) ne donne rien
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Dim oMail As Outlook.MailItem
Set oMail = Application.CreateItem(olMailItem)
dim sender as string
'je teste la valeur par défaut des variables
sender = oMail.Sender & chr(13) & oMail.SenderEmailAddress & chr(13) & oMail.SenderName
msgbox sender
'écran msgbox vide
With oMail
.subject = subject
'.To = recipients
.BCC = recipients
.BodyFormat = olFormatHTML 'olFormatRichText
.HTMLBody = testHTMLBody
.Send
End with |
Merci d'avance pour votre aide
cpf
