أتمنى Happy Birhtday عن طريق إرسال بريد باستخدام ورقة Excel

مشكلة تعريف

لدي ورقة Excel يتم فيها تسجيل تفاصيل العضو مع تاريخ الميلاد ومعرف البريد الإلكتروني. وأود أن أتمنى لهم عيد ميلاد هناك عن طريق البريد. لهذا في كل مرة يجب أن أتحقق من ورقة تصفية لهم لتاريخ اليوم ومن ثم إرسال البريد على حدة.

يساعدك هذا الماكرو على القيام بذلك نيابة عنك. عليك فقط فتح ورقة اكسل وتشغيل الماكرو.

الشفرة

لنفترض أن اسم الشخص في العمود C ،

تاريخ الميلاد في العمود د ،

ومعرف البريد الإلكتروني في العمود E.

 Sub bdMail () Dim OutApp باسم كائن Dim OutMail باسم خلية Dim كائن باسم Range Dim lastRow باسم Long Dim dateCell As Date Application.ScreenUpdating = False Set OutApp = CreateObject ("Outlook.Application") OutApp.Session.Logon lastRow = Range (" A "& Rows.Count). End (xlUp) .Row On Error GoTo cleaning for كل خلية في النطاق (" D2: D "& lastRow) dateCell = cell.Value If Day (dateCell) = Day (Date) و Month ( dateCell) = شهر (تاريخ) ثم قم بتعيين OutMail = OutApp.CreateItem (0) على خطأ استئناف التالي مع OutMail .To = cell.Offset (0 ، 1) .Value .Subject = "Happy Birthday" "ضع هنا رسالتك .Body = "عزيزي" والخلايا (cell.Row، "C"). القيمة _ & vbNewLine & vbNewLine & _ "العديد من العائدات السعيدة لليوم" _ & vbNewLine & vbNewLine _ & vbNewLine _ & vbNewLine & _ "Cheers،" & vbNewLine & _ "Rahul" .send End With On Error GoTo 0 Set OutMail = Nothing End If تنظيف الخلية التالية: Set OutApp = Nothing Application.ScreenUpdating = True End Sub