Bonjour,
J'ai une procédure qui lance un e-mail avec fichier joint à partir d'Excel. La question que je n'arrive pas à résoudre c'est comment récupérer ma signature (avec logo) de mon Outlook.
Merci

Olivier

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
Dim ol As New Outlook.Application
Dim olmail As MailItem
 
 
Dim Fichier As String
Dim NomFichier As String
Dim Signature As String
 
Fichier = Application.GetOpenFileName   'RETOURNE LE CHEMIN ET NOM DU FICHIER
 
ThisWorkbook.FollowHyperlink Fichier
NomFichier = ActiveWorkbook.Name        'RETOURNE LE NOM DU FICHIER
 
 
Set olmail = ol.CreateItem(olMailItem)
 
With olmail
.Attachments.Add Fichier
.To = ("Test")
.Subject = NomFichier
.Body = "texte dans le e-mail"
.Send
End With