Classe EmailSignatureEntry (Word VBA)

La classe EmailSignatureEntry représente une entrée de signature électronique unique.

Set

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

Dim ese as EmailSignatureEntry
Set ese = Application.EmailOptions.EmailSignature.EmailSignatureEntries(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe EmailSignatureEntry : EmailSignature.EmailSignatureEntries, EmailSignatureEntries.Add et EmailSignatureEntries.Item

For Each

Voici un exemple de traitement des éléments EmailSignatureEntry dans une collection

Dim ese As EmailSignatureEntry
For Each ese In Application.EmailOptions.EmailSignature.EmailSignatureEntries
	
Next ese

EmailSignatureEntries.Add

Renvoie un objet EmailSignatureEntry qui représente une nouvelle entrée de signature électronique.

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

Syntaxe : expression.Add (Name, Range)

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

Arguments

Les arguments nommés :

Name (String) - Nom de l’entrée de courrier électronique.

Range (Range) - Plage du document que vous allez ajouter en tant que signature.

EmailSignatureEntries.Count

Renvoie un type long qui représente le nombre d’entrées de signature électronique dans la collection.

Dim lngCount As Long
lngCount = Application.EmailOptions.EmailSignature.EmailSignatureEntries.Count

EmailSignatureEntries.Item

Renvoie un objet EmailSignatureEntry spécifique appartenant à une collection.

Syntaxe : expression.Item (Index)

Index: Objet spécifique qui doit être renvoyé.

Dim ese As EmailSignatureEntry
Set ese = Application.EmailOptions.EmailSignature.EmailSignatureEntries(Index:=1)

EmailSignatureEntries.Parent

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

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

Delete

Supprime la signature de courrier électronique spécifiée.

Application.EmailOptions.EmailSignature.EmailSignatureEntries(1).Delete

Index

Renvoie un type long qui représente la position d'un élément dans une collection.

Dim lngIndex As Long
lngIndex = Application.EmailOptions.EmailSignature.EmailSignatureEntries(1).Index

Name

Cette propriété renvoie ou définit le nom de l'objet spécifié.

Application.EmailOptions.EmailSignature.EmailSignatureEntries(1).Name =

Parent

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

Dim objParent As Object
Set objParent = Application.EmailOptions.EmailSignature.EmailSignatureEntries(1).Parent