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
Merci d'avance pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
cpf
Partager