Microsoft 365 Excel vers outlook avec .From

[carlos]

Bonjour,
je réutilise ce code qui marche bien mais qui me met toujours dans outlook en tant qu' expediteur mon adresse principale :
Comment lui imposer une autre adresse mail ?
With olmail
Message = "Concerne " & Range("B" & i + 3).Value
.From "toto@free.fr" ' ne marche pas
.To = Mails '& "rrr"
'Affiche le nom comme objet du message
.Subject = "Récapitulatif de "

Merci et bonne journée
Carlos

 

[zebanx]

Bonsoir Carlos, le forum

Je n'ai pas testé mais le dernier fil semble apporter une solution.
A nous dire svp si cela fonctionne😉

[XL-2010] Envoyer un email From (Expediteur ) - Macros et VBA Excel

Dans mon petit code d'envoi de mail en VBA, j'aimerai changer lexpéditeur qui est mon edresse personnelle par l'adresse générique de mon service. (je précise que cela fonctionne lorsque j'envoie un message

www.developpez.net

Bonne soirée, xl-ment
zebanx

 

[carlos]

Bonjour Zebanx,
J'ai remplacé .From par .SentOnBehalfOfName = "adressedeservice@masociete.fr" mais cela n'a pas marché. Le code est reconnu mais l'adresse ne change pas.
Je dois voir pour changer directement dans outlook le mail par defaut.
Merci

 

[carlos]

Bonjour ca a marché ensuite en modifiant dans outlook :
Fichier/parametre du compte/Fichier de données. j'ai mis par defaut le compte souhaité.
Bonne journee

 

[carlos]

Re
en faite ca n'a pas marché réellement car l'adresse de l'expéditeur est bien mise en destinataire sauf qu'il ne l'envoie pas. Et pourtant l'adresse de l'expediteur est bonne

 

[zebanx]

Bonjour Carlos et le forum,

Merci pour ces précisions.
A voir avec un responsable informatique interne ou d'autres précisions de membre mais de prime abord il ne me semble pas non plus incongru de constater que je ne peux pas envoyer un mail à n'importe qui en utilisant l'adresse d'un autre compte de messagerie en tout cas si je n'ai pas les droits 😉.
J'espère que vous aurez une réponse finalisant votre demande.

Bonne journée, xl-ment
zebanx