Clase EmailSignatureEntry (Word VBA)

La clase EmailSignatureEntry representa una sola entrada de firma de correo electrónico.

Set

Para usar una variable de clase EmailSignatureEntry, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase EmailSignatureEntry : EmailSignature.EmailSignatureEntries, EmailSignatureEntries.Add y EmailSignatureEntries.Item

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos EmailSignatureEntry en una colección.

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

EmailSignatureEntries.Add

Devuelve un objeto EmailSignatureEntry que representa una nueva entrada de firma de correo electrónico.

Una firma de correo electrónico es el texto estándar que finaliza un mensaje de correo electrónico, como su nombre y número de teléfono.

Sintaxis : expression.Add (Name, Range)

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

Arguments

Estos son los argumentos con nombre :

Name (String) - Nombre de la entrada de correo electrónico.

Range (Range) - Intervalo del documento que se agregará como firma.

EmailSignatureEntries.Count

Devuelve un Long que representa el número de entradas de firma de correo electrónico de la colección.

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

EmailSignatureEntries.Item

Devuelve un objeto EmailSignatureEntry individual de una colección.

Sintaxis : expression.Item (Index)

Index: El objeto individual que se va a devolver.

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

EmailSignatureEntries.Parent

Devuelve un objeto Object que representa el objeto primario del objeto EmailSignatureEntries especificado.

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

Delete

Elimina la firma de correo electrónico especificada.

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

Index

Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

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

Name

Devuelve o establece el nombre del objeto especificado.

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

Parent

Devuelve un objeto Object que representa el objeto primario del objeto EmailSignatureEntry especificado.

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