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
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