Email au format HTML via VBA

**DPhBxl** · 24/01/2007, 17h01

Bonjour,

Je cherche à envoyer un Email via du code VBA.

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
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.

**Oleff** · 24/01/2007, 17h08

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).

**DPhBxl** · 24/01/2007, 17h31

wouai et la couleur ?

**random** · 24/01/2007, 17h35

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

de la couleur ? et aussi des émoticones ? et ta photo ?

**DPhBxl** · 24/01/2007, 17h39

Super pour les attachements

Reste la couleur

**random** · 24/01/2007, 17h54

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

**cafeine** · 24/01/2007, 18h17

Hello,

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

Utilise .HTMLBody

comme dans la fonction suivante :

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
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

**DPhBxl** · 25/01/2007, 11h40

C'est magnifique

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

**Tofalu** · 25/01/2007, 11h57

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

**cafeine** · 25/01/2007, 12h06

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

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

**DPhBxl** · 25/01/2007, 15h24

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"

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

Merci à cafeine et Tofalu.

Philippe.

Email au format HTML via VBA

Access

Discussions similaires

Partager

Partager