retranscription de code HTML dans la création d'un mail en VBA

**mgascult** · 27/06/2024, 10h54

Bonjour à Tous,

Je me suis lancé dans la création d'un outil qui demande des compétences diversifiées que je ne connais pas mais je tente souhaitant faire quelque chose de bien.

Pour le moment mon mail est en préparation avec le début de code ci-dessous.

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
29
30
31
32
Dim OutApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Recipient
Dim Recipients As Recipients
 
code en amont....... 
 
Set OutApp = CreateObject("Outlook.Application")
Set objOutlookMsg = OutApp.CreateItem(olMailItem)
 
'destinataire
Set Recipients = objOutlookMsg.Recipients
Set objOutlookRecip = Recipients.Add(sSQL) 'mails des destinataires
 
'copie
    objOutlookMsg.CC = sSQL1 'mails des copies
 
objOutlookRecip.Type = 1
 
'expéditeur
objOutlookMsg.SentOnBehalfOfName = "toto@free.com"  ' insertion de l'adresse expéditrice
 
'niveau d'importance
objOutlookMsg.Importance = olImportanceHigh
 
'objet du mail
objOutlookMsg.Subject = " Planning d'astreinte de la semaine du : " & Vdate_debut & " au " & Vdate_fin ' objet avec intégration des éléments
 
'création du corps de texte
 
 
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "Bonjour<br>"

mais je souhaiterai présenter mon mail sous le forme ci-dessous que j'ai eu du mal à créer en HTML.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
<!--Création du tableau du mail du lundi-->
<font color="blue"> Bonjour,</font>
<br />
<br />
<br />
<br />
<font color="blue"> Veuillez trouver, ci-dessous, le planning d’astreinte du <b > "insertion d'une variable" au "insertion d'une variable" <b /> (jusqu’à 8h00). </font> <br />
<br />
<font color="red"> <b > <u >Attention</u> côté Filière Immobilière l’astreinte débute le "insertion d'une variable" (8h00). <b /> </font> <br />
<br />
<font color="red"> <b > <u >Attention :</u> le périmètre DOOR ne fait plus partie du périmètre DIR, pour toutes demandes d’accès pour ce périmètre merci d’avance de contacter les équipes concernées. <b /> </font> <br />
<br />
<font color="blue"> Merci de bien vouloir nous confirmer la bonne prise en compte de ces informations. </font> <br />
<br />
<!--insertion du tableau-->
<table border="1">
	<tr>
		<th bgcolor="rgb(0,255,0)"> <font color="white">Périmètres</font></th> 
		<th bgcolor="rgb(0,255,0)"> <font color="white">Filière Immobilière<br /><font size="2">(XXXX/XXX)</font></th> 
		<th bgcolor="rgb(0,255,0)"> <font color="white">Correspondant Alerte - Continuité d’activité<br /><font size="2">(xxxx/xxx/xxx)</font></th> 
	</tr>
	<tr>
		<td bgcolor="AD D8 E6"> <font color="19 19 70"> <b > A contacter en cas de <b /> </font></td> 
		<td><font color="blue">Demande d’accès aux locaux<br /><font size="4">Incidents d’exploitation immobilière</font></td>
		<td><font color="blue">Incidents majeurs IT <br />Autres incidents majeurs de continuité d’activité <br /> (indisponibilité d’immeuble, incendie, inondation,<br /> panne électrique majeure)  </font></td>
	</tr>
	<tr>
		<td bgcolor="AD D8 E6"> <font color="19 19 70"> <b > Correspondant<b /> <font color="red">*  </font></td> 
		<td><font color="red">"insertion d'une variable"<br />Astreinte à partir du:"insertion d'une variable"</font></td>
		<td><font color="red">"insertion d'une variable"<br /> </font></td>
	</tr> 
		<tr>
		<td bgcolor="AD D8 E6"> <font color="19 19 70"> <b > Téléphone<b /> <font color="red">*   </font></td> 
		<td><font color="red">Num # 1:"insertion d'une variable"<br />Num # 2:"insertion d'une variable"<br /> Num # 3:"insertion d'une variable"<br /></font></td>
		<td><font color="red">Num # 1:"insertion d'une variable"<br />Num # 2:"insertion d'une variable"<br /> Num # 3:"insertion d'une variable"<br /></font></td>
	</tr>
	<tr>
		<td bgcolor="AD D8 E6"> <font color="19 19 70"> <b > Procédure <b /> </font></td> 
		<td><font color="red">Contacter le correspondant au numéro #1<br />Si pas de réponse : le contacter aux numéros #2 et #3<br /> Réessayer pendant 15 minutes alternativement <br /> aux 3 numéros<br /></td>
		<td><font color="red">Contacter le correspondant au numéro #1<br />Si pas de réponse : le contacter aux numéros #2 et #3<br /> Réessayer pendant 15 minutes alternativement <br /> aux différents numéros<br /></td>
	</tr> 
</table>
 
<font color="red">* Dans le cadre du RGPD, merci de bien vouloir vous assurer que le mail contenant ces informations sera <br /> supprimé lorsque la période d’astreinte concernée sera terminée <br /> </font>
<br />
<br />
<br />
<font color="blue"> Pour mémoire, les BU couvertes par le <font color="red"> périmètre DIR <font color="blue"> sont, xxx <b >(Paris et Province) <b /> . <br /> </font>
<br />
<br />
<br />
<br />
<br />

Evidement, ça ne fonctionne pas

Pouvez-vous juste m'expliquer comment m'y prendre?

Avec mes remerciements

**tee_grandbois** · 27/06/2024, 16h53

bonjour,
en fait il faudrait mettre chaque ligne entre guillemets sans oublier le caractère de concaténation (&) et de suite (_) à chaque fin de ligne (et éventuellement doubler les apostrophes quand une ligne en contient comme en lignes 2 et 7 par exemple):

Code :

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

1
2
3
4
5
6
7
8
9
strBody = "<!--Création du tableau du mail du lundi-->" & _
"<font color=""blue""> Bonjour,</font>" & _
"<br />" & _
"<br />" & _
"<br />" & _
"<br />" & _
"<font color=""blue""> Veuillez trouver, ci-dessous, le planning d’astreinte du <b > ""insertion d'une variable"" au ""insertion d'une variable"" <b /> (jusqu’à 8h00). </font> <br />" & _
"<br />" & _ 
' etc ...

mais il y a une autre solution: lire le fichier que tu as créé si tu l'as enregistré sur disque (ou le faire si ce n'est pas le cas)...
dans cet exemple, j'ai créé un fichier HTML avec le texte que tu as préparé que j'ai nommé TableauDuLundi.html
le premier code nommé GetBoiler (trouvé sur le net via l'ancien site de Ron de Bruin) permet de lire un fichier dont le nom est passé en paramètre :

Code :

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

1
2
3
4
5
6
7
8
9
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim Fso As Object
    Dim ts As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set ts = Fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function

le second prépare le mail après avoir lu le fichier (en ligne 16) dont le chemin complet est donné en ligne 12, ensuite affiche le message avant envoi:

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
29
30
31
32
33
34
35
36
37
Sub EnvoiiMailFichierExterne()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strBody As String
    Dim strFileExt As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    ' préciser le chemin du fichier à lire
    strFileExt = CurrentProject.path & "\TableauDuLundi.html"
 
    ' lecture du fichier        
    If Dir(strFileExt) <> "" Then
        strBody = GetBoiler(strFileExt)
    Else
        strBody = "fichier externe pas trouvé"
    End If
 
    On Error Resume Next
 
    With OutMail
        .To = "anny.won@provider.com"
        .CC = ""
        .BCC = ""
        .Subject = "Test envoi après récupération d'un fichier HTML"
        .HTMLBody = strBody
 
        .Display
        '.Send
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

**tee_grandbois** · 27/06/2024, 21h26

il semble que RGB() n'est reconnu dans HTML, il vaut mieux passer par le code numérique hexadécimal ou la constante (voir dans l'un des nombreux sites de conversion de couleurs)

Code :

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

1
2
3
4
5
	<tr>
		<th bgcolor="#00FF00"> <font color="white">Périmètres</font></th> 
		<th bgcolor="00FF00"> <font color="white">Filière Immobilière<br /><font size="2">(XXXX/XXX)</font></th> 
		<th bgcolor="lime"> <font color="white">Correspondant Alerte - Continuité d’activité<br /><font size="2">(xxxx/xxx/xxx)</font></th> 
	</tr>

**mgascult** · 28/06/2024, 07h30

Bonjour à Tous,

merci Tee_grandbois pour toutes ces précieuses précisions.
Je vais être en congés pour 3 semaines dès cet après midi.
Je vais mettre le post en résolu et le rouvrirai si besoin à mon retour.

Encore merci et Bel été à Tous 🌞

**mgascult** · Aujourd'hui, 09h11

Bonjour à Tous,

De retour, je réouvre le post.

Je préférai la première option car j'ai des variable qui alimentent le tableau.
Evidement cela ne fonctionne pas

j'ai une incompatibilité de type de la ligne 20 à 49.
Mais en plus j'ai un message qui me dit: trop de caractères de continuité

du coup cela me bloque aussi.
J'ai mis des "" doubles cotes au niveau des tailles de font car si je n'en met qu'une j'ai une erreur.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
..../
 
'création du corps de texte
 
 
    '<!--Création du mail du lundi-->
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<font color=#0000FF> Bonjour,</font><br>"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<font color=#0000FF> Veuillez trouver, ci-dessous, le planning d’astreinte du <b > Vdate_debut au Vdate_date_fin <b /> (jusqu’à 8h00). </font> <br />"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<font color=#FF0000> <b> <u>Attention</u> côté Filière Immobilière l’astreinte débute le Vdate_debut (8h00). <b /> </font> <br />"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<font color=#FF0000> <b> <u>Attention :</u> le périmètre DOOR ne fait plus partie du périmètre DIR, pour toutes demandes d’accès pour ce périmètre merci d’avance de contacter les équipes concernées. <b /> </font> <br />"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<font color=#0000FF> Merci de bien vouloir nous confirmer la bonne prise en compte de ces informations. </font> <br />"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
'insertion du tableau
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<table border=""1"">" & _
    objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<tr>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<th bgcolor=#000099> <font color=#FFFFFF>Périmètres</font></th>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<th bgcolor=#000099> <font color=#FFFFFF>Filière Immobilière<br /><font size=""2"">(XXXX/XXX)</font></th>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<th bgcolor=#000099> <font color=#FFFFFF>Correspondant Alerte - Continuité d’activité<br /><font size=""2"">(xxxx/xxx/xxx)</font></th>" & _
    objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "</tr>" & _
    objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<tr>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td bgcolor=#CCFFFF> <font color=#0000FF> <b > A contacter en cas de <b /> </font></td>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td><font color=#0000FF>Demande d’accès aux locaux<br /><font size=""4"">Incidents d’exploitation immobilière</font></td>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td><font color=#0000FF>Incidents majeurs IT <br />Autres incidents majeurs de continuité d’activité <br /> (indisponibilité d’immeuble, incendie, inondation,<br /> panne électrique majeure)  </font></td>" & _
    objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "</tr>" & _
    objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<tr>" & _
            objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td bgcolor=#CCFFFF> <font color=#0000FF> <b > Correspondant<b /> <font color=#FF0000>*  </font></td>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td><font color=#FF0000>""Vnom_immo"" & ""Vprenom_immo""<br />Astreinte à partir du:""Vdate_debut""</font></td>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td><font color=#FF0000>""Vnom_BCM"" & ""Vprenom_BCM""<br /> </font></td>" & _
    objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "</tr>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<tr>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td bgcolor=#CCFFFF> <font color=#0000FF> <b > Téléphone<b /> <font color=#FF0000>*   </font></td>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td><font color=#FF0000>Num # 1:""Vn1_immo""<br />Num # 2:""Vn2_immo""<br /> Num # 3:""Vn3_immo""<br /></font></td>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td><font color=#FF0000>Num # 1:""Vn1_BCM""<br />Num # 2:""Vn2_BCM""<br /> Num # 3:""Vn3_BCM""<br /></font></td>" & _
    objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "</tr>" & _
    objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<tr>"
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td bgcolor=#CCFFFF> <font color=#0000FF> <b > Procédure <b /> </font></td>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td><font color=#FF0000>Contacter le correspondant au numéro #1<br />Si pas de réponse : le contacter aux numéros #2 et #3<br />" & _
        "Réessayer pendant 15 minutes alternativement <br /> aux 3 numéros<br /></td>" & _
        objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<td><font color=#FF0000>Contacter le correspondant au numéro #1<br />Si pas de réponse : le contacter aux numéros #2 et #3<br />" & _
        "Réessayer pendant 15 minutes alternativement <br /> aux différents numéros<br /></td>" & _
    objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "</tr>"
objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "</table>"
 
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "Bien cordialement<br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "Astreinte GBIS<br>"
          'met la ligne ci-dessous en rouge
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<FONT color=#FF0000> 06 xx xx xx xx </FONT><br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "CRE<br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "Tour<br>"
          'met la ligne ci-dessous en rouge
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<FONT color=#FF0000> *Dans le cadre du RGPD, vos données (nom, prénom, matricule) sont conservées une année dans un fichier Excel avant d’être supprimées.</FONT><br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<font color=#0000FF> Pour mémoire, les BU couvertes par le <font color=#FF0000> périmètre DOOR <font color=#0000FF> sont, xxx <b >(Paris et Province) <b /> . <br /> </font>"
          'insertion du logo
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<img alt= ""logoODM"" align=baseline src= ""c:\IPM\02 - Outils\ODM\Fichiers de travail\Images\ODM.bmp""  >"
          objOutlookMsg.HTMLBody = objOutlookMsg.HTMLBody & "<br>"
 
For Each objOutlookRecip In objOutlookMsg.Recipients
objOutlookRecip.Resolve
Next
 
'objOutlookMsg.Send ' envoi le mai directement sans prévisuel
objOutlookMsg.Display ' ouvre le mail avant envoi
 
Set OutApp = Nothing
 
..suite du code

je vous remercie pour votre aide.
Belle journée

retranscription de code HTML dans la création d'un mail en VBA

VBA Access

Discussions similaires

Partager

Partager