Automation Mail en HTML Via OUTLOOK EXPRESS

**Stéphane Olivier BERNARD** · 06/10/2005, 11h54

Bonjour !

Je souhaite envoyer un courriel en HTML via Outlook Express en utilisant du code VBA. Le seul petit hic est que mon message s'affiche en texte brut et n'exploite pas les balises HTML présentes dans le corps du message.
Y a t'il une manière de spécifier avec un "mailto" que le courriel est en HTML ?

Voici mon code qui ne produit pas tous les résultats espérés:

Déclarations:
Option Compare Database
Option Explicit
Dim TouchesEnvoi(5) As String

Sub de temporisation:
Sub Attendre(Secondes As Integer)
' Cette procédure temporise pendant le nombre de secondes qu'on lui transmet en argument
Dim Début As Long, Fin As Long, Chrono As Long
Début = Timer
Fin = Début + Secondes
Do Until Timer >= Fin
DoEvents
Loop
End Sub

Fonction qui envoie le courriel:
Private Function MAILCCENTRE()
Const SAUTLIGNE = "<br/>"
Dim HyperLien, strContenu As String
Dim i As Integer
strContenu = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN//3.2"">"
strContenu = strContenu & "<HTML>"
strContenu = strContenu & "<HEAD>"
strContenu = strContenu & "<TITLE>MAIL CHEF DE CENTRE</TITLE>"
strContenu = strContenu & "</HEAD>"
strContenu = strContenu & "<BODY>"
strContenu = "Résultat de la consultation !" & SAUTLIGNE
strContenu = strContenu & "Pour la période définie comme suit:" & SAUTLIGNE
strContenu = strContenu & "Type de courrier: " & [Type de courrier] & SAUTLIGNE
strContenu = strContenu & "Date: " & [Date réception] & SAUTLIGNE
strContenu = strContenu & "Objet: " & [Objet du courrier] & SAUTLIGNE
strContenu = strContenu & "</BODY>"
strContenu = strContenu & "</HTML>"

HyperLien = "mailto:" & DEFCCENTRE & "?"
HyperLien = HyperLien & "Subject=" & "Consultation du courrier reçu" & " (à " & Time() & ")"
HyperLien = HyperLien & "&Body=" & strContenu

Application.FollowHyperlink HyperLien
Attendre 5

TouchesEnvoi(0) = 1
TouchesEnvoi(1) = "%s"

For i = 1 To TouchesEnvoi(0)
SendKeys TouchesEnvoi(i), True
Next i

Pour info, j'ai essayé de voir si une spécification était possible de strContenu comme acFormatHTML mais je n'ai rien trouvé pas plus qu'une façon de spécifier du HTML en utilisant Body.format.

Je pense que j'y suis presque et c'est super frustrant

D'avance merci !

**Stéphane Olivier BERNARD** · 01/11/2005, 09h01

Bonjour,
Après un mois de vains efforts, j'ai décidé de changer ma stratégie. Le fichier HTML est envoyé en pièce jointe !
C'est pas super mais ça a le mérite de fonctionner.

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
 
Sub de temporisation: 
Sub Attendre(Secondes As Integer) 
' Cette procédure temporise pendant le nombre de secondes qu'on lui transmet en argument 
Dim Début As Long, Fin As Long, Chrono As Long 
Début = Timer 
Fin = Début + Secondes 
Do Until Timer >= Fin 
DoEvents 
Loop 
End Sub 
 
Fonction qui envoie le courriel: 
Private Function MAILCCENTRE() 
Const SAUTLIGNE = "<br/>" 
Dim HyperLien, strContenu As String 
Dim i As Integer 
strContenu = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN//3.2"">" 
strContenu = strContenu & "<HTML>" 
strContenu = strContenu & "<HEAD>" 
strContenu = strContenu & "<TITLE>MAIL CHEF DE CENTRE</TITLE>" 
strContenu = strContenu & "</HEAD>" 
strContenu = strContenu & "<BODY>" 
strContenu = "Résultat de la consultation !" & SAUTLIGNE 
strContenu = strContenu & "Pour la période définie comme suit:" & SAUTLIGNE 
strContenu = strContenu & "Type de courrier: " & [Type de courrier] & SAUTLIGNE 
strContenu = strContenu & "Date: " & [Date réception] & SAUTLIGNE 
strContenu = strContenu & "Objet: " & [Objet du courrier] & SAUTLIGNE 
strContenu = strContenu & "</BODY>" 
strContenu = strContenu & "</HTML>" 
 
'Création du fichier HTML: 
Open "G:\Courrier.Html" For Output As #1
Print #1, strContenu
Close #1
 
HyperLien = "mailto:" & DEFCCENTRE & "?" 
HyperLien = HyperLien & "Subject=" & "Consultation du courrier reçu" & " (à " & Time() & ")" 
HyperLien = HyperLien & "&Body=" & "Le message figure en pièce jointe !" 
 
Application.FollowHyperlink HyperLien 
Attendre 5                ' Temporise
SendKeys "%i", True ' Appel du menu Insertion par la touche Alt-i 
SendKeys "p", True   ' Appel du sous-menu pièces jointes par la touche p
SendKeys "G:\Courrier.Html", True 'Chemin de la PJ 
Attendre 1                         ' Temporise 
SendKeys "{ENTER}", True ' Validation du chemin
Attendre 1                         ' Temporise
SendKeys "%s", True         ' Envoi du message avec Alt-s
End Function

Automation Mail en HTML Via OUTLOOK EXPRESS

Access

Discussions similaires

Partager

Partager