Gestion ObjMail

escouger

XLDnaute Occasionnel
Bonjour,
Voici le code que j'ai écrit dans le but de générer un mail:
Je n'arrive pas à faire en sorte de l'expéditeur soit celui que je désire soit "es.ged@orange.fr".
L'instruction .FROM n'a pas d'effet
La petite boucle pour recherche "es.ged@orange.fr" dans le bon item du
ObjOutlook.Session.Accounts.Item(n) non plus.
Quoique que je fasse l'expéditeur généré dans le mail est toujours le même, soit mon adresse mail habituelle "scaraboux@orange.fr"!
Pouvez-vous m'aider à forcer un expéditeur pour le mail généré qui soit es.ged@orange.fr?
Merci d'avance de votre aide.

With oBjMail
.From = "es.ged@orange.fr" 'expediteur "semble ne servir à rien
.To = nmailx ' le destinataire
.Subject = messag1 ' l'objet du mail
.Body = messag2 'le corps du mail ..son contenu
.Attachments.Add Nom_Fichier
' .Attachments.Add nom_fichierpdf
.Display ' Ici on peut supprimer pour l'envoyer sans vérification

zitem = 1
zitemok = 0

While zitem < ObjOutlook.Session.Accounts.count

If ObjOutlook.Session.Accounts.Item(zitem).SmtpAddress = "es.ged@live.fr" Then
zitemok = zitem
zitem = ObjOutlook.Session.Accounts.count + 1
End If
zitem = zitem + 1
Wend
If zitemok = 0 Then
.SendUsingAccount = ObjOutlook.Session.Accounts.Item(1) "semble ne servir à rien
exped = ObjOutlook.Session.Accounts.Item(1)
Else
.SendUsingAccount = ObjOutlook.Session.Accounts.Item(zitemok) "semble ne servir à rien
exped = ObjOutlook.Session.Accounts.Item(zitemok)
End If


.Send
End With
 

escouger

XLDnaute Occasionnel
Merci pour cette réponse.
J'ai appliqué ce qui était dit, mais malheureusement cela n'a rien changé à l'adresse de l'expéditeur du mail.
SentOnBehalfOfName : Sans effet
SendUsingAccount : Sans effet (j'ai mis Item(3)) mais c'est toujours l'adresse mail de l'item(1) qui est considérée.
Office est la version 2013 contenant Excel et Outlook.
Peut-être sauriez vous comment faire en sorte (probablement dans les params de Outlook) que l'adresse qui correspond à Item(3) dans mon installation soit placée en item(1) ?
J'ai déplacé mes comptes dans Outlook, mais cela n'a pas changé dans les Item(?)
Dans le panneau de config. je n'ai pas trouvé de solution non plus.
Merci
 

Yurperqod

XLDnaute Occasionnel
Bonjour à tous

escouger
Pourtant quand on traduit avec Google
"Si vous souhaitez envoyer un autre compte, puis votre compte de messagerie par défaut dans Outlook 2007-2016,
vous pouvez utiliser SendUsingAccount,
ceci est ajouté au modèle d'objet dans Outlook 2007"

Comme je n'ai qu'un seul compte Outlook, je ne peux pas pas faire de test.

Il y a surement d'autres membres du forum qui ont plusieurs comptes et qui pourraient tester.
 

Discussions similaires