Como inserir um texto específico no cursor ao compor uma mensagem no Outlook? 

Supondo que você tenha algumas cadeias de texto específicas que são usadas com frequência ao compor a mensagem de e-mail, então, você gostaria de inserir o texto na posição atual do cursor no corpo da mensagem automaticamente, sem digitá-las manualmente repetidas vezes. Neste artigo, vou falar sobre um método fácil para resolver essa tarefa rapidamente.

Inserir texto específico ou data atual no cursor ao compor mensagem com código VBA

Inserir texto específico ou data atual no cursor ao compor mensagem com código VBA

O código VBA a seguir pode ajudá-lo a inserir uma string de texto específica ou data atual na posição do cursor, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. E então, clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto:

Código VBA: inserir texto específico ou data atual no cursor

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

Note: No código acima, ExtendOffice é o texto específico que você deseja inserir, se você precisar inserir a data atual ao invés da string de texto, por favor mude o texto neste script xSel.InsertBefore Format ("ExtendOffice") para Formato xSel.InsertBefore (agora, "DD / MM / AAAA").

3. Em seguida, salve e feche a janela de código, crie um novo e-mail e, na janela Mensagem, clique em Personalize a barra de ferramentas de acesso rápido desça e escolha Mais Comando, veja a captura de tela:

4. No Opções do Outlook caixa de diálogo, execute as seguintes operações:

(1.) Selecione Macros do Escolha o comando de suspenso;

(2.) Clique no nome da macro que você inseriu;

(3.) Em seguida, clique Adicionar botão para adicionar esta macro ao Personalize a barra de ferramentas de acesso rápido caixa de listagem.

5. E então, clique OK botão para fechar a caixa de diálogo, agora, o ícone de macro foi inserido no Personalize a barra de ferramentas de acesso rápido. Coloque o cursor onde deseja inserir o texto e, a seguir, clique neste botão de macro, o texto específico será inserido de uma vez, veja a imagem:

---

Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos Pró: Salvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

Saiba Mais       Download grátis      Comprar