Hiperłącza w polach źródła danych są konwertowane na zwykły tekst, podczas wykonywania korespondencji seryjnej wiadomości e-mail w formacie HTML w programie Word 2002 i Word 2003

Metoda 1: Dodanie pola Hiperłącze wokół pola korespondencji seryjnej

Dodanie pola Hiperłącze wokół pola korespondencji seryjnej do generowania hiperłącze w wiadomości seryjnej poczty e-mail. Po wykonaniu tych kroków hiperłącza wyświetla ten sam tekst w wiadomościach e-mail. Dodatkowo hiperłącze łączy URL źródła poprawne dane. Aby to zrobić, wykonaj następujące kroki:

1. Uruchom program Word i otworzyć dokument, który chcesz scalać do poczty e-mail.

2. W menu Narzędzia wskaż polecenie listy i dokumenty wysyłkowe, a następnie kliknij przycisk Korespondencja seryjna. Zostanie wyświetlony Kreator korespondencji seryjnej.

3. W obszarze Wybierz typ dokumentukliknij przycisk wiadomości E-mail, a następnie kliknij przycisk Dalej.

4. W obszarze Wybierz dokument początkowykliknij opcję Użyj bieżącego dokumentu, a następnie kliknij przycisk Dalej.

5. W obszarze Wybierz adresatówWybierz adresatów, których chcesz użyć, a następnie kliknij przycisk Dalej.

6. Umieść punkt wstawiania w miejscu hiperłącza do stawienia się w wiadomości e-mail.

7. W menu Wstaw kliknij polecenie pole.

8. Na liście nazw pól kliknij hiperłącze, a następnie kliknij przycisk OK. Tekst o błędzie. Nieprawidłowy odsyłacz typu hiperłącze"pojawia się w dokumencie.

9. Naciśnij klawisze ALT + F9, aby otworzyć {HYPERLINK \ * MERGEFORMAT} kod pola.

10. Umieść punkt wstawiania po hiperłącze , a następnie dodać spację.

11. W menu Wstaw kliknij polecenie pole.

12. Na liście nazw pól kliknij MergeField.

13. W polu tekstowym Nazwa pola wpisz nazwę pole źródła danych, która zawiera hiperłącze, a następnie kliknij przycisk OK. Na przykład jeśli nazwa pola źródła danych jest "Address1", kod pola pojawia się w następujący sposób:

    {HIPERŁĄCZE {MERGEFIELD "Address1"} \ * MERGEFORMAT}

14. Naciśnij klawisze ALT + F9, aby zamknąć {hiperłącze {MERGEFIELD "< nazwa pola >"} \ * MERGEFORMAT} kod pola.

15. Umieść punkt wstawiania na początku "Błąd! Nieprawidłowy odsyłacz typu hiperłącze"tekst i zastąpić tekst hiperłącza, który ma być wyświetlany tekst. Na przykład należy zastąpić tekst z tekstu, takich jak Kliknij tutaj.

    Ważne Upewnij się, że nie należy usuwać całe pole.

16. Zaznacz tekst, który został wpisany w kroku 15. Na liście Styl kliknij hiperłącze.

17. W Kreatorze korespondencji seryjnej kliknij przycisk Dalej, a następnie wykonaj pozostałe kroki w Kreatorze korespondencji seryjnej, aby ukończyć proces korespondencji seryjnej.

Metoda 2: Utwórz makro, które dynamicznie modyfikuje tekst hiperłącza

Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika. Utworzyć makro, aby dynamicznie modyfikować tekst hiperłącza w wiadomości seryjnej poczty e-mail. Po wykonaniu tych kroków hiperłącza Wyświetla tekst, który jest oparty na adresie URL w źródle danych. Aby to zrobić, wykonaj następujące kroki:

1. Postępuj zgodnie z instrukcjami "Metoda 1: dodanie pola Hiperłącze wokół pola korespondencji seryjnej."

2. W menu Narzędzia wskaż polecenie makro, a następnie kliknij polecenie Edytor Visual Basic.

3. Naciśnij klawisz F7. Zostanie wyświetlone okno kodu.

4. Skopiuj i wklej następujący kod do okna kodu:

   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. W menu Narzędzia wskaż polecenie Makro, a następnie kliknij polecenie Makra.

6. Kliknij MergeToEmail, a następnie kliknij polecenie Uruchom.

Uwaga: Dla każdej wiadomości e-mail wysyłanej przy użyciu tego makra pojawi się komunikat ostrzegawczy z programu Microsoft Outlook. Aby uzyskać więcej informacji na temat tego zachowania, kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:

290498 komunikaty ostrzegawcze wykorzystywania dodatek innej firmy lub niestandardowego rozwiązania w programie Outlook 2002