Discussion :

[isrdum]

Bonjour

J'ai créé un module dans Excel VBA qui me permet d'envoyer des messages automatiquement à partir d'une liste de courriel

J'ai un texte écrit dans une cellule d'Excel
J'ai aussi un lien dans une autre cellule
Lorsque le message apparait dans Outlook, je veux conserver la même mise en forme de mon texte que celle dans la cellule et que le lien soit en hyperlien à la suite du message

Mon problème c'est que je ne sais pas comment simultanément conserver la mise en forme de mon texte et en plus d'afficher mon hyperlien.

Pour afficher mon message formaté j'utilise ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
With oMailItem
        .To = Destinataire
        .Subject = Sujet
        .BodyFormat = olFormatRichText
        .Body = ContenuEmail
        .Display
End With

Pour afficher mon Hyperlien j'utilise ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
With oMailItem
        .To = Destinataire
        .Subject = Sujet
        .HTMLBody = StrBody & "<a href=""" & Lien & """ >" & Nom & "</a>"
        .Display
End With

J'ai tenté avec ça, mais le texte est écrasé et je ne vois que l'hyperlien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
With oMailItem
        .To = Destinataire
        .Subject = Sujet
        .BodyFormat = olFormatRichText
        .Body = ContenuEmail
        .HTMLBody = StrBody & "<a href=""" & Lien & """ >" & Nom & "</a>"
        .Display
End With

Merci

[Ben_L]

Bonjour,

Ne pourriez-vous pas intégrer à la cellule contenant le texte du mail un caractère spécial (par exemple '¤') puis le remplacer dans le code HTML :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With oMailItem
        .To = Destinataire
        .Subject = Sujet
        .BodyFormat = olFormatRichText
        .Body = ContenuEmail
        .HTMLBody = Replace(.HTMLBody, "¤", "<a href=""" & Lien & """ >" & Nom & "</a>")
        .Display
End With

Cdt

[isrdum]

Merci

Avec votre solution, j'ai été en mesure de régler mon problème!!!

Bonne continuation!