Classe EmailSignature (Word VBA)

Contient des informations sur les signatures électroniques utilisées par Microsoft Word lors de la création et de la modification de messages électroniques et de réponses.

Set

Pour utiliser une variable de classe EmailSignature, elle doit d'abord être instanciée, par exemple

Dim ese as EmailSignature
Set ese = Application.EmailOptions.EmailSignature

Les variables du type EmailSignature peuvent être définies à l'aide de la procédure EmailOptions.EmailSignature

EmailSignatureEntries

Renvoie un objet EmailSignatureEntries qui représente les entrées de signature électronique dans Microsoft Word.

Une signature électronique est un texte standard qui met fin à un message électronique, comme votre nom et votre numéro de téléphone.

Sub NewSignature() 
 Application.EmailOptions.EmailSignature _ 
 .EmailSignatureEntries.Add _ 
 Name:=ActiveDocument.BuiltInDocumentProperties("Author"), _ 
 Range:=Selection.Range 
End Sub

NewMessageSignature

Cette propriété renvoie ou définit la signature que Microsoft Word ajoute aux nouveaux messages électroniques.

Lorsque vous définissez cette propriété, vous devez utiliser le nom d’une signature électronique que vous avez créée dans la boîte de dialogue Options de la messagerie , disponible sous l’onglet général de la boîte de dialogue options (menuOutils ).

With Application.EmailOptions.EmailSignature 
 .NewMessageSignature = "Signature1" 
End With

Parent

Renvoie un Object qui représente l'objet parent de l'objet EmailSignature spécifié.

Dim objParent As Object
Set objParent = Application.EmailOptions.EmailSignature.Parent

ReplyMessageSignature

Cette propriété renvoie ou définit la signature que Microsoft Word ajoute aux réponses aux messages électroniques.

Lorsque vous définissez cette propriété, vous devez utiliser le nom d’une signature électronique que vous avez créée dans la boîte de dialogue Options de la messagerie , disponible sous l’onglet général de la boîte de dialogue options (menuOutils ).

With Application.EmailOptions.EmailSignature 
 .ReplyMessageSignature = "Reply2" 
End With