Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Envoi Mail : changer l'expéditeur

juju_69

XLDnaute Occasionnel
Bonjour à tous,

Pour une fois c'est moi qui demande

J'utilise un code pour l'envoi de mail qui est celui-ci :
Code:
Dim ol As Object
Dim olmail As Object
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.CreateItem(0)
    With olmail
        .To = "toto@test.fr"
        .Subject = "objet"
        .Body = "Corps"
        .send
        End With

J'utilise Outlook avec plusieurs boîtes Mails (j'ai ma boîte principal et un accès à d'autres boîtes partagées). Ce que je souhaiterai c'est qu'à l'envoi du mail par Excel, l'expéditeur ne soit pas celui de ma boîte par défaut mais un des autres. J'ai testé .from = "Titi@test.fr" mais çà ne fonctionne pas.

A noter que je peux le faire en dehors d'Excel en affichant dans le mail "De" et en indiquant l'adresse de l'expéditeur que je souhaite.

Merci à tous

Juju
 

Discussions similaires

Réponses
2
Affichages
533
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…