Discussion :

[Cathare2020]

Bonjour,

Je souhaite créer une macro, qui impose une signature prédéfinie avant l'envoie du mail, en utilisant l'évènement" itemsend " de l'objet application outlook.

Outlook permet dans ses options, de créer une liste de signatures disponibles pour les insérer dans un mail. (pc disponibles pour plusieurs personnes)
Je voudrais savoir, si cette liste de signatures est disponible au travers des objets (collections) VBA outlook .

En effet je ne le trouve pas dans l'explorateur d'objets. Pourtant cela simplifierais grandement l'élaboration de la macro.
Merci par avance pour vos réponses.

Cordialement,

[Cathare2020]

Bonjour,

Je n'ai toujours pas de réponse a ma question initiale, par contre, j'ai résolue mon objectif de la façon suivante.
Je le partage car cela peut intéresser quelqu'un je suppose.
Nous avons un pc partagé, en session Windows unique, et notre responsable souhaite la signature des mails lors de l’édition.
Les multiples signatures ont été édité préalablement dans Outlook, l'ensemble des signatures comportes notamment l'adresse de l'entreprise.
Je me sers de cette affirmative pour évaluer si le mail a été signer.
C'est assez simpliste mais fonctionnel.

Cordialement,

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
Option Explicit
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim x As Integer
Dim st As String
Dim m As MailItem
Set m = Item
st = m.HTMLBody
x = InStr(1, st, "adresse Entreprise", vbTextCompare)
If x = 0 Then
    MsgBox "Mail non signee" & Chr(10) & "il est imperatif de signer le mail avec les signatures predefinies", vbApplicationModal & vbExclamation, "ATTENTION"
    Cancel = True
Else
    'MsgBox "Mail envoyé", vbApplicationModal & vbMsgBoxRtlReading, "OK"
End If
End Sub

[Oliv-]

Bonsoir

voir ici https://www.developpez.net/forums/bl...-outlook-2016/

[Cathare2020]

Merci