Hyperkoblinger i datakilde-feltene konverteres til ren tekst når du utfører en utskriftsfletting på e-postmeldinger i HTML-format i Word 2002 og Word 2003

Metode 1: Legge til et hyperkoblingsfelt rundt felt for utskriftsfletting

Legge til et hyperkoblingsfelt rundt felt for utskriftsfletting til å generere en hyperkobling i flettede e-postmeldinger. Når du har fulgt denne fremgangsmåten, viser hyperkoblingen den samme teksten i alle e-postmeldinger. I tillegg kobler hyperkoblingen til den riktige datakilde-URL. Følg denne fremgangsmåten:

1. Starte Word og åpne dokumentet som du vil flette e-post.

2. Velg Brev og masseutsendelserpå Verktøy -menyen, og klikk deretter utskriftsfletting. Veiviseren for utskriftsfletting, vises.

3. Klikk e-postmeldinger, under Velg dokumenttype, og klikk deretter Neste.

4. Under Velg basisdokumentet, klikker du Bruk gjeldende dokument.

5. Velg mottakere du vil bruke, under Velg mottakere, og klikk deretter Neste.

6. Plasser innsettingspunktet der du vil at hyperkoblingen skal vises i e-postmeldingen.

7. Klikk feltpå Sett inn -menyen.

8. Klikk hyperkoblingi feltnavn -listen, og klikk deretter OK. Teksten "Feil!" Hyperkoblingsreferanse er ikke gyldig"vises i dokumentet.

9. Trykk ALT + F9 for å åpne den {hyperkobling \ * MERGEFORMAT} feltkode.

10. Plasser innsettingspunktet etter hyperkobling og deretter legge til et mellomrom.

11. Klikk feltpå Sett inn -menyen.

12. Klikk MergeFieldi feltnavn -listen.

13. I feltnavn -boksen skriver du inn navnet på kilden datafeltet som inneholder hyperkoblingen, og klikk deretter OK. For eksempel, hvis navnet på Datakildefeltet er "Adresse1", vises feltkoden som følger:

    {HYPERKOBLING {MERGEFIELD "Adresse1"} \ * MERGEFORMAT}

14. Trykk ALT + F9 for å lukke den {hyperkobling {MERGEFIELD "< feltnavn >"} \ * MERGEFORMAT} feltkode.

15. Plasser innsettingspunktet på begynnelsen av "feil! Hyperkoblingsreferanse er ikke gyldig"tekst, og overskrive teksten med teksten i hyperkoblingen du vil skal vises. Hvis du for eksempel overskrive teksten med tekst, for eksempel Klikk her.

    Viktig Pass på at du ikke sletter hele feltet.

16. Merk teksten du skrev inn i trinn 15. Klikk hyperkoblingeni listen .

17. Klikk Nestei veiviseren for utskriftsfletting, og deretter følger du resten av trinnene i veiviseren for utskriftsfletting til å fullføre utskriftsflettingen.

Metode 2: Opprette en makro som dynamisk endrer teksten i hyperkoblingen

Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre, men de endrer ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov. Opprette en makro hvis du vil endre teksten i hyperkoblingen i flettede e-postmeldinger dynamisk. Når du har fulgt denne fremgangsmåten, viser hyperkoblingen tekst som er basert på URL-adressen i datakilden. Følg denne fremgangsmåten:

1. Følg trinnene i "metode 1: legge til et hyperkoblingsfelt rundt felt for utskriftsfletting."

2. Velg makropå Verktøy -menyen, og klikker deretter Visual Basic Editor.

3. Trykk F7. Kode-vinduet vises.

4. Kopier og Lim inn følgende kode i Kode-vinduet:

   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. Velg Makro på Verktøy-menyen, og klikk deretter Makroer.

6. Klikk MergeToEmail, og klikk deretter Kjør.

Obs! For hver e-postmelding som du sender ved hjelp av denne makroen, vises en advarsel fra Microsoft Outlook. For mer informasjon om denne virkemåten, klikker du følgende artikkelnummer for å vise artikkelen i Microsoft Knowledge Base:

290498 du mottar advarselsmeldinger når du bruker en tredjeparts-tillegg eller egendefinert løsning i Outlook 2002