Changer compte par défaut d'Outlook avec VBA Excel

Question

Bonjour,
J'ai écrit une macro dans Excel 2007 pour envoyer des mails avec Outlook.
Je veux que le compte utilisé ne soit pas mon compte par défaut mais le compte d'une association. J'utilise donc le code suivant:
MonMessage.SentOnBehalfOfName = "Mon Association[monassociation@orange.fr]"

Le message se place bien dans Outlook mais l'adresse de l'expéditeur est:
"MonCompteparDéfaut" De la Part de  "Mon Association[monassociation@orange.fr]"

Je voudrais éviter que mon compte par défaut apparaisse, d'où ma question:
Y-a t-il un moyen de masquer mon compte par défaut ?
OU de changer le compte par défaut avec VBA ? (pour éviter de le faire manuellement dans Outlook => avec les risques d'oublis)

Merci de votre aide
Cordialement
Gérard
 
--

msmd69 · Accepted Answer

super, merci à vous, ça fonctionne à merveille avec Outlook sans passer par un mail CDO

cs_Le Pivert · Answer

Bonjour,

Voici un exemple d'envoi de mail avec Outlook.


http://excel-malin.com/codes-sources-vba/envoyer-un-email-avec-excel/ 

Il suffira d'ajouter ceci  dans la Sub EnvoyerEmail:

 'création de l'email
    With oMailItem
        .SentOnBehalfOfName = "monassociation@orange.fr"   'n'accepte que les adresses e-mail
        .To = Destinataire
        .Subject = Sujet

J'ai essayé cela fonctionne!

A adapter a ton code

Changer compte par défaut d'Outlook avec VBA Excel

2 réponses

Votre réponse

Discussions similaires