Hypertextové odkazy v polích zdroje dat jsou převedeny do formátu prostého textu při provádění hromadné korespondence na e-mailové zprávy ve formátu HTML v aplikaci Word 2002 a Word 2003

Metoda 1: Přidání hypertextového odkazu pole kolem pole hromadné korespondence

Přidání hypertextového odkazu pole kolem pole hromadné korespondence k vytvoření hypertextového odkazu sloučených e-mailových zpráv. Po provedení těchto kroků hypertextový odkaz zobrazí stejný text v e-mailové zprávy. Hypertextový odkaz se navíc připojí k zdrojová adresa URL správná data. Chcete-li to provést, postupujte takto:

1. Spusťte aplikaci Word a otevřete dokument, který chcete sloučit do e-mailu.

2. V nabídce Nástroje přejděte na příkaz Dopisy a korespondencea klepněte na příkaz Hromadná korespondence. Zobrazí se Průvodce hromadnou korespondencí.

3. Ve skupinovém rámečku Vyberte typ dokumentuklepněte na tlačítko e-mailové zprávya potom klepněte na tlačítko Další.

4. Ve skupinovém rámečku Vybrat počáteční dokumentklepněte na přepínač Použít aktuální dokumenta klepněte na tlačítko Další.

5. Ve skupinovém rámečku Výběr příjemcůvyberte příjemce, které chcete použít a potom klepněte na tlačítko Další.

6. Umístěte kurzor na místo, kam chcete vložit hypertextový odkaz v e-mailové zprávy.

7. V nabídce Vložit klepněte na příkaz pole.

8. V seznamu názvy polí klepněte na příkaz hypertextový odkaza potom klepněte na tlačítko OK. Text "Chyba!" Odkaz není platný"se zobrazí v dokumentu.

9. Stiskněte klávesy ALT + F9 otevřete {HYPERLINK \ * MERGEFORMAT} kód pole.

10. Umístěte kurzor za hypertextový odkaz a potom přidejte mezeru.

11. V nabídce Vložit klepněte na příkaz pole.

12. V seznamu názvy polí klepněte na položku MergeField.

13. Do textového pole název pole zadejte název pole zdroje dat, který obsahuje hypertextový odkaz a potom klepněte na tlačítko OK. Například pokud je název pole zdroje dat "Adresa1", kód se zobrazí následovně:

    {HYPERLINK {MERGEFIELD "Adresa1"} \ * MERGEFORMAT}

14. Stiskněte klávesy ALT + F9 Zavřít {hypertextový odkaz {MERGEFIELD "< název pole >"} \ * MERGEFORMAT} kód pole.

15. Umístěte kurzor na začátek "Chyba! Odkaz není platný"text a text přepsat text hypertextového odkazu, který chcete zobrazit. Například přepsat text s textem, jako je například KLIKNĚTE zde.

    Důležité: Přesvědčte se, zda odstranění celé pole.

16. Vyberte text, který jste zadali v kroku 15. V seznamu styl klepněte na tlačítko hypertextový odkaz.

17. V Průvodci hromadnou korespondencí klepněte na tlačítko Dalšía potom postupujte podle pokynů v Průvodci hromadnou korespondencí k dokončení procesu hromadné korespondence.

Metoda 2: Vytvoření makra, které dynamicky mění text hypertextového odkazu

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo odvozené. To zahrnuje, ale není omezen pouze na předpokládané záruky obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předmětem ukázky a s nástroji, které slouží k vytvoření a ladění skriptu. Pracovníci podpory společnosti Microsoft mohou pomoci vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo vytvářet postupy podle vašich konkrétních požadavků. Vytvořit makro, pokud chcete dynamicky změnit text hypertextového odkazu ve sloučených e-mailů. Po provedení těchto kroků hypertextový odkaz zobrazí text, který je založen na adresu URL ve zdroji dat. Chcete-li to provést, postupujte takto:

1. Postupujte podle kroků v "metoda 1: Přidání hypertextového odkazu pole kolem pole hromadné korespondence."

2. V nabídce Nástroje přejděte na příkaz makroa potom klepněte na příkaz Editor jazyka Visual Basic.

3. Stisknutím klávesy F7. Zobrazí se okno kód.

4. Zkopírujte a vložte následující kód do okna kódu:

   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. V nabídce Nástroje přejděte na příkaz makroa potom klepněte na příkaz makra.

6. Klepněte na tlačítko MergeToEmaila potom klepněte na příkaz Spustit.

Poznámka: Pro každý e-mailové zprávy odeslané pomocí tohoto makra zobrazí se upozornění z aplikace Microsoft Outlook. Další informace o tomto chování klepněte na následující číslo článku databáze Microsoft Knowledge Base:

290498 upozornění se zobrazí při použití doplněk od jiného výrobce nebo vlastního řešení v aplikaci Outlook 2002