Discussion :

[dorschner]

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

[SilkyRoad]

bonjour


Ce lien pourra peut etre t'aider

http://www.rondebruin.nl/mail/folder3/signature.htm




Sinon, voici une autre méthode pour récupérer le nom du classeur sélectionné sans l'ouvrir

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
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim Fichier As String
Dim Cible As Object, Valeur As Object
 
'RETOURNE LE CHEMIN ET NOM DU FICHIER
Fichier = Application.GetOpenFilename
 
Set Cible = CreateObject("Scripting.fileSystemObject")
Set Valeur = Cible.GetFile(Fichier)
 
Set olmail = ol.CreateItem(olMailItem)
 
With olmail
    .Attachments.Add Fichier
    .To = ("Test")
    .Subject = Cible.GetFileName(Valeur)
    .Body = "texte dans le e-mail"
    .Send
End With

bon après midi
michel

[dorschner]

Bonjour Michel
Je pense que le lien me permettra de récupérer la signature. Je vais essayer demain (au travail), la question que je me pose encore est la suivante: quelle va être la différence entre ajouter une signature en txt et celle en HTLM, avec en pont de mire de pouvoir éventuellement insérer le logo de l'entreprise.
Merci encore

Olivier