Andmeallika väljadega hüperlingid teisendatakse lihttekstiks kirjakooste tegemisel rakenduses Word 2002 ja Word 2003 HTML-vormingus e-kirju

1. meetod: Lisa hüperlink väli ümber kirjakooste välja

Lisab hüperlingi välja umbes kirjakooste valdkonnas luua hüperlingi ühendatud e-kirju. Pärast nende juhiste järgimist hüperlingi sama tekst kuvatakse e-kirju. Lisaks hüperlinki ühendub õiged andmed allikas URL-i. Selleks toimige järgmiselt.

1. Käivitage Word ja avage dokument, mida soovite ühendada e-posti teel.

2. Menüü Tööriistad käsk kirjad ja postitusedja klõpsake seejärel käsku Kirjakooste. Kirjakoosteviisard kuvatakse.

3. Alusel Dokumenditüübi valimine, klõpsake e-kirjuja klõpsake nuppu edasi.

4. All selle avadokumendi valimine, klõpsake Kasuta praegust dokumentija seejärel klõpsake nuppu edasi.

5. Jaotises adressaatide valimine, valige adressaadid, mida soovite kasutada ja seejärel klõpsake nuppu edasi.

6. Asetage järjepunkt, kuhu soovite hüperlingi kuvada meilisõnumi.

7. Klõpsake menüü Lisa käsku väli.

8. Loendis nimed klõpsake hüperlinkija seejärel klõpsake nuppu OK. Teksti "Tõrge!" Dokumendis kuvatakse hüperlingi viide ei kehti".

9. Vajutage klahvikombinatsiooni ALT + F9 avamiseks ning {HÜPERLINGI \ * MERGEFORMAT} välja kood.

10. Asetage järjepunkt pärast hüperlink ja seejärel lisage tühik.

11. Klõpsake menüü Lisa käsku väli.

12. Klõpsake loendis nimedMergeField.

13. Välja nimi tekstiväljale hüperlinki sisaldav andmeväli allika nimi ja seejärel klõpsake nuppu OK. Näiteks kui andmeallika välja nimi on "Address1", välja kood kuvatakse järgmiselt:

    {{MERGEFIELD "Address1"} HÜPERLINGI \ * MERGEFORMAT}

14. Vajutage klahvikombinatsiooni ALT + F9 sulgemiseks on {HÜPERLINGI {MERGEFIELD "< välja nimi >"} \ * MERGEFORMAT} välja kood.

15. Asetage järjepunkt alguses on "Error! Hüperlingi viide ei kehti"tekst ja teksti hüperlingi teksti, mida soovite üle kirjutada. Näiteks üle teksti tekstiga nt Klõpsake siin.

    NB! Veenduge, et kustutate kogu välja.

16. Valige tekst, mille tippisite käesoleva 15. Klõpsake loendis Laadihüperlink.

17. Kirjakooste viisardit, klõpsake nuppu edasija järgige juhiseid Kirjakoosteviisard kirjakooste lõpule viia.

2. meetod: Hüperlingi teksti dünaamiliselt muutva Makro loomine

Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri funktsiooni selgitada, kuid ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele. Kui tahate dünaamiliselt muuta hüperlingi tekst ühendatud meilisõnumite Makro loomine. Pärast nende juhiste täitmist kuvatakse hüperlingi teksti, mis põhineb andmeallika URL-i. Selleks toimige järgmiselt.

1. Järgige juhiseid "1. meetod: lisada hüperlingi välja umbes kirjakooste valdkonnas."

2. Menüü Tööriistad käsk makroja klõpsake siis käsku Visual Basic Editor.

3. Vajutage klahvi F7. Kood aken.

4. Kopeerige ja kleepige järgmine kood akna kood:

   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. Menüü Tööriistad käsk makroja seejärel klõpsake käsku makrod.

6. Klõpsake MergeToEmailja seejärel klõpsake nuppu Käivita.

Märkus. Iga e-kirja, et saadate selle makro abil, kuvatakse hoiatusteade kuvatakse Microsoft Outlooki kaudu. Selle käitumise kohta lisateabe saamiseks klõpsake Microsofti teabebaasi (Knowledge Base) artikli kuvamiseks järgmist artiklinumbrit:

290498 saate hoiatusteate kolmanda osapoole lisandmoodul või kohandatud lahenduse Outlook 2002 kasutamisel