היפר-קישורים בשדות מקור הנתונים עוברים המרה לטקסט רגיל בעת ביצוע מיזוג דואר על הודעות דואר אלקטרוני בתבנית HTML ב- Word 2002 או Word 2003

שיטה 1: הוספת שדה היפר-קישור סביב שדה מיזוג דואר

הוסף שדה היפר-קישור סביב שדה מיזוג דואר כדי ליצור היפר-קישור בהודעות דואר אלקטרוני ממוזגות. לאחר ביצוע שלבים אלה, ההיפר-קישור יציג את הטקסט זהה בכל הודעות הדואר האלקטרוני. בנוסף, ההיפר-קישור מתחבר אל כתובת ה-URL של מקור הנתונים הנכונים. לשם כך, בצע את הפעולות הבאות:

1. הפעלת Word ולאחר מכן פתח את המסמך שברצונך למזג דואר אלקטרוני.

2. בתפריט כלים , הצבע על מכתבים ודברי דוארולאחר מכן לחץ על מיזוג דואר. מופיע אשף מיזוג דואר.

3. תחת בחירת סוג מסמך, לחץ על הודעות דואר אלקטרוניולאחר מכן לחץ על הבא.

4. תחת בחר את המסמך ההתחלתי, לחץ על השתמש במסמך הנוכחיולאחר מכן לחץ על הבא.

5. תחת בחירת נמענים, בחר את הנמענים שברצונך להשתמש ולאחר מכן לחץ על הבא.

6. מקם את נקודת הכניסה במקום בו ברצונך שההיפר-קישור יופיע בהודעת הדואר האלקטרוני.

7. בתפריט הוספה , לחץ על שדה.

8. ברשימה שמות שדות , לחץ על ההיפר-קישורולאחר מכן לחץ על אישור. הטקסט "שגיאה! הפניית היפר-קישור לא חוקי"מופיע במסמך.

9. הקש ALT + F9 כדי לפתוח {היפר-קישור \ * MERGEFORMAT} קוד שדה.

10. מקם את נקודת הכניסה אחרי היפר-קישור ולאחר מכן הוסף רווח.

11. בתפריט הוספה , לחץ על שדה.

12. ברשימה שמות שדות , לחץ על MergeField.

13. בתיבת הטקסט שם שדה , הקלד את השם של שדה מקור הנתונים המכיל את ההיפר-קישור ולאחר מכן לחץ על אישור. לדוגמה, אם השם של שדה מקור הנתונים "כתובת1", קוד השדה הוא כדלקמן:

    {היפר-קישור {MERGEFIELD "כתובת1"} \ * MERGEFORMAT}

14. הקש ALT + F9 כדי לסגור {היפר-קישור {MERGEFIELD "< שם שדה >"} \ * MERGEFORMAT} קוד שדה.

15. מקם את נקודת הכניסה בתחילת "השגיאה! טקסט היפר-קישור הפניה לא חוקית", והחלף את הטקסט עם טקסט ההיפר-קישור שברצונך שיופיע. לדוגמה, החלף את הטקסט עם טקסט כגון לחץ כאן.

    חשוב ודא כי אינך מוחק את השדה כולו.

16. בחר את הטקסט שהקלדת בשלב 15. ברשימה סגנון , לחץ על היפר-קישור.

17. באשף מיזוג הדואר, לחץ על הבאולאחר מכן בצע את השלבים הנותרים באשף מיזוג דואר כדי להשלים את תהליך מיזוג הדואר.

שיטה 2: יצירת מאקרו באופן דינמי משנה את הטקסט של היפר-קישור

מיקרוסופט מציעה דוגמאות תכנות לצורך ההדגמה בלבד, ללא אחריות, בין מפורשת ובין משתמעת. זה כולל, אך אינו מוגבל ל, אחריות מכללא לגבי סחירות או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התכנות המודגמת ובקי בהפעלת הכלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של פרוצדורה מסוימת, אך הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או כדי לבנות פרוצדורות שיענו על צרכיך הספציפיים. צור מאקרו אם ברצונך לשנות באופן דינאמי את טקסט ההיפר-קישור בהודעות הדואר האלקטרוני הממוזג שלך. לאחר ביצוע שלבים אלה, ההיפר-קישור יציג טקסט המבוסס על כתובת ה-URL במקור הנתונים. לשם כך, בצע את הפעולות הבאות:

1. בצע את השלבים בסעיף "שיטה 1: הוספת שדה היפר-קישור סביב שדה מיזוג דואר."

2. בתפריט כלים , הצבע על מאקרוולאחר מכן לחץ על עורך Visual Basic.

3. הקש F7. מופיע חלון הקוד.

4. העתק והדבק את הקוד הבא לתוך חלון הקוד:

   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. בתפריט כלים , הצבע על מאקרוולאחר מכן לחץ על פקודות מאקרו.

6. לחץ על MergeToEmailולאחר מכן לחץ על הפעל.

הערה עבור כל הודעת דואר אלקטרוני שאתה שולח באמצעות מאקרו זה, מופיעה הודעת אזהרה מתוך Microsoft Outlook. לקבלת מידע נוסף אודות אופן פעולה זה, לחץ על מספר המאמר הבא כדי להציג את המאמר הרלוונטי מתוך Microsoft Knowledge Base:

290498 תקבל הודעות אזהרה כאשר אתה משתמש תוספת של ספקים חיצוניים או פתרון מותאם אישית ב- Outlook 2002