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 : 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
Merci d'avance pour votre aide

cpf