Discussion :

[zkunk]

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

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

Merci d'avance pour vos suggestions.

Seb

[zkunk]

Bonsoir,
ma problématique de signature auto est toujours d'actualité..
Je suis preneur de toute suggestion, merci.

A+
Seb

[tee_grandbois]

Bonsoir,
voici le lien correct pour la solution donnée par Ron de Bruin (explications en anglais) : http://www.rondebruin.nl/win/s1/outlook/signature.htm
Apparemment, il n'existe qu'une solution pour insérer un signature contenant une image c'est de faire un Display du message qui insère celle définie par défaut.

[zkunk]

Bonjour tee_grandbois !

Merci pour ta réponse, qui solutionne ma problématique =)
Donc niveau modification du code:
.Display doit être situé au début de la création du message
.Body doit être remplacé par .HTMLBody

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
' Créer un objet Email
Set mi = ol.CreateItem(olMailItem)
 
' Paraméter le message
With mi
  If blnEdit Then
    .Display
  Else
    .Send
  End If
  .To = strEmail
  .Subject = strObj
  .HTMLBody = strMsg & "<br>" & .HTMLBody

A+
Seb