Email au format HTML via VBA

Version imprimable

Bonjour,

Je cherche à envoyer un Email via du code VBA.

Code:

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
Public Sub DisplayEmail(Optional EmailSubject As String, Optional EmailBody As String, _
                        Optional EmailTO As String, Optional EmailCC As String)
 
    Dim appOutLook  As Outlook.Application
    Dim oEmail      As Outlook.MailItem
 
On Error GoTo Err_DisplayEmail
 
    'Créer un nouvel item mail
    Set appOutLook = New Outlook.Application
    Set oEmail = appOutLook.CreateItem(olMailItem)
 
    'Les paramètres
    If Not IsNull(EmailSubject) Then oEmail.Subject = EmailSubject
    If Not IsNull(EmailBody) Then oEmail.BODY = EmailBody
    If Not IsNull(EmailTO) Then oEmail.To = EmailTO
    If Not IsNull(EmailCC) Then oEmail.CC = EmailCC
 
    'Affiche le message
    oEmail.Display
 
Exit_DisplayEmail:
 
    'Détruit les références aux objets
    Set oEmail = Nothing
    Set appOutLook = Nothing
 
    Exit Sub
 
Err_DisplayEmail:
 
    MsgBox "Error " & err.Number & " (" & err.Description & _
    ") in Sub DisplayEmail of Module mod_Outlook", _
    vbExclamation Or vbSystemModal, "VB CODE ERROR"
 
    Resume Exit_DisplayEmail
 
End Sub
 
----------------------------------------------------------------
 
Public Sub SendEmail(EmailSubject As String, EmailBody As String, _
                        EmailTO As String, Optional EmailCC As String)
 
    Dim appOutLook  As Outlook.Application
    Dim oEmail      As Outlook.MailItem
 
On Error GoTo Err_SendEmail
 
    'Créer un nouvel item mail
    Set appOutLook = New Outlook.Application
    Set oEmail = appOutLook.CreateItem(olMailItem)
 
    'Les paramètres
    oEmail.Subject = EmailSubject
    oEmail.BODY = EmailBody
    oEmail.To = EmailTO
    If Not IsNull(EmailCC) Then oEmail.CC = EmailCC
 
    'Affiche le message
    oEmail.Send
 
Exit_SendEmail:
 
    'Détruit les références aux objets
    Set oEmail = Nothing
    Set appOutLook = Nothing
 
    Exit Sub
 
Err_SendEmail:
 
    MsgBox "Error " & err.Number & " (" & err.Description & _
    ") in Sub SendEmail of Module mod_Outlook", _
    vbExclamation Or vbSystemModal, "VB CODE ERROR"
 
    Resume Exit_SendEmail
 
End Sub

(Sans oublier de référencer la librairie Microsoft Outlook 9.0 Object Library)

MAIS...

Comment ajouter une pièce jointe (ex : fichier Excel) ?
Comment utiliser de l'Html dans mon message pour y mettre de la couleur ?

Merci de votre aide,

Philippe

ps : j'utilise Access et Outlook 2000.

24/01/2007, 17h08
Oleff

Tout dépend de ton client de messagerie.

Vois la manipulation d'objets outlook si tu en disposes, sinon, j'utilise le CDO.message (dans les tutos ou la faq).
24/01/2007, 17h31
DPhBxl

wouai et la couleur ? :lol:
24/01/2007, 17h35
random

oEmail.attachements.add "c:\fichier.rpt"
oEmail.attachements.add "c:\autrefichier.aze"

de la couleur ? et aussi des émoticones ? et ta photo ?
24/01/2007, 17h39
DPhBxl

Super pour les attachements :D
Reste la couleur :?
24/01/2007, 17h54
random

ben tu fais un oemail.display

un shell
des sendkeys

et tu auras en rouge en corps de 15

c'est une énorme valeur ajoutée

Hello,

inutile de s'embêter avec du Shell et du SendKeys.

Utilise .HTMLBody

comme dans la fonction suivante :

Code:

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
Private Sub cmdSend_Click()
 
Dim strHTML As String
Dim oEmail As Outlook.MailItem
Dim appOutlook As Outlook.Application
 
Set appOutlook = New Outlook.Application
Set oEmail = appOutlook.CreateItem(olMailItem)
 
oEmail.To = Me.txtTo
oEmail.Subject = Me.txtSubject
 
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>"
 
 
oEmail.Send
 
Set oEmail = Nothing
Set appOutlook = Nothing
 
End Sub

25/01/2007, 11h40
DPhBxl

C'est magnifique :D mais j'y connais rien en HTMLBody :(
Existe-t'il un moyen pour faire un texte formaté dans un Email et le transformer en HTMLBody de manière à faire un Copier/Coller.

Merci,

Philippe
25/01/2007, 11h57
Tofalu

Il faudrait utiliser le controle microsoft RichTextBox et ce coup ci non pas envoyer en HTML mais en RTF ;)

Pour le RichTextBox :

http://access.developpez.com/sources...ms#ControleRTF

Pour le mail :

http://access.developpez.com/sources/?page=ole#MailHTML

Il faudra juste définir :
oMail.BodyFormat = olFormatRTF

et aussi modifier la variable contenu pour quelle récupère le texte RTF du RichTextBox ;)
25/01/2007, 12h06
cafeine

OOps désolé j'avais pas vu que c'était déjà fait ;)

Citation:

Envoyé par Tofalu

Il faudrait utiliser le controle microsoft RichTextBox et ce coup ci non pas envoyer en HTML mais en RTF ;)

Pour le RichTextBox :

http://access.developpez.com/sources...ms#ControleRTF

Pour le mail :

http://access.developpez.com/sources/?page=ole#MailHTML

Il faudra juste définir :
oMail.BodyFormat = olFormatRTF

et aussi modifier la variable contenu pour quelle récupère le texte RTF du RichTextBox ;)
25/01/2007, 15h24
DPhBxl

J'ai trouvé une solution qui permet de Hardcoder un texte en HTMLBody sans connaître le code.

Créer le body sur un nouveau message dans Outlook.
Sélectionner le texte.
Cliquer avec le bouton droit.
Sélectionner "view source" :D

Nous avons donc toutes les possibilités dans cet article. Cela servira certainement à d'autres. 8-)

Merci à cafeine et Tofalu.

Philippe.