Når du udfører en brevfletning på mails i HTML-format i Microsoft Word, vises links i datakildefelter som almindelig tekst og er inaktive. I denne artikel beskrives to metoder til at løse dette problem.
Metode 1: Tilføje et linkfelt rundt om brevfletningsfeltet
Tilføj et linkfelt rundt om brevfletningsfeltet for at oprette et link i de flettede mails. Når du har fulgt disse trin, viser linket den samme tekst i alle mails. Desuden opretter linket forbindelse til den korrekte URL-adresse til datakilden.
Det kan du gøre ved at følge disse trin:
-
Start Word, og åbn det dokument, du vil flette til mail.
-
På fanen Forsendelser på båndet skal du vælge Start brevfletning. Vælg guiden Trinvis brevfletning... og guiden Brevfletning vises i højre side.
-
Under Vælg dokumenttype skal du vælge Mails og derefter vælge Næste.
-
Under Vælg startdokumentet skal du vælge Brug det aktuelle dokument og derefter vælge Næste.
-
Vælg de modtagere, du vil bruge, under Vælg modtagere, og vælg derefter Næste.
-
Placer indsætningspunktet på det sted, hvor linket skal vises i mailen.
-
Vælg Felt i menuen Hurtige dele i sektionen Tekst på fanen Indsæt bånd.
-
Vælg Link på listen Feltnavne, og vælg derefter OK. Teksten "Fejl! Linkreferencen er ugyldig" vises i dokumentet.
-
Tryk på Alt+F9 for at åbne feltkoden { HYPERLINK \* MERGEFORMAT }.
-
Placer indsætningspunktet efter HYPERLINK, og tilføj derefter et mellemrum.
-
Vælg Indsæt fletfelt i menuen Hurtige dele i sektionen Tekst på fanen Indsæt bånd.
-
Vælg MergeField på listen Feltnavne.
-
Skriv navnet på det datakildefelt, der indeholder linket, i tekstfeltet Feltnavn , og vælg derefter OK. Hvis f.eks. navnet på datakildefeltet er "Adresse1", vises feltkoden som følger:
{ HYPERLINK { MERGEFIELD "Address1" } \* MERGEFORMAT }
-
Tryk på Alt+F9 for at lukke feltkoden { HYPERLINK { MERGEFIELD "<Feltnavn>" } \* MERGEFORMAT }.
-
Placer indsætningspunktet i starten af "Fejl! Linkreferencen er ikke gyldig" tekst og overskriver teksten med den linktekst, der skal vises. Overskriv f.eks. teksten med tekst, f.eks. KLIK HER.
Vigtigt!: Sørg for, at du ikke sletter hele feltet.
-
Markér den tekst, du skrev i trin 15. Vælg på nederste højre afsløringsknap i sektionen Typografier på fanen Hjem på båndet, og vælg derefter Link.
-
Vælg Næste i guiden Brevfletning, og følg derefter de resterende trin i guiden Brevfletning for at fuldføre brevfletningsprocessen.
Metode 2: Oprette en makro, der dynamisk ændrer teksten i linket
Microsoft leverer kun programmeringseksempler som illustration uden garanti, hverken udtrykt eller underforstået. Dette omfatter, men er ikke begrænset til, stiltiende garantier for salgbarhed eller egnethed til et bestemt formål. I denne artikel antages det, at du er bekendt med det programmeringssprog, der demonstreres, og med de værktøjer, der bruges til at oprette og fejlfinde procedurer.
Microsofts supportteknikere kan hjælpe med at forklare funktionaliteten af en bestemt procedure, men de vil ikke ændre disse eksempler for at give ekstra funktionalitet eller konstruere procedurer, der opfylder dine specifikke krav. Opret en makro, hvis du dynamisk vil ændre teksten i linket i de flettede mails.
Når du har fulgt disse trin, viser linket tekst, der er baseret på URL-adressen i datakilden. Det kan du gøre ved at følge disse trin:
-
Følg trinnene i "Metode 1: Tilføj et linkfelt rundt om brevfletningsfeltet".
-
Peg på Makro i menuen Funktioner, og vælg derefter Visual Basic Editor.
-
Tryk på F7. Kodevinduet vises.
-
Kopiér og indsæt følgende kode i kodevinduet:
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 -
Peg på Makro i menuen Funktioner, og vælg derefter Makroer.
-
Vælg MergeToEmail, og vælg derefter Kør.
Bemærk!: Der vises en advarselsmeddelelse fra Microsoft Outlook for hver mail, du sender ved hjælp af denne makro.
Advarsel!: Microsoft har bekræftet, at denne fejl forekommer i de Microsoft-produkter, der er angivet i afsnittet "Gælder for".
Flere oplysninger
Du kan finde flere oplysninger om, hvordan du bruger brevfletningsfunktionen til at oprette mails, ved at gå til: Sådan bruges brevfletning til at oprette mails i Word 2002.
Du kan finde flere oplysninger om, hvordan du får hjælp til Visual Basic for Applications, ved at gå til:
305326 Liste over programmeringsressourcer til Visual Basic for Applications
