Os hiperlinks nos campos de fonte de dados são convertidos em texto sem formatação quando você executar uma mala direta em mensagens de email em formato HTML no Word 2002 e Word 2003

Método 1: Adicionar um campo de hiperlink ao redor do campo de mala direta

Adicione um campo de hiperlink ao redor do campo de mala direta para gerar um hiperlink em mensagens de email mescladas. Após seguir essas etapas, o hyperlink exibe o mesmo texto em todas as mensagens de email. Além disso, o hiperlink conecta-se a URL de origem de dados corretos. Para fazer isso, execute as seguintes etapas:

1. Inicie o Word e abra o documento que você deseja mesclar para email.

2. No menu Ferramentas , aponte para Cartas e correspondênciase, em seguida, clique em mala direta. O Assistente de mala direta é exibida.

3. Em Selecione o tipo de documento, clique em mensagens de emaile, em seguida, clique em Avançar.

4. Em Selecionar documento inicial, clique em usar o documento atuale, em seguida, clique em Avançar.

5. Em Selecionar destinatários, selecione os destinatários que você deseja usar e, em seguida, clique em Avançar.

6. Coloque o ponto de inserção onde deseja que o hiperlink seja exibido na mensagem de email.

7. No menu Inserir , clique em Campo.

8. Na lista de nomes de campos , clique em hiperlinke, em seguida, clique em Okey. O texto "Erro! Referência de hyperlink não é válida"aparece no documento.

9. Pressione ALT + F9 para abrir o {HYPERLINK \ * MERGEFORMAT} código de campo.

10. Coloque o ponto de inserção após o hiperlink e, em seguida, adicione um espaço.

11. No menu Inserir , clique em Campo.

12. Na lista de nomes de campos , clique em campo de mesclagem.

13. Na caixa de texto nome do campo , digite o nome do campo de fonte de dados que contém o hiperlink e, em seguida, clique em Okey. Por exemplo, se o nome do campo de fonte de dados for "Endereço1", o código de campo aparece da seguinte maneira:

    {HYPERLINK {MERGEFIELD "Endereço 1"} \ * MERGEFORMAT}

14. Pressione ALT + F9 para fechar o {HYPERLINK {MERGEFIELD "< nome do campo >"} \ * MERGEFORMAT} código de campo.

15. Coloque o ponto de inserção no início do "Erro! Texto de referência de hyperlink não é válida"e substituir o texto com o texto de hiperlink que você deseja exibir. Por exemplo, substitua o texto com o texto, como Clique aqui.

    Importante: Certifique-se de que você não exclua o campo inteiro.

16. Selecione o texto que você digitou na etapa 15. Na lista estilo , clique em hiperlink.

17. No Assistente de mala direta, clique em Avançare, em seguida, siga as etapas restantes no Assistente de mala direta para concluir o processo de mala direta.

Método 2: Criar uma macro que modifique dinamicamente o texto do hiperlink

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas. Criar uma macro, se você quiser modificar dinamicamente o texto do hiperlink em seus emails mesclados. Após seguir essas etapas, o hyperlink exibe o texto com base na URL da fonte de dados. Para fazer isso, execute as seguintes etapas:

1. Siga as etapas em "método 1: adicionar um campo de hiperlink ao redor do campo de mala direta."

2. No menu Ferramentas , aponte para Macroe clique em Editor do Visual Basic.

3. Pressione F7. É exibida a janela de código.

4. Copie e cole o seguinte código na janela de código:

   Sub MergeToEmail()
   
       Dim bDone As Boolean
       bDone = False
   
       Do While bDone = False
   
           ActiveDocument.Fields.Update
   
           For Each oHyperlink In ActiveDocument.Hyperlinks
               oHyperlink.TextToDisplay = oHyperlink.Address
               oHyperlink.Range.Font.Color = wdColorBlue
               oHyperlink.Range.Font.Underline = wdUnderlineSingle
               oHyperlink.Range.Font.UnderlineColor = wdColorBlue
           Next oHyperlink
   
           With ActiveDocument.MailMerge
               .Destination = wdSendToEmail
               .SuppressBlankLines = True
               ' You can modify the text "Enter Your Subject Here" or 
               ' remove the following line if you do not want a subject
               ActiveDocument.MailMerge.MailSubject = "Enter Your Subject Here"
               With .DataSource
                   .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
                   .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
               End With
               .Execute Pause:=False
           End With
   
           If ActiveDocument.MailMerge.DataSource.ActiveRecord = _
               ActiveDocument.MailMerge.DataSource.RecordCount Then
               bDone = True
           End If
           ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
       Loop
   End Sub
   
   

5. No menu Ferramentas , aponte para Macroe clique em Macros.

6. Clique em MergeToEmaile, em seguida, clique em Executar.

Observação: Para cada mensagem de email que você envia usando essa macro, aparece uma mensagem de aviso do Microsoft Outlook. Para obter mais informações sobre esse comportamento, clique no número abaixo para ler o artigo na Base de Conhecimento da Microsoft:

290498 você recebe mensagens de aviso quando você usar um suplemento de terceiros ou uma solução personalizada no Outlook 2002