Bonjour à tous,
J'essaye actuellement d'envoyer un mail sur Outlook via une macro Excel cependant, je n'arrive pas au résultat que je souhaite :/
Voici le code :
Sub ENVOIMAIL()
' envoie de message via outlook
Dim appOutLook As Object
Dim MailOutLook As Object
Dim Fichier As String
Dim rep_fic As String
rep_fic = "C:\Desktop\Ventes\tableau.pdf"
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = "blablabla@mail.fr"
.CC = ""
.Subject = "Tableau des ventes"
.Attachments.Add rep_fic
.Body = "Bonjour, ci-joint le tableau. Cordialement, Monsieur"
.Display
.Send
End With
Set MailOutLook = Nothing
Set appOutLook = Nothing
End Sub
Ma signature automatique Outlook ne s'affiche pas (Cependant, celle-ci s'affiche quand j'utilise le .bodyHTML mais à ce moment là, mon texte disparaît ?). De plus, je n'arrive pas à sauter des lignes au niveau du corps du texte : je souhaiterai un modèle de ce style :
Bonjour,
Ci-joint ...
Cordialement,
Monsieur ....
Dois-je tout écrire au format HTML ?
Merci de votre aide 🙂
Un de mes autres problèmes est que Outlook m'affiche un message de sécurité avant l'envoi du mail ? Comment l'enlever ?
ps: je tiens à préciser que je n'ai pas trouvé le code adapté sur internet et je pense que ce code pourra servir à d'autre personne 🙂
BigJules 🙂
J'essaye actuellement d'envoyer un mail sur Outlook via une macro Excel cependant, je n'arrive pas au résultat que je souhaite :/
Voici le code :
Sub ENVOIMAIL()
' envoie de message via outlook
Dim appOutLook As Object
Dim MailOutLook As Object
Dim Fichier As String
Dim rep_fic As String
rep_fic = "C:\Desktop\Ventes\tableau.pdf"
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = "blablabla@mail.fr"
.CC = ""
.Subject = "Tableau des ventes"
.Attachments.Add rep_fic
.Body = "Bonjour, ci-joint le tableau. Cordialement, Monsieur"
.Display
.Send
End With
Set MailOutLook = Nothing
Set appOutLook = Nothing
End Sub
Ma signature automatique Outlook ne s'affiche pas (Cependant, celle-ci s'affiche quand j'utilise le .bodyHTML mais à ce moment là, mon texte disparaît ?). De plus, je n'arrive pas à sauter des lignes au niveau du corps du texte : je souhaiterai un modèle de ce style :
Bonjour,
Ci-joint ...
Cordialement,
Monsieur ....
Dois-je tout écrire au format HTML ?
Merci de votre aide 🙂
Un de mes autres problèmes est que Outlook m'affiche un message de sécurité avant l'envoi du mail ? Comment l'enlever ?
ps: je tiens à préciser que je n'ai pas trouvé le code adapté sur internet et je pense que ce code pourra servir à d'autre personne 🙂
BigJules 🙂
