Bonjour à tous !
Après avoir parcouru pas mal de forums , je n'ai pas réussi à résoudre mes 2 problèmes :
1- J’aimerai ajouter la signature de l'entreprise lorsque j'envoie le mail ci-dessous (La signature contient des images, j'ai essayé avec HTMLBody mais les images ne s'affichent pas, une croix apparaît).
2- J'aimerai que certains mots soient en gras ou en couleur quand j'envoie le mail. (Par exemple : Adresse de livraison en rouge et en gras, code ci-dessous).
Merci beaucoup aux personnes qui m'aideront !!!
Voici un petit extrait du code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Dim Contenu As Variant Dim MaMessagerie As Object Dim MonMessage As Object Set MaMessagerie = CreateObject("Outlook.Application") Set MonMessage = MaMessagerie.createitem(0) MonMessage.To = "XXXX@XXXX.fr" MonMessage.CC = "" 'Envoi du mail MonMessage.Subject = "Test mail " Contenu = "Bonjour," Contenu = Contenu & Chr(10) & Chr(13) Contenu = Contenu & "Enlèvement " Contenu = Contenu & Chr(10) & Chr(13) Contenu = Contenu & Enlevement_txb Contenu = Contenu & Chr(10) & Chr(13) Contenu = Contenu & "Adresse de livraison :" Contenu = Contenu & Chr(10) & Chr(13) Contenu = Contenu & Livraison_txb Contenu = Contenu & Chr(10) & Chr(13) Contenu = Contenu & "Cordialement / Best Regards," MonMessage.body = Contenu MonMessage.Send
Partager