Gestion ObjMail

[escouger]

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

 

[Yurperqod]

Bonjour à tous

escouger
Je me permets de te conseiller de lire ce site en anglais
et pour ta question, cette page
https://www.rondebruin.nl/win/s1/outlook/account.htm

 

[escouger]

Bonjour à tous

escouger
Je me permets de te conseiller de lire ce site en anglais
et pour ta question, cette page
https://www.rondebruin.nl/win/s1/outlook/account.htm

 

[escouger]

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]

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.