Гіперпосилання в поля з джерела даних перетворюються на звичайний текст, під час виконання злиття електронних листів у форматі HTML, у Word 2002 та Word 2003

Спосіб 1:, Додайте поля гіперпосилання навколо поле злиття

Додати поле гіперпосилання навколо поле злиття, щоб створити гіперпосилання на злиття повідомлень. Після виконання цих дій, гіперпосилання відображається текст у повідомленнях електронної пошти. Крім того, гіперпосилання підключення URL-адреса джерела правильні дані. Щоб це зробити, виконайте такі дії:

1. Запустіть програму Word і відкрийте документ для злиття електронної пошти.

2. У меню " Сервіс " пункт листий розсилки та клацніть злиття. Майстер злиття відображається.

3. У розділі Виберіть тип документаклацніть повідомлення електронної поштиі натисніть кнопку Далі.

4. У розділі, вибрати стартовий документвиберіть, за допомогою поточного документаі натисніть кнопку Далі.

5. У розділі, вибрати одержувачіввибрати одержувачів, який потрібно використовувати і натисніть кнопку Далі.

6. Помістити курсор, де потрібно гіперпосилання в повідомленні електронної пошти.

7. У меню Вставка команду " поле".

8. В області списку клацніть посиланнята натисніть кнопку OK. Текст "помилка! Недійсні посилання гіперпосилання", що відображається в документі.

9. Натисніть сполучення клавіш ALT + F9, щоб відкрити на {ГІПЕРПОСИЛАННЯ \ * MERGEFORMAT} код поля.

10. Помістити курсор після ГІПЕРПОСИЛАННЯ та додавання пробілу.

11. У меню Вставка команду " поле".

12. В області списку натисніть кнопку " MergeField".

13. У текстовому полі ім'я поля введіть ім'я поле джерела даних, який містить посилання та натисніть кнопку OK. Наприклад, якщо ім'я поля Джерело даних "Address1" код поля матиме такий вигляд:

    {ГІПЕРПОСИЛАННЯ {MERGEFIELD "Address1"} \ * MERGEFORMAT}

14. Натисніть сполучення клавіш ALT + F9, щоб закрити на {ГІПЕРПОСИЛАННЯ {MERGEFIELD "< ім'я" поля ">"} \ * MERGEFORMAT} код поля.

15. Курсор на початку "помилка! Недійсні посилання гіперпосилання", текст і замінити текст відображається текст гіперпосилання. Наприклад, замінити текст тексту, наприклад, Клацніть тут.

    Увага! Переконайтеся, що не видаляйте всієї області.

16. Виділіть текст, введене на кроці 15. У списку стилів натисніть кнопку " гіперпосилання".

17. У вікні майстра злиття клацніть Даліта Дотримуйтесь подальшіх вказівок майстра злиття, щоб завершити процес злиття.

Спосіб 2., Створення макросів, що динамічно змінює, текст гіперпосилання

Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації без гарантії або, – прямих або непрямих. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури, але вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів. Створення макросу, якщо ви бажаєте динамічно, змінити текст гіперпосилання злиття електронної пошти. Після виконання цих дій, гіперпосилання, відображається текст, який залежить від URL-адресу джерела даних. Щоб це зробити, виконайте такі дії:

1. Виконайте дії, наведені в «спосіб 1: Додати поле гіперпосилання навколо поле злиття. "

2. У меню " Сервіс " макросі виберіть Редактор Visual Basic.

3. Клавішу F7. З'явиться вікно з кодом.

4. Скопіюйте та вставте наступний код у вікно коду.

   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. У меню " Сервіс " макросі виберіть макроси.

6. Виберіть MergeToEmailі клацніть запустити.

Примітка Для кожного повідомлення електронної пошти, які надсилаються за допомогою цього макросу з'являється попередження з Microsoft Outlook. Щоб отримати додаткові відомості про цю проблему, клацніть номер статті в базі знань Microsoft Knowledge Base:

290498 з'являється попереджувальне повідомлення під час використання надбудови сторонніх виробників або спеціальних рішень у програмі Outlook 2002