Envoi de mail avec VBA Excel et texte enrichi
Bonjour,
J'ai créer il y a peu un outil d'envoi de mail avec VBA Excel, qui fonctionne parfaitement aussi grâce à vous.
J'aimerai y apporter des améliorations, notamment dans un premier temps concernant une textbox.
Pour être plus précis, sans trop en raconter, les mails qui sont envoyé, sont en général préparé dans un premier temps sous Word avec mise en forme, tableau et toussa toussa.
Seulement lorsque VBA joue son rôle afin de créer le mail, il récupère le contenu de la textbox mais sans les mises en forme, donc sous forme de texte brut, ce qui est embêtant.
D'ailleurs, on perd également le format du texte copier/coller lorsqu'il est collé dans la textbox.
Avez-vous une solution ?
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
| Set mail = outlook.CreateItem(olMailItem) 'ouvre un nouvel email, afin d'être édité par la suite
Do While compteur_vide <> 75
If Cells(ligne, 2).Value <> vbEmpty Then
adresse_mail = Cells(ligne, 2) 'variable contenant l'adresse mail destinataire à la ligne en cours
adresse_mail_cc = "blabla@blabla.fr" 'variable contenant l'adresse mail en copie du mail
mail.BCC = adresse_mail & ";" & mail.BCC 'l'adresse mail vers laquelle le mail va être transmis
compteur_vide = 0
Else
If Cells(ligne + 1, 2).Value = vbEmpty Then
compteur_vide = compteur_vide + 1
End If
End If
ligne = ligne + 1 'passe à la ligne suivante
Loop
mail.BodyFormat
mail.Display
mail.CC = adresse_mail_cc 'l'adresse mail vers laquelle le mail va être transmis en copie
mail.Subject = massmailing.sujet_mail.Value 'insère le sujet de la textbox du sujet du mail
chaine = massmailing.corps_mail.Value 'attribut à la variable chaine le contenu de la textbox du corps du mail
mail.HTMLBody = chaine & mail.HTMLBody 'insère le contenu du corps du mail et la signature
Set outlook = Nothing |
Cela est fonctionnel sans la récupération du format du texte.
Merci d'avance !
