טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

כיצד לשנות באופן אוטומטי את החתימה בהתבסס על נמענים ב- Outlook?

כברירת מחדל, ל- Outlook יש פונקציה בונה למשתמשים לשנות באופן אוטומטי את החתימה בעת שליחת הודעות דוא"ל באמצעות חשבונות דוא"ל שונים. אבל מעבר לכך, כאן אני אראה לך שיטה של ​​שינוי אוטומטי החתימה מבוסס על נמענים שונים בשדה אל ב- Outlook.

שינוי חתימה המבוססת על נמענים באופן אוטומטי עם קוד VBA


השב תמיד לדוא"ל עם חשבון הדואר האלקטרוני המוגדר כברירת מחדל ב- Outlook:

אם אתה רוצה תמיד לענות דוא"ל עם ברירת המחדל של חשבון דוא"ל ב- Outlook שלך, תמיד השב עם חשבון ברירת המחדל אופציה של Kutools עבור Outlook יעשה לך טובה. ראה צילום מסך:

Kutools עבור Outlook: עם יותר מ 40 שימושי תוספות Outlook, ללא תשלום כדי לנסות ללא הגבלה 45 ימים. הורד ניסיון ללא תשלום עכשיו!


שינוי חתימה המבוססת על נמענים באופן אוטומטי עם קוד VBA

בצע את השלבים הבאים כדי להחיל חתימות שונות על נמענים מתאימים בעת שליחת הודעות דוא"ל ב- Outlook.

1. ראשית, עליך להשבית את תכונת החתימה האוטומטית המצורפת ב- Outlook. בבקשה תלחץ פילה > אפשרויות לפתוח את אפשרויות של Outlook חלון.

2. בתוך ה אפשרויות של Outlook חלון, בחר Mail בחלונית השמאלית, ולאחר מכן לחץ על חתימות כפתור ב כתוב הודעות סָעִיף. ראה צילום מסך:

3. בתוך ה חתימות ומכתבים תיבת הדו שיח, עבור אל בחר חתימת ברירת מחדל סעיף תחת חתימה על דואר אלקטרוני , בחר חשבון דוא"ל ב חשבון אימייל ברשימה הנפתחת, ולאחר מכן בחר (ללא) מ הודעות חדשות ו תגובות / מעביר רשימות נפתחות. חזור על שלבים אלה עד שכל חשבונות הדואר האלקטרוני מוגדרים (ללא). לאחר מכן לחץ על OK לַחְצָן.

הערות: ניתן גם ליצור את החתימות הדרושות שלך חתימות ומכתבים תיבת דיאלוג.

4. לחץ OK כאשר הוא מחזיר את אפשרויות של Outlook חלון.

5. לחץ על אחר + F11 מפתחות כדי לפתוח את Microsoft Visual Basic עבור יישומים חלון.

6. בתוך ה Microsoft Visual Basic עבור יישומים חלון, לחיצה כפולה זה בחלונית השמאלית כדי לפתוח את חלון קוד, ואת להעתיק מתחת קוד VBA לתוך החלון. ראה צילום מסך:

קוד VBA: שינוי אוטומטי של חתימה המבוססת על נמענים ב- Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 20180814
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xTextStream As Scripting.TextStream
Dim xSignature As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class = olMail Then
    Set xMailItem = Item
    Set xRecipients = xMailItem.Recipients
End If
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
If xRecipients.Count = 1 Then
    Set xRecipient = xRecipients.Item(1)
    xRcpAddress = xRecipient.Address
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
    End Select
End If
Set xTextStream = xFSO.OpenTextFile(xSignatureFile)
xSignature = xTextStream.ReadAll
xMailItem.HTMLBody = xMailItem.HTMLBody & "<HTML><BODY><br>" & xSignature & "</br></HTML></BODY>"
End Sub

הערות:

1. בקוד ה- VBA, החלף את "כתובת דוא"ל 1 / 2 / 3 / 4"עם כתובות דוא"ל מסוימות של הנמענים.

2. "aaa.htm""bbb.htm"ו"ccc.htm"הם החתימה שצוינה שתשלח לנמענים המתאימים.

3. במקרה זה, חתימה "aaa"יישלח אל"כתובת דוא"ל 1", חתימה"bbb"יישלח אל"כתובת דוא"ל 2"וגם"כתובת דוא"ל 3",כתובת דוא"ל 4"יקבל את הדוא"ל מוטבע עם חתימה"ccc". אנא שנה אותם בהתאם לצרכים שלך.

7. לאחר מכן לחץ על כלים > הפניות ללכת ל הפניות- Project תיבת דיאלוג. בתיבת הדו-שיח, בדוק זמן ריצה של ולאחר מכן לחץ על אישור OK כפתור, ראה צילום מסך:

8. לחץ על אחר + Q המק לסגור Microsoft Visual Basic עבור יישומים חלון.

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

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

Kutools עבור Outlook: עם יותר מ 40 שימושי תוספות Outlook, ללא תשלום כדי לנסות ללא הגבלה 45 ימים. הורד ניסיון ללא תשלום עכשיו!



Kutools עבור Outlook

יותר מ 100 פונקציות מתקדמות עבור Outlook 2010, 2013, 2016, 2019 ו- 365

צילומי מסך עבור. עבור באנר

תכונות נוספות | הורדה חינמית | רק 39.00 $ עבור מאות פונקציות

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Devansh · 15 days ago
    How would this behave if there are multiple recipients?