Želja sretan Birhtday slanjem pošte pomoću Excel list

DEFINIRANJE PROBLEMA

Imam Excelov list u kojem su podaci o članu zabilježeni s datumom rođenja i e-mail-om. i želim im poželjeti rođendan putem pošte. za to svaki put moram provjeriti list filter ih za današnji datum, a zatim poslati mail pojedinačno.

Ovaj makro vam pomaže u tome. Morate otvoriti Excelov list i pokrenuti makronaredbu.

KODIRATI

Pretpostavimo da je ta osoba navedena u stupcu C,

Datum rođenja u stupcu D,

i ID e-pošte u stupcu E.

 Sub bdMail () Dim OutApp kao objekt Dim OutMail Kao objekt Dim ćelija kao domet Dim lastRow As Long datumCell As Datum Application.ScreenUpdating = False Postavite OutApp = CreateObject ("Outlook.Application") OutApp.Session.Logon lastRow = Raspon (" A "& Rows.Count) .End (xlUp) .Row On Error GoTo čišćenje za svaku ćeliju u dometu (" D2: D "& lastRow) dateCell = cell.Value Ako je dan (dateCell) = dan (datum) i mjesec ( dateCell) = Mjesec (Datum) Zatim Postavite OutMail = OutApp.CreateItem (0) Na Greška Nastavi Sljedeći Sa OutMail. To = cell.Offset (0, 1) .Value .Subject = "Sretan rođendan" 'Ovdje stavite svoju poruku. = "Draga" & Stanice (cell.Row, "C"). Vrijednost _ & vbNewLine & vbNewLine & _ "Mnogi sretni povratci dana" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "Živjeli", & vbNewLine & _ "Rahul" .send End With On Error GoTo 0 Postavi OutMail = Ništa se ne završava ako Sljedeće čišćenje ćelije: Postavi OutApp = Ništa Application.ScreenUpdating = Istinski kraj Sub