Envoi mail automatique VBA

[BigJules]

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

 

[gosselien]

Re : Envoi mail automatique VBA

Bonjour,un début de piste

.Body = "Bonjour, " & Chr(13) & Chr(13) & "ci-joint le tableau." & Chr(13) & Chr(13) & "Cordialement, Monsieur"


P.