Bonjour,
Je cherche à envoyer un Email via du code VBA.
(Sans oublier de référencer la librairie Microsoft Outlook 9.0 Object Library)
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
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.
Partager