Discussion :

[Ramoi]

Je developpe une application access qui envoie automatiquement des mails outlook.
J'utilise pour ce faire la librairy objet d'outlook.
Est-il possible d'inclure dans les mails une signature définie dans outlook?

[Thierry_PALLIER]

Bonsoir Ramoi.
Pour faire cela, j'utilise une fonction pour lire la signature:

Code :

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

1
2
3
4
5
6
7
8
Public Function LireSignature(ByVal sFile As String) As String
    Dim FSO As Scripting.FileSystemObject
    Dim ts As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set ts = FSO.GetFile(sFile).OpenAsTextStream(1, -2)
    LireSignature = ts.ReadAll
    ts.Close
End Function

et dans ton code d'envoie Outlook, après les déclarations, tu rajoutes ces 2 lignes:

Code :

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

1
2
StrSign = DriveLinkedTable & "\Message.htm"
    strFormatSign = LireSignature(StrSign)

Message.htm étant la signature que j'utilise, et DriveLinkedTable, le dossier où j'ai placé cette signature.
Cdlt

[Ramoi]

Merci.
Mais la fonction tombe en erreur de compilation sur le 1er Dim "type défini par l'utilisateur non défini".

[Thierry_PALLIER]

Bjr.
Il faut la référence "Microsfoft Scripting Runtime" (scrun.dll).
Cdlt

[Ramoi]

Super, cela fonctionne parfaitement. Merci.
En complément, savez-vous s'il est possible de récupérer une signature existante définie dans outlook en "manuel" ?