Пожелание за щастлив Birhtday чрез изпращане на поща с Excel лист

ОПРЕДЕЛЯНЕ НА ПРОБЛЕМА

Имам Excel лист, в който се записват данни за членовете с дата на раждане и e-mail. и искам да им пожелая рождения ден по пощата. за това всеки път, когато трябва да проверя лист филтър тях за днешната дата и след това изпрати по пощата поотделно.

Този макрос ви помага да направите това вместо вас. Трябва просто да отворите вашия лист Excel и да стартирате макроса.

CODE

Да предположим, че името на лицето е в колона В,

Дата на раждане в колона D,

и Имейл идентификатор в колона E.

 Sub bdMail () Dim OutApp като обект Dim OutMail As Object Дим клетка като обхват Dim lastRow As Long ДатаCell As Дата Application.ScreenUpdating = False Set OutApp = CreateObject ("Outlook.Application") OutApp.Session.Logon lastRow = Обхват (" A "& Rows.Count). End (xlUp). Грешка при грешка GoTo почистване за всяка клетка в обхват (" D2: D "& lastRow) dateCell = cell.Value Ако ден (dateCell) = ден (дата) и месец ( dateCell) = месец (дата), след което задайте OutMail = OutApp.CreateItem (0) при грешка Resume Next With OutMail .To = cell.Offset (0, 1) .Value .Subject = "Happy Birthday" "Тук поставете съобщението си. = "Уважаеми" & Клетки (cell.Row, "C"). Стойност _ & vbNewLine & vbNewLine & _ "Много щастливи връщания на деня" & & _ "Rahul" .send End With On Error GoTo 0 Задайте OutMail = Нищо не приключва Ако следващото почистване на клетка: Set OutApp = Nothing Application.ScreenUpdating = True End Sub