ledzepfred
XLDnaute Impliqué
Bonsoir le forum,
j'ai créé une macro qui permet d'envoyer un email via outlook depuis excel
Le corps du message est définie par une plage de cellule et je souhaitais intégrer la mise en forme de ces cellules (chaque cellule peut avoir une mise en forme différente) dans le corps du message par utilisation de balises HTML.
Je récupère bien la police de chaque cellule ainsi que la taille et la propriété colorindex grâce à une fonction GetRGB
Tout fonctionne parfaitement sauf la partie Select Case.... End Select qui permet d'ajouter les balises <u> et </u> si la cellule est soulignée et les balises <b> et </b> si cette cellule est en gras. Quatre cas sont donc possibles mais ça ne fonctionne pas
En pièce jointe mon code qui se lance depuis le bouton envoi email
Merci de me dire où j'ai commis une erreur
A+
j'ai créé une macro qui permet d'envoyer un email via outlook depuis excel
Le corps du message est définie par une plage de cellule et je souhaitais intégrer la mise en forme de ces cellules (chaque cellule peut avoir une mise en forme différente) dans le corps du message par utilisation de balises HTML.
Je récupère bien la police de chaque cellule ainsi que la taille et la propriété colorindex grâce à une fonction GetRGB
Tout fonctionne parfaitement sauf la partie Select Case.... End Select qui permet d'ajouter les balises <u> et </u> si la cellule est soulignée et les balises <b> et </b> si cette cellule est en gras. Quatre cas sont donc possibles mais ça ne fonctionne pas
Code:
For i = 2 To lig 'boucle définissant le corps du message et son format du coprs du message par des balises HTML
With Sheets("email").Cells(i, 2)
Select Case Sheets("email").Cells(i, 2)
Case [COLOR="Magenta"].Font.Bold = True [/COLOR]And [COLOR="Blue"].Font.Underline = xlUnderlineStyleSingle[/COLOR]
CORPS = CORPS & "<br>[COLOR="Blue"]<u>[/COLOR][COLOR="Magenta"]<b>[/COLOR]<font style='font-family: " & .Font.Name
CORPS = CORPS & ";font-size: " & .Font.Size
CORPS = CORPS & "pt ;' color=" & GetRGB(.Font.Color)
CORPS = CORPS & ">" & .Value & "</font>[COLOR="magenta"]</b>[/COLOR][COLOR="Blue"]</u>[/COLOR]"
Case [COLOR="magenta"].Font.Bold = False[/COLOR] And [COLOR="Blue"].Font.Underline = xlUnderlineStyleSingle[/COLOR]
CORPS = CORPS & "<br>[COLOR="Blue"]<u>[/COLOR]<font style='font-family: " & .Font.Name
CORPS = CORPS & ";font-size: " & .Font.Size
CORPS = CORPS & "pt ;' color=" & GetRGB(.Font.Color)
CORPS = CORPS & ">" & .Value & "</font>[COLOR="Blue"]</u>[/COLOR]"
Case [COLOR="magenta"].Font.Bold = True [/COLOR]And [COLOR="Blue"].Font.Underline = xlUnderlineStyleNone[/COLOR]
CORPS = CORPS & "<br>[COLOR="magenta"]<b>[/COLOR]<font style='font-family: " & .Font.Name
CORPS = CORPS & ";font-size: " & .Font.Size
CORPS = CORPS & "pt ;' color=" & GetRGB(.Font.Color)
CORPS = CORPS & ">" & .Value & "</font>[COLOR="magenta"]</b>[/COLOR]"
Case Else
CORPS = CORPS & "<br><font style='font-family: " & .Font.Name
CORPS = CORPS & ";font-size: " & .Font.Size
CORPS = CORPS & "pt ;' color=" & GetRGB(.Font.Color)
CORPS = CORPS & ">" & .Value & "</font>"
End Select
End With
Next
En pièce jointe mon code qui se lance depuis le bouton envoi email
Merci de me dire où j'ai commis une erreur
A+
Pièces jointes
Dernière édition: