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

or

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

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

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

השב לכולם לא לכלול את עצמי ב- Outlook

כאשר אנו משתמשים בתגובה לכל הפונקציות ב- Outlook, אנו עשויים להוסיף את החשבונות שלנו אל שדה גם אם הודעות הדוא"ל שאתה מקבל מכיל עוד שני חשבונות שלך. במקרה זה, ייתכן שתרצה להסיר את החשבונות שלך משדות אל ו- CC. Ktools עבור Outlook's שמי הוא יכול לעשות לך טובה על פתרון עבודה זו במהירות. רק צריך קליק אחד, כל חשבונות myselft ב- Outlook יוסר שדות אל ו CC. לחץ על 45 ימים ללא תשלום!
תגובה דוק לא לכלול חשבון
דום חץ דוק

תגובה דוק לא לכלול חשבון 2
Kutools עבור Outlook: עם עשרות תוספות של Outlook שימושי, ללא תשלום וללא הגבלה ב- 45 ימים.

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

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

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

2. לחץ לחיצה כפולה זה מ Project1 חלונית לפתוח את עורך הקוד, להעתיק ולהדביק מתחת קוד לעורך.

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

פרטי Sub Sub_ItemSend (ByVal פריט כמו אובייקט, ביטול כמו בוליאני) 'UpdatebyExtendofficeice20180523 עמעום xAddressArr () כמו משתנה דים xAddress כמו מחרוזת עמעום xRecipient כמו נמען עב xPrompt כמו מחרוזת עמום xYesNo כמו מספר שלם עמום xDictionary כמו Scripting.Dictionary ב שגיאה המשך המשך להגדיר xDictionary = New Scripting.Dictionary xAddressArr = מערך ("example1@126.com", "example2@126.com", "example3@126.com") עבור i = LBound (xAddressArr) אל UBound (xAddressArr) xDictionary.Add xAddressArr (i ), נכון הבא עבור כל xRecipient ב Item.Recipients אם xRecipient.Type = olTo אז אם xDictionary.Exists (xRecipient.Address) ואז xDictionary.Remove xRecipient.Address סיום אם הבא אם xDictionary.Count = 0 אז GoTo L1 עבור i = 0 xDictionary.Count - 1 אם xAddress = "" ואז xAddress = xDictionary.Keys (i) אחר xAddress = xAddress + ";" & xDictionary.Keys (i) סיום אם הבא i xPrompt = "אתה לא שולח את זה ל: "& xAddress &" האם אתה בטוח שברצונך לשלוח את הדואר? " xyesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") אם xYesNo = vbNo ואז ביטול = True L1: קבע xRecipient = דבר הגדר xDictionary = Nothing End Sub

בדוק את כתובת הדואר הנמען לפני שליחת 1

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

3. ואז גם ב Microsoft Visual Basic עבור יישומים חלון, לחץ על כלים > הפניות. בדוק זמן ריצה של תיבת הסימון ב - Windows הפניות-Project1 שיח.

בדוק את כתובת הדואר הנמען לפני שליחת 2 חץ דוק הנכון בדוק את כתובת הדואר הנמען לפני שליחת 3

4. קליק OK ולשמור את הקוד.

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

עם קוד לעיל, זה רק לבדוק את כתובות הדוא"ל ב ל שדה, אם ברצונך לבצע צ'ק-אין ל, CC ו BCC שדות, אתה יכול להשתמש בקוד להלן.

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

(פריט ByVal כמו אובייקט, ביטול כמו בוליאני) "UpdatebyExtendofficeice20180523 xDecipients עמום כמו Outlook.Recipients עמעום xRecipient כמו Outlook.Recient עמום xPos כמו מספר שלם עמום xYesNo כמו מספר שלם עמום xPrompt כמו מחרוזת עמע xAddress כמו מחרוזת על שגיאה המשך הבא אם פריט. מחלקה <> olMail ואז יציאה תת קבוצה xRecipients = פריט .Ripipients xAddress = "example1@gmail.com" עבור כל xRecipient ב xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) אם xPos = 0 ואז xPrompt = "אתה שולח זה "& xAddress &" האם אתה בטוח שאתה רוצה לשלוח אותו? xyesNo = xsesNox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools עבור Outlook") אם xYesNo = vbNo ואז ביטול = סיום אמיתי אם הבא xRecipient End Sub

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



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.

Be the first to comment.