Envoi d'un mail via Outlook par un compte autre que le compte par défaut

Salut;

Je cherche à envoyer un mail par Outlook avec un compte différent du compte par défaut.

Set Mail = CreateObject("Outlook.application")
With Mail.CreateItem(olMailItem)
    'Sélection du compte expéditeur
    For Each Expéditeur In Mail.Session.Accounts
        If Expéditeur.SmtpAddress = "adresse Mail" Then
            .SendUsingAccount = Expéditeur
             Exit For
        End If
    Next Expéditeur

    'Génération du mail
    .Subject = XXXX
    Set objRecipient = .Recipients.Add(Email)
    Body = XXXXX
    .Send
End With

La variable Expéditeur est déclarée comme Account, le compte que je veux utiliser est correctement identifé dans la boucle mais le mail est quand même envoyé avec le compte par défaut.

SI quelqu'un a la solution...

Merci d'avance.

Manu

Bonjour,

Je ne comprends pas la ligne :

If Expéditeur.SmtpAddress = "adresse Mail" Then

Au lieu de "adresse Mail", tu dois avoir une adresse smtp genre "xxxx@xx.xxx".

Daniel

C'est pour ne pas afficher publiquement l'adresse. Mais dans la macro c'est bien une adresse mail fonctionnelle qui est utilisée.

Manu

OK. "Expéditeur" est un objet. Il faut donc mettre :

Set .SendUsingAccount = Expéditeur

(j'aurais dû le voir avant !).

Daniel

Effectivement ça marche mieux.

Merci

Manu