Aide sur l'envoi d'HTML dans une automation Outlook

**Thotho-Maxime** · 28/07/2009, 16h21

Bonjour,

Voila quelques jours, j'ai tenté de me pencher sur l'envoi automatisé de mails d'Access via Outlook!
Pour le moment, j'ai réussi à mettre le mail en "normal" sans hmtl ni pièces jointes.
Mon automation m'amène sur la page d'envoi d'Outlook (j'ai juste à cliquer sur envoi quoi).

Mon soucis c'est que j'aimerais intégrer des pièces jointes et un lien html.
C'est pourquoi je me suis penché sur http://access.developpez.com/faq/?pa...look#mail_html .

Cependant, je ne comprend pas le passage le plus important:
Comment est définit l'adresse?
Que définit strHTML? (on la définit en tant que STRING ca veut dire variable du programme non!?)
Comme est définit ce qui contient l'html?
etc...

Code :

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

1
2
3
4
5
6
7
strHTML = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & _
          "<HTML><HEAD>" & _
          "<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & _
          "<META content=""MSHTML 6.00.2800.1516"" name=GENERATOR></HEAD>" & _
          "<BODY><DIV STYLE=""font-size: 11px; font-face: Tahoma;"">"
 
oEmail.HTMLBody = strHTML & Replace(Me.txtBody, vbCrLf, "<br>") & "</DIV></BODY></HTML>"

Le reste je comprend comment ca marche. Dans mon esprit, le but c'est qu'une partie du mail envoie le lecteur vers une page web quand il clique dessus. Je suis peut être totalement à coté de ce qui doit être réalisable par ce code.
Perso, j'ai remplacé le omail.Send par un omail.Display pour avoir la main juste avant l'envoi.

Pour ce qui est des pièces jointes, j'ai étudié http://access.developpez.com/faq/?page=Outlook#outlook. Je ne comprend pas ce que définit Attach. Sachant que je pars d'une table Message qui contient txtTitre, txtBody et txtPiecesJointes (adresse sur mon pc des pièces jointes), pourriez vous m'aider?

Merci à tous!

**LedZeppII** · 28/07/2009, 18h09

Bonjour,

HTML est le format de l'email.
Cela sous-entend que le texte du message doit être tout entier au format HTML.
Pour créer un lien hypertexte il faut utiliser la balise HTML a.

Code html :

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

<a href="adresse/de/destination.html">Texte du lien</a>

strHTML est une variable de type String qui contient le texte HTML.
C'est à dire du texte balisé.

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
Dim strHTML As String, strLien As String
' balises HTML de début de document
strHTML = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & _
          "<HTML><HEAD>" & _
          "<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & _
          "<META content=""MSHTML 6.00.2800.1516"" name=GENERATOR></HEAD>" & _
          "<BODY><DIV STYLE=""font-size: 11px; font-face: Tahoma;"">"
 
' Début du message
strHTML = strHTML & "Bonjour, <br>"       ' <br> renvoie à ligne
strHTML = strHTML & "<br>"
strLien = "http://access.developpez.com/faq/?page=Outlook#mail_html"
strHTML = strHTML & "Cliquer sur ce <a href=""" & strLien  & """>lien</a><br>"
strHTML = strHTML & "<br>"
strHTML = strHTML & "Slts"
 
' balises HTML fermantes
strHTML = strHTML & "</DIV></BODY></HTML>"
 
oEmail.HTMLBody = strHTML

Le format de l'email ne devient HTML que si on utilise la propriété HTMLBody (en tout cas j'usqu'à Outlook 2003; je ne sais pas pour 2007).

Attach est une variable de type Variant, de manière à accepter un tableau.
Cela permet de passer en argument, plusieurs pièces jointes.

A+

**Thotho-Maxime** · 29/07/2009, 09h28

Alors tout d'abord... MERCI!

Tu as répondu à toutes mes questions et j'ai tout compris ahah (non pas que je sois bête mais...)

J'essaie toussa tout de suite et je met résolu si je vois que j'y arrive.

Encore merci

Aide sur l'envoi d'HTML dans une automation Outlook [AC-2003]

VBA Access

Discussions similaires

Partager

Partager