Datu avota laukos hipersaites tiek pārvērsti par vienkāršu tekstu, veicot pasta sapludināšanu uz e-pasta ziņojumus HTML formātā programmā Word 2002 un Word 2003

1. metode: Pievienot hipersaites lauks saistībā ar pasta sapludināšanas lauks

Pievienojiet hipersaites lauks saistībā ar pasta sapludināšanas lauks izveidot hipersaites sapludināto e-pasta ziņojumu. Pēc šo darbību veikšanas hipersaite parāda vienu un to pašu tekstu e-pasta ziņojumos. Turklāt hipersaites izveido savienojumu ar pareizo datu avota URL. Lai to izdarītu, izpildiet tālāk norādītās darbības.

1. Startējiet programmu Word un atveriet dokumentu, kuru vēlaties sapludināt uz e-pastu.

2. Izvēlnē Rīki norādiet uz vēstules un sūtījumuun pēc tam noklikšķiniet uz pasta sapludināšana. Pasta sapludināšanas vednis tiek parādīts.

3. Zem Atlasīt dokumenta tipu, noklikšķiniet uz e-pasta ziņojumus, un pēc tam noklikšķiniet uz Tālāk.

4. Sadaļā Izvēlieties sākuma dokumentu, noklikšķiniet uz Lietot pašreizējo dokumentuun pēc tam noklikšķiniet uz Tālāk.

5. Zem Atlasīt adresātus, atlasiet adresātiem, kurus vēlaties izmantot, un pēc tam noklikšķiniet uz Tālāk.

6. Novietojiet iespraušanas punktu vietā, kur jāparādās e-pasta ziņojumā hipersaites.

7. Izvēlnē Ievietot noklikšķiniet uz lauku.

8. Lauku nosaukumiem sarakstā noklikšķiniet uz hipersaitesun pēc tam noklikšķiniet uz Labi. Tekstu "Error! Hipersaites atsauce nav derīga"parādās dokumentā.

9. Nospiediet taustiņu kombināciju ALT + F9, lai atvērtu {hipersaites \ * MERGEFORMAT} lauka kods.

10. Novietojiet iespraušanas punktu pēc hipersaites un pēc tam pievienojiet atstarpi.

11. Izvēlnē Ievietot noklikšķiniet uz lauku.

12. Lauku nosaukumiem sarakstā noklikšķiniet uz sapludināšanas lauks.

13. Lauka nosaukumu tekstlodziņā ierakstiet datu avota lauks, kas satur hipersaiti un pēc tam noklikšķiniet uz Labi. Piemēram, ja datu avota lauku nosaukums ir "Address1" lauka kods parādās:

    {{Sapludināšanas lauks "Address1"} hipersaites \ * MERGEFORMAT}

14. Nospiediet taustiņu kombināciju ALT + F9, lai aizvērtu {hipersaites {sapludināšanas lauks "< lauka nosaukums >"} \ * MERGEFORMAT} lauka kods.

15. Novietojiet iespraušanas punktu sākumā, "Error! Hipersaites atsauce nav derīga"tekstu un hipersaites tekstu, kuram jāparādās pārrakstīt tekstu. Piemēram, pārrakstiet tekstu ar tekstu, piemēram, CLICK HERE.

    Svarīgi! Pārliecinieties, ka nevar dzēst visu lauku.

16. Atlasiet tekstu, kuru ierakstījāt 15. darbībā. Stilu sarakstā noklikšķiniet uz hipersaites.

17. Pasta sapludināšanas vednī noklikšķiniet uz Tālākun pēc tam izpildiet pārējās pasta sapludināšanas vednis pabeigt pasta sapludināšanas procesu.

2. metode: Izveidot makro, kas dinamiski maina hipersaiti

Microsoft piedāvā programmēšanas piemērus norāda tikai kā piemēru, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti, taču viņi nemainīs šos piemērus, lai sniegtu skaidrāku funkcionalitāti, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām. Makro izveide, ja vēlaties dinamiski mainīt hipersaiti sapludināto e-pasta ziņojumos. Pēc šo darbību veikšanas hipersaite, parāda tekstu, kuras pamatā ir datu avota URL. Lai to izdarītu, izpildiet tālāk norādītās darbības.

1. Izpildiet "1. metode: pievienot hipersaites lauks saistībā ar pasta sapludināšanas lauks."

2. Izvēlnē Rīki norādiet uz Makro un pēc tam noklikšķiniet uz Visual Basic redaktors.

3. Nospiediet taustiņu F7. Koda logs.

4. Nokopējiet un ielīmējiet šo kodu koda logā:

   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. Izvēlnē Rīki norādiet uz makroun pēc tam noklikšķiniet uz makro.

6. Noklikšķiniet uz MergeToEmailun pēc tam noklikšķiniet uz palaist.

Piezīme. Par katru e-pasta ziņojumu nosūtīt, izmantojot šo makro, tiek parādīts brīdinājuma ziņojums programmā Microsoft Outlook. Plašāku informāciju par šo darbību, noklikšķiniet uz šī raksta numura un lasiet Microsoft zināšanu bāzes rakstu:

290498 saņemat brīdinājuma ziņojumus, izmantojot trešās puses pievienojumprogramma vai pielāgotu risinājumu programmā Outlook 2002