Discussion :

[david5786]

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 :

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
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 !

[Jean-Philippe André]

salut,
pour les mises en forme et format particulier, je te recommande l'utilisation du code disponible à paritr de la
http://outlook.developpez.com/faq/?p...VBA_Send_Range

C'est très pratique et répond très bien à ta problématique