Discussion :

[lito74]

Bonjour,
Est-il possible de personnaliser l'envoie d'email avec Sendmailcdo. Du genre, mettre le texte en gras, en couleurs, etc...?
Merci pour vos réponses

[Invité]

Bonjour

Jette un coup d'oeil la-dessus : Comment envoyer un mail avec une pièce attachée ?, à priori tu dois pouvoir mettre du Html dans ton message.

Philippe

[Simplifi]

hello
pour mettre du Html dans le corps du message:

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
        Set Message = CreateObject("CDO.Message")
        'initialisation et configuration de la connexion
        Message.Configuration("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        Message.Configuration("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur
        Message.Configuration("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        Message.Configuration.Fields.Update
            With Message
            .From = Emetteur
            .TextBody = Corps_message
            .Subject = Sujet
            .To = Mail_Test
            'envoi du mail avec HTML incorporé dans le corps du mail
            .CreateMHTMLBody Fichier_à_incorporer
            .Send
           End With
           Set Message = Nothing

avec Fichier_à_incorporer = le pathname complet du ficher HTML