Class EmailSignatureEntry (Word VBA)

The class EmailSignatureEntry represents a single email signature entry. The EmailSignatureEntry object is a member of the EmailSignatureEntries collection. The EmailSignatureEntries collection contains all the email signature entries available to Word.


To use a EmailSignatureEntry class variable it first needs to be instantiated, for example

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

The following procedures can be used to set variables of type EmailSignatureEntry: EmailSignature.EmailSignatureEntries, EmailSignatureEntries.Add and EmailSignatureEntries.Item

For Each

Here is an example of processing the EmailSignatureEntry items in a collection.

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


Returns an EmailSignatureEntry object that represents a new email signature entry.

An email signature is standard text that ends an email message, such as your name and telephone number. Use the EmailSignatureEntries property to create and manage a collection of email signatures that Microsoft Word will use when creating email messages.

Syntax : expression.Add (Name, Range)

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


The following arguments are required:

Name (String) - The name of the email entry.

Range (Range) - The range in the document that will be added as the signature.


Returns a Long that represents the number of email signature entries in the collection.

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


Returns an individual EmailSignatureEntry object in a collection.

Syntax : expression.Item (Index)

Index: The individual object to be returned. Can be a Long indicating the ordinal position or a String representing the name of the individual object.

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


Returns an object that represents the parent object of the specified EmailSignatureEntries object.

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


Deletes the specified email signature.



Returns a Long that represents the position of an item in a collection.

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


Returns or sets the name of the specified object.

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


Returns an object that represents the parent object of the specified EmailSignatureEntry object.

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