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.

Set

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

EmailSignatureEntries.Add

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"), _ 
 Range:=Selection.Range 
End Sub

Arguments

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.

EmailSignatureEntries.Count

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

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

EmailSignatureEntries.Item

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)

EmailSignatureEntries.Parent

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

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

Delete

Deletes the specified email signature.

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

Index

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

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

Name

Returns or sets the name of the specified object.

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

Parent

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