Hyperlinkuri în câmpurile de sursă de date sunt convertite în text simplu, atunci când efectuați o îmbinare de corespondență în mesajele de poștă electronică în format HTML în Word 2002 şi Word 2003

Metoda 1: Adăugați un câmp hyperlink în jurul câmpul de îmbinare a corespondenței

Adăugați un câmp hyperlink în jurul câmpul de îmbinare a corespondenței pentru a genera un hyperlink în mesajele de poștă electronică îmbinate. După ce urmați acești pași, hyperlink afișează text aceeași în toate mesajele de poștă electronică. În plus, hyperlinkul se conectează la URL-ul sursă de date corecte. Pentru a face acest lucru, urmați acești pași:

1. Porniți Word și deschideți documentul pe care doriți să o îmbinare de poştă electronică.

2. În meniul Instrumente , indicați spre scrisori şi corespondenţă, și apoi faceți clic pe îmbinare a corespondenței. Se afișează Expertul de îmbinare a corespondenței.

3. Sub Selectați tipul de document, mesajele de poștă electronică, și apoi faceți clic pe Următorul.

4. Sub Selectați documentul de pornire, utilizează documentul curent, și apoi faceți clic pe Următorul.

5. Sub Selectați destinatari, selectați destinatari pe care doriți să utilizați și apoi faceți clic pe Următorul.

6. Plasați punctul de inserare unde doriţi hyperlink să apară în mesajul de poștă electronică.

7. În meniul Inserare , faceți clic pe câmp.

8. În lista de nume de domeniu , faceți clic pe Hyperlink, și apoi faceți clic pe OK. Textul "eroare! Referință hyperlink not valid"apare în document.

9. Apăsați ALT + F9 pentru a deschide {HYPERLINK \ * MERGEFORMAT} cod câmp.

10. Puneți punctul de inserare după HYPERLINK și apoi adăugați un spațiu.

11. În meniul Inserare , faceți clic pe câmp.

12. În lista de nume de domeniu , faceți clic pe Îmbinare.

13. În caseta de text nume de domeniu , tastați numele de câmpul sursă de date care conţine hyperlink-ul și apoi faceți clic pe OK. De exemplu, dacă numele câmpul sursă de date este "Address1", codul de câmp apare astfel:

    {{Îmbinare "Address1"} HYPERLINK \ * MERGEFORMAT}

14. Apăsați ALT + F9 pentru a închide {HYPERLINK {îmbinare "< nume >"} \ * MERGEFORMAT} cod câmp.

15. Plasați punctul de inserare la începutul "eroare! Referință hyperlink not valid"text, şi suprascrie textul cu hyperlink textul pe care doriți să apară. De exemplu, suprascrie textul cu text, cum ar fi CLICK aici.

    Important Asigurați-vă că să nu ștergeți întregul domeniu.

16. Selectaţi textul pe care ați tastat în pasul 15. În lista de stil , faceți clic pe Hyperlink.

17. În Expertul de îmbinare a corespondenței, faceți clic pe Următorul, și apoi urmați pașii rămași în Expertul de îmbinare a corespondenței pentru a termina procesul de îmbinare a corespondenței.

Metoda 2: Crearea unei macrocomenzi care modifică dinamic textul hyperlink

Microsoft furnizează exemple de programare scop ilustrativ, fără nicio garanţie explicită sau implicită. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau de potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este prezentat şi cu instrumentele utilizate pentru a crea şi a depana proceduri. Specialiștii în asistență Microsoft pot ajuta la explicarea funcționalității unei anumite proceduri, dar nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară sau pentru a construi proceduri pentru a răspunde cerințelor dvs. specifice. Creați o macrocomandă, dacă doriți să modificați dinamic textul hyperlink în mesajele de poștă electronică îmbinate. După ce urmați acești pași, hyperlink afișează text care se bazează pe URL-ul din sursa de date. Pentru a face acest lucru, urmați acești pași:

1. Urmați pașii din "metoda 1: adăugați un câmp hyperlink în jurul câmpul de îmbinare a corespondenței."

2. În meniul Instrumente, indicați spre Macrocomenzi și apoi faceți clic pe Visual Basic Editor.

3. Apăsați F7. Apare fereastra de cod.

4. Copiați și lipiți următorul cod în fereastra de cod:

   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. În meniul Instrumente , indicați spre macrocomenziși apoi faceți clic pe macrocomenzi.

6. MergeToEmail, și apoi faceți clic pe executare.

Notă Pentru fiecare mesaj de poștă electronică când trimiteți utilizând această macrocomandă, apare un mesaj de avertizare din Microsoft Outlook. Pentru mai multe informații despre acest comportament, faceți clic pe următorul număr de articol pentru a vedea articolul în baza de cunoștințe Microsoft:

290498 primiți mesaje de avertizare când utilizați un program de completare terț sau soluțiilor particularizate în Outlook 2002