Classe EmailSignature - assinaturas (Word VBA)

Contém informações sobre as assinaturas de email usadas pelo Microsoft Word quando você cria e edita mensagens e respostas de email. Para usar uma variável de classe EmailSignature, ela primeiro precisa ser instanciada por exemplo

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

EmailSignatureEntries

Retorna um objeto EmailSignatureEntries que representa as entradas de assinatura de email no Microsoft Word. Somente leitura.

Uma assinatura de email é o texto padrão que termina uma mensagem de email, como seu nome e número de telefone. Use a propriedade EmailSignatureEntries para criar e gerenciar uma coleção de assinaturas de email que o Word usará ao criar mensagens de email.

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

NewMessageSignature

Retorna ou define a assinatura que o Microsoft Word acrescenta às novas mensagens de email. String de leitura/gravação.

Ao definir essa propriedade, você deve usar o nome de uma assinatura de email que você criou na caixa de diálogo Opções de email , disponível na guia geral da caixa de diálogo Opções (menuferramentas ).

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

ReplyMessageSignature

Retorna ou define a assinatura que o Microsoft Word acrescenta às respostas de mensagens de email. String de leitura/gravação.

Ao definir essa propriedade, você deve usar o nome de uma assinatura de email que você criou na caixa de diálogo Opções de email , disponível na guia geral da caixa de diálogo Opções (menuferramentas ).

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