کوکی ها به ما کمک خدمات ما ارائه کرده است. با استفاده از خدمات ما، شما را به استفاده ما از کوکی ها است.
نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

چگونه برای بررسی آدرس های گیرنده قبل از ارسال از طریق چشم انداز؟

در بعضی موارد، هنگام ارسال ایمیل از طریق چشم انداز، ممکن است برخی از گیرندگان مهم را به قسمت های To، CC یا BCC اضافه کنید. در اینجا، می توانم یک روش برای بررسی اینکه آیا ایمیل های خاصی قبل از ارسال از طریق Outlook اضافه شده اند، معرفی کنم.

قبل از ارسال با کد VBA، آدرس ها را بررسی کنید

پاسخ به همه منحصر به فرد خود را در چشم انداز

هنگامی که ما از پاسخ به تمام عملکرد در Outlook استفاده می کنیم، ممکن است ما حساب های خود را به Field نیز اضافه کنیم، اگر ایمیل هایی که دریافت می کنید شامل دو حساب دیگر است. در این مورد، ممکن است بخواهید حسابهایتان را از قسمتهای To و CC حذف کنید. Ktools برای چشم انداز's اسم من هست می تواند به سرعت به حل این کار کمک کند. تنها با یک کلیک نیاز است، تمام حسابهای myselft در Outlook از زمینه های To و CC حذف خواهند شد. برای آزمایش 45 روز رایگان کلیک کنید
پاسخ doc پاسخ حساب حذف
doc arrow Dowm

پاسخ doc حذف حساب 2
Kutools برای چشم انداز: با ده ها تن از افزونه های چشم انداز مفید، بدون هیچ محدودیتی در روزهای 45 امتحان کنید.

قبل از ارسال با کد VBA، آدرس ها را بررسی کنید

در اینجا من دو کد می تواند به شما در حل این کار کمک کند، شما می توانید هر کسی را به عنوان نیاز خود را انتخاب کنید.

1 مطبوعات Alt + F11 keys برای فعال کردن مایکروسافت ویژوال بیسیک برای برنامه پنجره.

2 دوبار کلیک کنید ThisOutlookSession از جانب Project1 برای ویرایشگر کد باز کنید، کد زیر را به ویرایشگر کپی کنید و وارد کنید.

VBA: قبل از ارسال، آدرس گیرنده را در قسمت قبل بررسی کنید

در خصوص Application_ItemSend (مورد ByVal به عنوان شیء، لغو As Boolean که) 'UpdatebyExtendoffice20180523 تار xAddressArr () به عنوان نوع تار xAddress به عنوان عبارات تار xRecipient به عنوان گیرنده تار xPrompt به عنوان عبارات تار xYesNo به عنوان عدد صحیح تار xDictionary به عنوان خطا Scripting.Dictionary در رزومه کاری بعدی مجموعه xDictionary = جدید Scripting.Dictionary xAddressArr = آرایه ( "example1@126.com"، "example2@126.com"، "example3@126.com") برای من = LBound (xAddressArr) برای UBound (xAddressArr) xDictionary.Add xAddressArr (من )، درست بعد من برای هر یک xRecipient در Item.Recipients اگر xRecipient.Type = olTo سپس اگر xDictionary.Exists (xRecipient.Address) سپس xDictionary.Remove xRecipient.Address اگر پایان بعد اگر xDictionary.Count = 0 سپس رفتن به L1 برای من = 0 برای xDictionary.Count - 1 اگر xAddress = "" سپس xAddress = xDictionary.Keys (من) دیگری xAddress = xAddress + "؛" و xDictionary.Keys (من) اگر پایان بعد من xPrompt = "شما این را به ارسال نمی: "& xAddress &". آیا مطمئن هستید که میخواهید ایمیل را بفرستید؟ " xYesNo = MsgBox (xPrompt، vbQuestion + vbYesNo، "Kutools for Outlook") اگر xYesNo = vbNo سپس لغو = درست L1: تنظیم xRecipient = هیچ چیز تنظیم xDictionary = هیچ چیز پایان دادن به زیر

doc قبل از ارسال 1 آدرس گیرنده را بررسی کنید

در کد، شما می توانید تغییر دهید ("example1@126.com", "example2@126.com", "example3@126.com") به گیرندگان واقعی شما نیاز دارید.

3 سپس نیز در مایکروسافت ویژوال بیسیک برای برنامه پنجره، بر روی ابزار > منابع. بررسی اجرا مایکروسافت اسکریپت جعبه چک در منابع-Project1 گفتگو

doc قبل از ارسال 2 آدرس گیرنده را بررسی کنید مستند arrow راست doc قبل از ارسال 3 آدرس گیرنده را بررسی کنید

4. کلیک OK و کد را ذخیره کن.

در حال حاضر اگر گیرندگان مشخص شده در هنگام ارسال ایمیل در جعبه ظاهر نشوند، یک گفت و گو ظاهر خواهد شد تا به شما یادآوری کند که برای ارسال ایمیل.
doc قبل از ارسال 4 آدرس گیرنده را بررسی کنید

با کد بالا، فقط آدرس های ایمیل را بررسی می کند به فیلد، اگر می خواهید وارد شوید به, CC و BCC زمینه ها، شما می توانید زیر کد استفاده کنید.

VBA: قبل از ارسال، از آدرس گیرنده در قسمت های To / CC / BCC بررسی کنید

در خصوص Application_ItemSend (مورد ByVal به عنوان شیء، لغو As Boolean که) 'xRecipients UpdatebyExtendoffice20180523 تار به عنوان Outlook.Recipients تار xRecipient به عنوان Outlook.Recipient تار xPos به عنوان عدد صحیح تار xYesNo به عنوان عدد صحیح تار xPrompt به عنوان عبارات تار xAddress به عنوان عبارات خطا رزومه بعدی اگر مورد. کلاس <> olMail سپس خروج از زیر تنظیم xRecipients = Item.Recipients xAddress = "example1@gmail.com" برای هر xRecipient در xRecipients xPos = INSTR (LCase (xRecipient.Address)، xAddress) اگر xPos = 0 سپس xPrompt = "شما ارسال این را به "& xAddress &". آیا مطمئنید که میخواهید آن را ارسال کنید؟ " xYesNo = MsgBox (xPrompt، vbYesNo + vbQuestion + 4096، "Kutools for Outlook") اگر xYesNo = vbNo سپس لغو = پایان درست اگر بعد xRecipient End Sub

با استفاده از این کد، لازم نیست که بررسی کنید اجرا مایکروسافت اسکریپت کادر تأیید، فقط به طور مستقیم کد را برای تأثیرگذاری ذخیره کنید.



Kutools برای چشم انداز

بیشتر از توابع پیشرفته 100 برای چشم انداز 2010، 2013، 2016، 2019 و 365

kutools روی صفحه نمایش برای چشم انداز کوچک برای بنر 201812

از ویژگی های بیشتر | دانلود رایگان | فقط $ 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.