При выполнении слияния с сообщениями электронной почты в формате HTML в Microsoft Word гиперссылки в полях источника данных отображаются как обычный текст и неактивны. В этой статье описаны два метода решения этой проблемы.
Метод 1. Добавление поля гиперссылки вокруг поля слияния
Добавьте поле гиперссылки вокруг поля слияния, чтобы создать гиперссылку в объединенных сообщениях электронной почты. После выполнения этих действий гиперссылка отображает один и тот же текст во всех сообщениях электронной почты. Кроме того, гиперссылка подключается к правильному URL-адресу источника данных.
Для этого выполните следующие действия:
-
Запустите Word и откройте документ, который нужно объединить с электронной почтой.
-
На вкладке Рассылки на ленте выберите Начать слияние. Выберите Пошаговый мастер слияния... в правой части появится мастер слияния.
-
В разделе Выберите тип документа выберите Сообщения электронной почты, а затем нажмите кнопку Далее.
-
В разделе Выберите начальный документ выберите Использовать текущий документ, а затем нажмите кнопку Далее.
-
В разделе Выберите получателей выберите получателей, которые вы хотите использовать, а затем нажмите кнопку Далее.
-
Поместите точку вставки в то место, где гиперссылка будет отображаться в сообщении электронной почты.
-
В меню Быстрые части в разделе Текст вкладки Вставка ленты выберите Поле.
-
В списке Имена полей выберите Гиперссылка, а затем нажмите кнопку ОК. Текст "Error! Ссылка на гиперссылку недопустимая" отображается в документе.
-
Нажмите клавиши ALT+F9 , чтобы открыть код поля { HYPERLINK \* MERGEFORMAT }.
-
Поместите точку вставки после гиперссылки, а затем добавьте пробел.
-
В меню Быстрые части в разделе Текст вкладки Вставка ленты выберите Вставить поле слияния.
-
В списке Имена полей выберите MergeField.
-
В текстовом поле Имя поля введите имя поля источника данных, содержащего гиперссылку, и нажмите кнопку ОК. Например, если имя поля источника данных — Address1, код поля будет выглядеть следующим образом:
{ ГИПЕРССЫЛКА { MERGEFIELD "Address1" } \* MERGEFORMAT } }
-
Нажмите клавиши ALT+F9, чтобы закрыть код поля { HYPERLINK { MERGEFIELD "<Имя поля>" } \* MERGEFORMAT } .
-
Поместите точку вставки в начало "Error! Ссылка на гиперссылку недопустимый текст и перезапись текста гиперссылки, который вы хотите показать. Например, перезапишите текст таким текстом, как CLICK HERE.
Важно: Убедитесь, что вы не удалили все поле.
-
Выделите текст, введенный на шаге 15. Нажмите кнопку раскрытия в правом нижнем углу в разделе Стили на вкладке Главная на ленте, а затем выберите Гиперссылка.
-
В мастере слияния нажмите кнопку Далее, а затем выполните действия, оставшиеся в мастере слияния, чтобы завершить процесс слияния.
Метод 2. Создание макроса, динамически изменяющего текст гиперссылки
Корпорация Майкрософт предоставляет примеры программирования только для иллюстраций без гарантий, выраженных или подразумеваемых. Это включает, помимо прочего, подразумеваемые гарантии товарной пригодности или пригодности для конкретной цели. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, используемыми для создания и отладки процедур.
Инженеры службы поддержки Майкрософт могут помочь объяснить функциональность конкретной процедуры, но они не будут изменять эти примеры, чтобы предоставить дополнительные функциональные возможности или создать процедуры в соответствии с вашими конкретными требованиями. Создайте макрос, если вы хотите динамически изменять текст гиперссылки в объединенных сообщениях электронной почты.
После выполнения этих действий гиперссылка отображает текст, основанный на URL-адресе источника данных. Для этого выполните следующие действия:
-
Выполните действия, описанные в разделе "Метод 1. Добавление поля гиперссылки вокруг поля слияния".
-
В меню Сервис наведите указатель мыши на пункт Макрос, а затем выберите Редактор Visual Basic.
-
Нажмите клавишу F7. Откроется окно кода.
-
Скопируйте и вставьте следующий код в окно кода:
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 -
В меню Сервис наведите указатель мыши на пункт Макрос, а затем выберите Макросы.
-
Выберите MergeToEmail и нажмите кнопку Выполнить.
Примечание: Для каждого сообщения электронной почты, отправляемого с помощью этого макроса, отображается предупреждающее сообщение из Microsoft Outlook.
Предупреждение: Корпорация Майкрософт подтвердила, что это ошибка в продуктах Майкрософт, перечисленных в разделе "Применимо к".
Дополнительная информация
Дополнительные сведения об использовании функции слияния для создания сообщений электронной почты см. в статье Использование слияния для создания сообщений электронной почты в Word 2002.
Дополнительные сведения о том, как получить справку по Visual Basic для приложений, см. по следующим причинам:
305326 Список ресурсов по программированию для Visual Basic для приложений
