Discussion :

[casavba]

Bonsoir à tous et à toutes,

j'ai un code HTML que je voudrais déclaré comme variable au sein d'une macro
j'ai essayé mais ça ne marche pas

Code html :

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

1
2
3
4
5
6
7
8
9
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=70% ALIGN="center">
<TR><TD BGCOLOR="#FFFFB0"><I>La bordure d'un tableau</I></TD><TD BGCOLOR="#FFFFB0" ALIGN="right"><CODE>TABLE</CODE></TD></TR>
<TR><TD BGCOLOR="#CC00CC"><I>La bordure d'un tableau</I></TD><TD BGCOLOR="#CC00CC" ALIGN="right"><CODE>TABLE</CODE></TD></TR>
<TR><TD BGCOLOR="#FFFF00"><I>La bordure d'un tableau</I></TD><TD BGCOLOR="#FFFF00" ALIGN="right"><CODE>TABLE</CODE></TD></TR>
<TR><TD BGCOLOR="#00CC00"><I>La bordure d'un tableau</I></TD><TD BGCOLOR="#00CC00" ALIGN="right"><CODE>TABLE</CODE></TD></TR>
<TR><TD BGCOLOR="#FF33FF"><I>La bordure d'un tableau</I></TD><TD BGCOLOR="#FF33FF" ALIGN="right"><CODE>TABLE</CODE></TD></TR>
<TR><TD BGCOLOR="#6699FF"><I>La bordure d'un tableau</I></TD><TD BGCOLOR="#6699FF" ALIGN="right"><CODE>TABLE</CODE></TD></TR>
<TR><TD COLSPAN=2>faites comme ça...</TD></TR>
</TABLE>

pour être plus clair je voudrais l'inclure dans un .HtmlBody= le code

ya quelqu'un à ma rescousse

[SilkyRoad]

bonsoir

Tu peux tester

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
25
26
27
28
Sub CreationMail_HTML()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem
    'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
 
    Set OlApp = New Outlook.Application
    Set OlItem = OlApp.CreateItem(olMailItem)
 
    With OlItem
        .To = "NomPrenom@mail.fr"
        .Subject = "Le titre du message"
        .HTMLBody = "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=70% ALIGN='center'>" & vbCrLf & _
            "<TR><TD BGCOLOR='#FFFFB0'><I>La bordure d'un tableau</I></TD><TD BGCOLOR='#FFFFB0' ALIGN='right'><CODE>TABLE</CODE></TD></TR>" & vbCrLf & _
            "<TR><TD BGCOLOR='#CC00CC'><I>La bordure d'un tableau</I></TD><TD BGCOLOR='#CC00CC' ALIGN='right'><CODE>TABLE</CODE></TD></TR>" & vbCrLf & _
            "<TR><TD BGCOLOR='#FFFF00'><I>La bordure d'un tableau</I></TD><TD BGCOLOR='#FFFF00' ALIGN='right'><CODE>TABLE</CODE></TD></TR>" & vbCrLf & _
            "<TR><TD BGCOLOR='#00CC00'><I>La bordure d'un tableau</I></TD><TD BGCOLOR='#00CC00' ALIGN='right'><CODE>TABLE</CODE></TD></TR>" & vbCrLf & _
            "<TR><TD BGCOLOR='#FF33FF'><I>La bordure d'un tableau</I></TD><TD BGCOLOR='#FF33FF' ALIGN='right'><CODE>TABLE</CODE></TD></TR>" & vbCrLf & _
            "<TR><TD BGCOLOR='#6699FF'><I>La bordure d'un tableau</I></TD><TD BGCOLOR='#6699FF' ALIGN='right'><CODE>TABLE</CODE></TD></TR>" & vbCrLf & _
            "<TR><TD COLSPAN=2>faites comme ça...</TD></TR>"
 
        .Display
        '.Save
        '.Send
    End With
 
    Set OlItem = Nothing
    Set OlApp = Nothing
End Sub

bonne soirée
michel

[casavba]

Merci Michel
c'était une question de guillemets.