Discussion :

[TaleMaker]

Bonjour,

Je souhaite envoyer des mails à des clients depuis une liste excel, mais je ne veux SURTOUT PAS que MON adresse s'affiche, mais que ce soit l'adresse du bureau.... voilà mon code actuel

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
Sub EnvoiFichier()
    Dim MonOutlook As Object
    Dim MonMessage As Object
 
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.createitem(0)
    MonMessage.to = Cells(32, 7) 'destinataire défini en "dur"
    MonMessage.Cc = "xxx@imprimagroup.com" 'Cc défini en dur
 
    MonMessage.Subject = "Projet " & Cells(32, 4) & " > Retour documents" 'Sujet du mail en "dur"
        corps = "Bonjour," 'Début du texte du mail
    MonMessage.body = corps 
    MonMessage.send 
    Set MonOutlook = Nothing '"décharge outlook
End Sub

J'ai tenté naïvement de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.from = "xxx@imprimagroup.com"

mais ça ne marche pas.

Vous auriez une soluce ?

Merci d'avance....

[fred65200]

bonjour,
plutôt que .Body, tu pux utiliser .HTMLBody et formater ton texte en html.
Cordialement