استفاده از اسکریپت های VBA در اکسل به هیچ دانش برنامه نویسی احتیاج ندارد. VBA به شما کمک می کند تا بسیاری از کارهای پیشرفته مانند ایجاد یک گزارش صفحه گسترده حاوی کلیه اطلاعات رایانه شخصی ، ارسال ایمیل به طور مستقیم از صفحه گسترده ...
برای ارسال ایمیل از مایکروسافت اکسل فقط به چند اسکریپت ساده نیاز دارید. اگر واقعاً می خواهید از نرم افزارهای Office Excel نهایت استفاده را ببرید ، از افزودن این ویژگی به صفحه گسترده خود نترسید .
ایمیل از اکسل
دلایل زیادی وجود دارد که می خواهید ایمیل را مستقیماً در Microsoft Excel ارسال کنید. به عنوان مثال ، کارکنان شما اسناد و صفحات گسترده را به صورت هفتگی به روز می کنند ، و می خواهید وقتی کار یا اتفاقی تمام شود ، اعلان های ایمیل را دریافت کنید ، می خواهید همه مخاطبین را در همان کارنامه به ایمیل بفرستید. در ...
حتماً به فکر استفاده از یک اسکریپت پیچیده ایمیل ارسال اکسل هستید ، اما در واقع بسیار ساده است. این مقاله شما را راهنمایی می کند تا از ویژگی هایی که مدت هاست در Excel VBA وجود دارد ، با نام همکاری داده های اشیاء (CDO) در دسترس است .

CDO یک مؤلفه پیام رسانی است که از نسخه های اولیه در ویندوز استفاده می شود. قبلاً CDONTS نامیده می شد. پس از به وجود آمدن ویندوز 2000 و XP ، "CDO برای ویندوز 2000" آن را جایگزین کرد. این مؤلفه در نصب VBA در مایکروسافت ورد یا اکسل گنجانده شده است و در هر زمان برای استفاده در دسترس است.
استفاده از این مؤلفه برای ارسال ایمیل در محصولات ویندوز با VBA بسیار آسان است. به عنوان مثال ، در این مقاله از CDO در اکسل برای ارسال ایمیل هایی که حاوی نتایج در یک سلول هستند استفاده می شود.
مرحله 1: یک ماکرو VBA ایجاد کنید
ابتدا به تب Excel Developer بروید > بر روی Insert in Controls کلیک کنید ، سپس یک دکمه فرمان را انتخاب کنید.

آن را به این کاربرگ بکشید ، سپس با کلیک کردن روی ماکرو در روبان Developer ، یک ماکرو جدید ایجاد کنید .

هنگامی که روی دکمه ایجاد کلیک می کنید ، ویرایشگر VBA را باز می کند.
با حرکت به Tools> References در ویرایشگر ، یک مرجع به کتابخانه CDO اضافه کنید .

تا زمانی که مایکروسافت CDO را برای کتابخانه Windows 2000 مشاهده کردید ، به پایین لیست بروید . کادر تأیید را علامت بزنید و OK را بزنید .

هنگامی که روی OK کلیک می کنید ، نام عملکردی را که در آن اسکریپت جایگذاری شده است ، یادداشت کنید ، زیرا بعداً به آن احتیاج خواهید داشت.
مرحله 2: قسمت های CDO "از" و "به" را تنظیم کنید
برای انجام این کار ، ابتدا باید اشیاء مربوط به ایمیل ایجاد کرده و تمام زمینه های تحویل ایمیل مورد نیاز را تنظیم کنید.
به یاد داشته باشید که بسیاری از زمینه ها ممکن است یا نباشند ، اما از و به آنها الزامی است.
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom به عنوان String
Dim strTo به عنوان String
Dim strCc به عنوان String
Dim strBcc به عنوان String
Dim strBody As String
strSubject = "نتایج حاصل از صفحه گسترده اکسل"
strFrom = "[email protected]"
strTo = "[email protected]"
strCc = ""
strBcc = ""
strBody = "کل نتایج این سه ماهه است:" & Str (جدول شماره 1 .Cells (2 ، 1))
نکته جالب اینجاست که شما می توانید هر رشته دلخواه را برای شخصی سازی کل پیام ایمیل ایجاد کرده و آن را به متغیر strBody اختصاص دهید.
جمع آوری محتویات پیام ایمیل با استفاده از رشته ها و درج داده ها از هر صفحه گسترده Microsoft Excel درست در ایمیل (همانطور که در تصویر بالا مشاهده شده است).
مرحله 3: پیاده سازی CDO برای استفاده از SMTP خارجی
کد بعدی جایی است که شما CDO را برای استفاده از هر سرور SMTP خارجی برای ارسال ایمیل پیکربندی می کنید.
این مثال SSL را از طریق Gmail تنظیم نمی کند ، CDO می تواند SSL را جایگزین کند اما خارج از محدوده این مقاله است. در صورت نیاز به استفاده از SSL ، کد پیشرفته در Github می تواند به شما کمک کند.
تنظیم CDO_Mail = ایجادObject ("CDO.Message")
روی خطا GoTo Error_Handling
تنظیم CDO_Config = CreatObject ("CDO.Configuration")
CDO_Config.Load -1
SMTP_Config = CDO_Config.Fields را تنظیم کنید
با SMTP_Config
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp. gmail.com "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
.Item (" http://schemas.microsoft.com/cdo/configuration/sendusername ") =" [email protected] "
.Item (" http://schemas.microsoft.com/cdo/configuration/sendpassword ") =" گذرواژه "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = True
.Uddate
End With
با
تنظیم CDO_Mail .Configuration = CDO_Config
با پایان
مرحله 4: تنظیم کامل CDO
اکنون سرور SMTP خود را برای ارسال ایمیل پیکربندی کرده اید. تنها کاری که باید انجام دهید اینست که فیلدهای مناسب را برای شی CDO_Mail پر کنید و دستور Send را صادر کنید .
در اینجا نحوه انجام این کار آورده شده است:
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
اگر Err.Description <> "" سپس MsgBox Err.Description
هیچ یک از هشدارهای بازشو یا هشدار امنیتی همانطور که معمولاً هنگام استفاده از شی ایمیل ایمیل Outlook می بینید ظاهر نمی شود.
CDO به سادگی اجزای ایمیل را در کنار هم قرار می دهد و از جزئیات اتصال سرور برای فعال کردن ارسال اطلاعات استفاده می کند. این ساده ترین روش برای ترکیب ایمیل ها با اسکریپت های Microsoft Word یا Excel VBA است.
برای اتصال دکمه فرمان به این اسکریپت ، به ویرایشگر کد دسترسی پیدا کرده و روی Sheet1 کلیک کنید تا کد VBA آن کاربرگ را ببینید.
نام عملکرد را در جایی که اسکریپت را در بالا جایگذاری کرده اید تایپ کنید.

این اطلاعاتی است که در صندوق ورودی دریافت می کنید.

توجه : در صورت دریافت خطا حمل و نقل نتوانست به سرور متصل شود ، اطمینان حاصل کنید که نام کاربری ، رمز عبور ، سرور SMTP و شماره پورت را در خط کد ذکر شده در با SMTP_Config وارد کرده اید .
کل فرآیند را بهبود و خودکار کنید
ارسال ایمیل از اکسل با یک دکمه واقعاً ایمن و راحت است. اگر می خواهید از این ویژگی غالباً استفاده کنید ، می توانید آن را خودکار کنید.
برای این کار باید کلان را تغییر دهید. به ویرایشگر ویژوال بیسیک بروید ، کل کدهای جمع شده را کپی و جایگذاری کنید. بعد ، ThisWorkbook را از سلسله مراتب پروژه انتخاب کنید .
از میان دو قسمت کشویی در بالای پنجره کد ، Workbook را انتخاب کرده و از منوی Methods گزینه Open را کلیک کنید . اسکریپت ایمیل را در بالا در Private Sub Workbook_Open () بچسبانید . این عمل هر زمان که پرونده Excel را باز کردید ، ماکرو را اجرا می کند.

بعد ، Task Scheduler را باز کنید . با استفاده از این ابزار می توانید از Windows بخواهید به طور خودکار صفحات گسترده را در فواصل زمانی مشخص باز کند. در این زمان ، کلان شما فعال شده و از طریق ایمیل ارسال می شود.

ایجاد گزینه اصلی کار را از منوی Action انتخاب کرده و تا رسیدن به صفحه Action دستورالعمل ها را دنبال کنید.
شروع برنامه را انتخاب کرده و روی Next کلیک کنید .

با استفاده از دکمه مرور ، مکان Microsoft Excel را در رایانه پیدا کنید یا مسیر را در قسمت برنامه / اسکریپت کپی و چسباندن کنید .
سپس مسیر مربوط به سند Microsoft Excel را در قسمت Add argument ها وارد کنید .
دستورالعمل ها و برنامه های کامل شما ساخته خواهد شد.
شما باید این ویژگی را با برنامه ریزی در چند دقیقه آینده آزمایش کنید ، بعد از اینکه کار را به طور موثر انجام دادید ، دوباره کار را مرور کنید.
توجه : شاید مطمئن شوید که عملکرد کلان به شرح زیر است: تنظیمات Trust Center را تنظیم کنید:
صفحه گسترده را باز کنید و به File> Options> Trust Center بروید .
در اینجا ، گزینه Trust Center Settings را کلیک کنید . در صفحه بعدی ، هرگز اطلاعاتی درباره محتوای مسدود شده نشان ندهید .
Microsoft Excel ابزاری بسیار قدرتمند است ، اما یادگیری نحوه استفاده از آن می تواند برای بسیاری از افراد گاهی چالش برانگیز باشد. اگر می خواهید این نرم افزار را تسلط دهید ، باید نحوه استفاده از VBA را بدانید. آسان نیست
با این حال ، با کمی تجربه VBA ، می توانید کارهای اصلی را در Microsoft Excel به صورت خودکار انجام دهید و زمان بیشتری را برای تمرکز روی کارهای مهم تر اختصاص دهید.
امیدوارم مقاله برای شما مفید باشد. آرزوی موفقیت برای شما دارم!