Clase EmailSignature (Word VBA)

Contiene información sobre las firmas de correo electrónico que utiliza Microsoft Word cuando crea y edita mensajes de correo electrónico y respuestas.

Set

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

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

Las variables de tipo EmailSignature se pueden establecer utilizando el procedimiento EmailOptions.EmailSignature

EmailSignatureEntries

Devuelve un objeto EmailSignatureEntries que representa las entradas de firma de correo electrónico en Microsoft Word.

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.

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

NewMessageSignature

Devuelve o establece la firma que Microsoft Word anexa a los nuevos mensajes de correo electrónico.

Al establecer esta propiedad, debe usar el nombre de una firma de correo electrónico que haya creado en el cuadro de diálogo Opciones de correo electrónico , disponible en la ficha General del cuadro de diálogo Opciones (menúherramientas ).

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

Parent

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

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

ReplyMessageSignature

Devuelve o establece la firma que Microsoft Word anexa a las respuestas de mensajes de correo electrónico.

Al establecer esta propiedad, debe usar el nombre de una firma de correo electrónico que haya creado en el cuadro de diálogo Opciones de correo electrónico , disponible en la ficha General del cuadro de diálogo Opciones (menúherramientas ).

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