VBA mail signature avec image + Mise en forme du texte
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:
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 |
