escouger
XLDnaute Occasionnel
Bonjour,
Dans Excel 2013, j'ai écrit le code suivant en VBA, destiné à envoyer un mail.
Dans Outlook 2013 je dispose de plusieurs comptes, mais je souhaiterai que le mail contienne toujours le même expéditeur.
Ayant constaté que le code plantait parfois, mais pas systématiquement, j'ai essayé de voir les différences de valeurs de zones entre les cas qui fonctionnent let ceux ne fonctionnant pas.
J'ai constaté que les cas qui fonctionnaient portait l'expéditeur du mon premier compte Outlook, et ceux qui plantaient portaient le second compte Outlook.
Dans mon code je n'avais pas de gestion de l'expéditeur.
J'ai donc ajouté la ligne contenant .from pour forcer mon premier compte outlook comme expediteur.
Malheureusement cette ligne .from ne semble pas correcte.
Sauriez-vous me dire comment forcer l'expéditeur à une valeur unique, que je pourrais lui indiquer et qui serait en fait celle de mon premier compte Outlook?
Voici mon VBA
Sub Envoyer_Mail_Outlook(Nom_Fichier, nom_fichierpdf, nmailx)
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
With oBjMail
.From = "aaaaxxxx@orange.fr" 'expediteur '=============Cette ligne n'est pas acceptée
.To = nmailx ' le destinataire
.Subject = messag1 ' l'objet du mail
.Body = messag2 'le corps du mail ..son contenu
.Attachments.Add Nom_Fichier
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.Send
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub
Dans Excel 2013, j'ai écrit le code suivant en VBA, destiné à envoyer un mail.
Dans Outlook 2013 je dispose de plusieurs comptes, mais je souhaiterai que le mail contienne toujours le même expéditeur.
Ayant constaté que le code plantait parfois, mais pas systématiquement, j'ai essayé de voir les différences de valeurs de zones entre les cas qui fonctionnent let ceux ne fonctionnant pas.
J'ai constaté que les cas qui fonctionnaient portait l'expéditeur du mon premier compte Outlook, et ceux qui plantaient portaient le second compte Outlook.
Dans mon code je n'avais pas de gestion de l'expéditeur.
J'ai donc ajouté la ligne contenant .from pour forcer mon premier compte outlook comme expediteur.
Malheureusement cette ligne .from ne semble pas correcte.
Sauriez-vous me dire comment forcer l'expéditeur à une valeur unique, que je pourrais lui indiquer et qui serait en fait celle de mon premier compte Outlook?
Voici mon VBA
Sub Envoyer_Mail_Outlook(Nom_Fichier, nom_fichierpdf, nmailx)
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
With oBjMail
.From = "aaaaxxxx@orange.fr" 'expediteur '=============Cette ligne n'est pas acceptée
.To = nmailx ' le destinataire
.Subject = messag1 ' l'objet du mail
.Body = messag2 'le corps du mail ..son contenu
.Attachments.Add Nom_Fichier
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.Send
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub