Bonjour,
J'ai un code qui me permet d'envoyer un mail avec pièce jointe.
Mon problème est que la signature automatique prédéfinie dans mon Outlook qui s'affiche automatiquement lors d'un envoie de mail manuel, ne s'affiche pas lors de l'utilisation de ce code.
Au niveau de ma signature, je l'ai créée via l'assistant Outlook, et j'y ai ajouté un image en copier/coller. Je suis près à revoir un peu cette manière de créer la signature, cependant je préfèrerai que ce soit suffisamment flexible pour que si j'ai besoin de changer ma signature outlook, je n'ai pas systématiquement besoin de taper dans le code.
J'ai lu pas mal de sujets là dessus sur les forums, mais il y a plusieurs méthodes, et je ne comprend pas forcément les avantages/inconvénients de chacune...
Merci d'avance pour vos suggestions.
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 ' --- ' ENVOYER UN MAIL DEPUIS ACCESS, AVEC PIECES JOINTES ' --- ' Entrée : strEmail <- Adresse e-mail du destinataire ' strObj <- Objet du courrier ' strMsg <- Corps du message ' blnEdit <- True pour pouvoir modifier le courrier avant envoi ' False pour expédier le courrier directement. ' astrFichiers <- Tableau des pièces jointes ' Remarques : Le mail est expédié via Microsoft Outlook ' plutôt que via SendObject. Public Sub SendOLMail2( _ ByVal strEmail As String, _ ByVal strObj As String, _ ByVal strMsg As String, _ ByVal blnEdit As Boolean, _ Optional ByVal avarFichiers As Variant) Dim ol As Outlook.Application Dim mi As Outlook.MailItem Dim varPJ As Variant ' Créer une instance d'Outlook On Error GoTo OLMailErr Set ol = New Outlook.Application ' Créer un objet Email Set mi = ol.CreateItem(olMailItem) ' Paraméter le message With mi .To = strEmail .Subject = strObj .Body = strMsg ' Joindre les pièces, s'il y en a For Each varPJ In avarFichiers .Attachments.Add (varPJ) Next If blnEdit Then .Display Else .Send End If End With Set mi = Nothing Set ol = Nothing Exit Sub OLMailErr: MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description Exit Sub End Sub
Seb
Partager