כיצד לבדוק את כתובות הנמענים לפני שליחה דרך Outlook?

Author: Sun Last Modified: 2025-05-30

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

בדוק כתובות לפני שליחה עם קוד VBA

בדוק כתובות לפני שליחה עם קוד VBA

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

1. לחץ על מקשי Alt + F11 כדי להפעיל את חלון Microsoft Visual Basic for Applications.

2. לחץ פעמיים על ThisOutlookSession מתוך חלון Project1 כדי לפתוח את עורך הקוד, העתק והדבק את הקוד הבא לעורך.

VBA: בדוק כתובת נמען בשדה 'אל' לפני השליחה

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xAddressArr() As Variant
Dim xAddress As String
Dim xRecipient As Recipient
Dim xPrompt As String
Dim xYesNo As Integer
Dim xDictionary As Scripting.Dictionary
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
xAddressArr = Array("example1@126.com", "example2@126.com", "example3@126.com")
For i = LBound(xAddressArr) To UBound(xAddressArr)
    xDictionary.Add xAddressArr(i), True
Next i
For Each xRecipient In Item.Recipients
    If xRecipient.Type = olTo Then
        If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
    End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
    If xAddress = "" Then
        xAddress = xDictionary.Keys(i)
    Else
        xAddress = xAddress + "; " & xDictionary.Keys(i)
    End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
  Set xRecipient = Nothing
  Set xDictionary = Nothing
End Sub

doc check recipient address before sending 1

בקוד, תוכל לשנות ("example1@126.com", "example2@126.com", "example3@126.com") לכתובות הנמענים האמיתיים שאתה צריך.

3. לאחר מכן גם בחלון Microsoft Visual Basic for Applications, לחץ על כלים > הפניות. סמן את תיבת Microsoft Scripting Runtime בדו-שיח הפניות-Project1.

doc check recipient address before sending 2

doc check recipient address before sending 3

4. לחץ על אישור ושמור את הקוד.

עכשיו, אם הנמענים שצוינו לא מופיעים בשדה 'אל' בעת שליחת אימיילים, יופיע דו-שיח שיאשר אותך האם לשלוח את האימייל.
doc check recipient address before sending 4

עם הקוד למעלה, הוא רק בודק את כתובות האימייל בשדה 'אל', אם ברצונך לבדוק גם בשדות 'אל', 'עותק' ו-'עותק מוסתר', אתה יכול להשתמש בקוד הבא.

VBA: בדוק כתובת נמען בשדות 'אל/עותק/עותק מוסתר' לפני השליחה

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim xPos As Integer
Dim xYesNo As Integer
Dim xPrompt As String
Dim xAddress As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = "example1@gmail.com"
For Each xRecipient In xRecipients
    xPos = InStr(LCase(xRecipient.Address), xAddress)
    If xPos = 0 Then
        xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
        xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
        If xYesNo = vbNo Then Cancel = True
    End If
Next xRecipient
End Sub

עם קוד זה, אין צורך לסמן את תיבת Microsoft Scripting Runtime, פשוט שמור את הקוד ישירות כדי שהוא יכנס לתוקף.

עוזר דוא"ל בינה מלאכותית ב-Outlook: תשובות חכמות יותר, תקשורת ברורה יותר (קסם בלחיצה אחת!) בחינם

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

תכונה זו תומכת:

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

תכונה זו תומכת: