Życzenie Happy Birhtday przez wysyłanie poczty za pomocą arkusza Excel

OPIS PROBLEMU

Mam arkusz Excel, w którym zapisywane są dane członka wraz z datą urodzenia i identyfikatorem e-mail. i chcę im tam życzyć Urodzin pocztą. za to za każdym razem muszę sprawdzić arkusz filtrować je na dzisiejszą datę, a następnie wysłać pocztę indywidualnie.

To makro pomaga ci to zrobić. Musisz tylko otworzyć arkusz Excela i uruchomić makro.

KOD

Załóżmy, że nazwisko osoby w kolumnie C,

Data urodzenia w kolumnie D,

i identyfikator e-maila w kolumnie E.

 Sub bdMail () Dim OutApp jako obiekt Dim OutMail jako obiekt Dim cell jako zakres Dim Dim lastRow jako Long Dim dataCell As Date Application.ScreenUpdating = False Set OutApp = CreateObject ("Outlook.Application") OutApp.Session.Logon lastRow = Range (" A "& Rows.Count) .End (xlUp). Row On Error Czyszczenie GoTo dla każdej komórki w zakresie (" D2: D "i lastRow) dataCell = cell.Value Jeśli dzień (dateCell) = dzień (data) i miesiąc ( dateCell) = Miesiąc (Data) Następnie Set OutMail = OutApp.CreateItem (0) On Error Wznów następny z OutMail .To = cell.Offset (0, 1) .Value .Subject = "Happy Birthday" 'Tutaj umieść swoją wiadomość. Body = „Drogi” i komórki (cell.Row, „C”). Wartość _ & vbNewLine & vbNewLine & _ „Wiele szczęśliwych zwrotów dnia” _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ „Cheers” & vbNewLine & _ "Rahul" .send End With On Error GoTo 0 Set OutMail = Nic nie kończy, jeśli następne czyszczenie komórki: Set OutApp = Nic Application.ScreenUpdating = True End Sub