當您在 Word 2002 和 Word 2003 中的 HTML 格式的電子郵件訊息上執行 [合併列印時,將會轉換成純文字的資料來源欄位中的超連結

摘要

當您執行合併列印至電子郵件以 HTML 格式,Microsoft Word 2002 或 Microsoft Office Word 2003 中時,資料來源欄位中的超連結會以純文字形式出現,而非使用中。本文說明兩種方法可以解決這個問題。

狀況

當使用 [合併列印精靈,或使用 [合併到電子郵件] 指令,Microsoft Word 2002 中,或在 Microsoft Office Word 2003 中,您可以執行以 HTML 格式的電子郵件訊息上的 [合併列印時,則資料來源欄位中的超連結會轉換為純文字。

因應措施

要解決這個問題,請使用下列方法,根據您的情況。

方法 1: 新增 [合併列印欄位周圍的超連結] 欄位

新增 [合併列印欄位,來產生合併的電子郵件訊息中的超連結周圍的超連結] 欄位。請遵循下列步驟後,超連結就會顯示相同的文字中所有的電子郵件訊息。此外,超連結會連線到正確的資料的來源 URL。若要執行這項操作,請參考下列步驟:

  1. 啟動 Word,並開啟您想要合併到電子郵件的文件。

  2. 在 [工具] 功能表中,指向 [信件與郵件],然後按一下 [郵件合併]。[合併列印精靈隨即出現。

  3. 選取文件類型] 底下按一下 [電子郵件,,,然後按一下 [下一步

  4. 在 [選取開始文件中,按一下 [使用目前的文件],然後按一下下一步]

  5. 在 [選取收件者],選取您想要使用的收件者,然後按 [下一步

  6. 將插入點,您想要在電子郵件訊息中顯示超連結。

  7. 按一下 [插入] 功能表的 [欄位]。

  8. 在 [欄位名稱] 清單中,按一下 [超連結,,然後按一下[確定]。文字 「 錯誤 !超連結參照不正確"會出現在文件中。

  9. 按 ALT + F9,以開啟{超連結 \ * 原}欄位程式碼。

  10. 將插入點放在超連結後,再加上空格。

  11. 按一下 [插入] 功能表的 [欄位]。

  12. 在 [欄位名稱] 清單中,按一下 [當合併欄位]。

  13. 在 [欄位名稱] 文字方塊中,輸入包含超連結,與資料來源欄位的名稱,然後按一下[確定]。 例如,如果 [資料來源] 欄位的名稱是"Address1",功能變數代碼會出現,如下所示:

    {{MERGEFIELD"Address1"} 的超連結 \ * 原}

  14. 按 ALT + F9 鍵來關閉{{MERGEFIELD"< 欄位名稱 >"} 的超連結 \ * 原}欄位程式碼。

  15. 將插入點放在開始時的 「 錯誤 !超連結參照不正確 」 的文字,並以您想要顯示的超連結文字覆寫的文字。按這裡」 等文字,比方說,覆寫的文字。

    重要請確定您不需刪除整個欄位。

  16. 選取步驟 15 中所鍵入的文字。在 [樣式] 清單中,按一下 [超連結]。

  17. 在 [合併列印精靈中,按一下 [下一步,並依照 [合併列印精靈完成合併列印程序中的其餘步驟。

方法 2: 建立動態修改超連結文字的巨集

Microsoft 提供程式設計範例僅供說明,不做任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序中,功能,但它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。建立的巨集,如果您想要以動態方式修改合併的電子郵件訊息中的超連結文字。請遵循下列步驟後,超連結會顯示根據資料來源中的 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 知識庫 」 中的文:

290498您收到警告訊息當您在 Outlook 2002 中使用協力廠商增益集或自訂解決方案

狀態

需要更多協助?

擴展您的技能
探索訓練
優先取得新功能
加入 Microsoft 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與我們的其中一個 Office 支援專員連絡以深入了解您的意見。

×