Hipersaitai duomenų šaltinio laukuose konvertuojami į paprastojo teksto formatu, kai atliekate laiškų suliejimą HTML formatu "Word 2002" ir "Word 2003 el. laiškų

1 būdas: Įtraukti hipersaitą lauką apylinkės laiškų suliejimo laukas

Įtraukti hipersaitą lauką apylinkės kurti hipersaitą sulietą el. laiškų suliejimo lauką. Atlikę šiuos veiksmus, hipersaito rodomas tas pats tekstas visus el. laiškus. Be to, hipersaito prisijungia prie tinkamą duomenų šaltinio URL. Norėdami tai padaryti, atlikite šiuos veiksmus:

1. Paleisti programą Word ir atidaryti dokumentą, kurį norite sujungti su el. paštu.

2. Meniu Įrankiai nukreipkite žymiklį į laiškai ir pašto reikmenysir spustelėkite Laiškų suliejimas. Laiškų suliejimo vedlys.

3. Srityje Pasirinkite dokumento tipą, spustelėkite el. pašto pranešimų, ir spustelėkite Pirmyn.

4. Dalyje pasirinkite pradžios dokumentą, spustelėkite naudoti dabartinį dokumentą, ir tada spustelėkite Pirmyn.

5. Dalyje pasirinkti gavėjus, pasirinkti gavėjus, kuriuos norite naudoti, ir tada spustelėkite Pirmyn.

6. Perkelti žymeklį ten, kur norite įterpti hipersaitą į el. laišką.

7. Meniu Įterpti spustelėkite lauką.

8. Laukų pavadinimų sąrašą, spustelėkite hipersaitą, ir tada spustelėkite gerai. Tekstas "Klaida!" Hipersaito nuorodą negalioja"bus rodomas dokumento.

9. Paspauskite ALT + F9, kad atidarytumėte, {HIPERSAITĄ \ * MERGEFORMAT} lauko kodas.

10. Perkelti žymeklį po HIPERSAITĄ ir įveskite tarpą.

11. Meniu Įterpti spustelėkite lauką.

12. Sąraše laukų pavadinimai spustelėkite suliejimo lauką.

13. Lauko pavadinimas teksto laukas, įveskite duomenų šaltinio laukas, kuriame yra hipersaitas, ir tada spustelėkite gerai. Pavyzdžiui, jei duomenų šaltinio lauko pavadinimas yra "Address1", lauko kodas atrodo taip:

    {{MERGEFIELD "Address1"} HIPERSAITĄ \ * MERGEFORMAT}

14. Paspauskite ALT + F9, kad uždarytumėte į {{MERGEFIELD "< lauko pavadinimas >"} HIPERSAITĄ \ * MERGEFORMAT} lauko kodas.

15. Perkelti žymeklį pradžioje "Klaida!" Hipersaito nuorodą negalioja"teksto, ir perrašyti tekstą su hipersaito tekstą, kurį norite matyti. Pvz., perrašyti tekstą teksto, pvz., Spustelėkite čia.

    Svarbu. Patikrinkite, ar nėra panaikinti visą lauką.

16. Pažymėkite tekstą, kurį įrašėte atlikdami 15. Stilių sąraše spustelėkite hipersaitą.

17. Laiškų suliejimo vedlys, spustelėkite Pirmynir tada atlikite likusius veiksmus, kad laiškų suliejimo procesą laiškų suliejimo vedlys.

2 būdas: Sukurti makrokomandą, kuri dinamiškai keičia hipersaito tekstą

"Microsoft" pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami tam tikros procedūros funkcinę galimybę, tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras. Sukurti makrokomandą, jei norite dinamiškai pakeisti hipersaito tekstą į sulietą el. laiškus. Atlikę šiuos veiksmus, hipersaito rodo tekstą, kuris yra pagrįstas duomenų šaltinio URL. Norėdami tai padaryti, atlikite šiuos veiksmus:

1. Atlikite vedlyje "1 metodas: įtraukti hipersaitą lauką apylinkės laiškų suliejimo lauką."

2. Meniu Įrankiai pasirinkite makrokomandair spustelėkite Visual Basic rengyklę.

3. Paspauskite klavišą F7. Kodų langas.

4. Nukopijuokite ir įklijuokite šį kodą į kodų langas:

   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. Meniu Įrankiai pasirinkite makrokomandair spustelėkite makrokomandos.

6. Spustelėkite MergeToEmail, ir tada spustelėkite vykdyti.

Pastaba. El. pašto pranešimų, siunčiate naudodami šią makrokomandą, bus pateiktas įspėjamasis pranešimas iš "Microsoft Outlook". Jei norite gauti daugiau informacijos apie šią problemą, spustelėkite toliau straipsnio numerį ir peržiūrėkite straipsnį Microsoft žinių bazėje:

290498 jums parodomas įspėjamasis pranešimas, kai naudojate trečiosios šalies papildinys arba pasirinktinį sprendimą "Outlook 2002"