Discussion :

[DPhBxl]

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]

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]

wouai et la couleur ?

[random]

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

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

[DPhBxl]

Super pour les attachements
Reste la couleur

[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