Přání Happy Birhtday tím, že pošle Mail pomocí Excelu

DEFINICE PROBLÉMU

Mám list Excelu, ve kterém jsou zaznamenány podrobnosti o členovi s uvedením data narození a e-mailu. a přeji jim, aby mi tam na narozeniny poslali poštou. za to pokaždé, když musím zkontrolovat list filtr je pro dnešní datum a pak poslat poštu individuálně.

Toto makro vám to pomůže udělat za vás. Musíte prostě otevřít svůj Excel list a spustit makro.

KÓD

Předpokládejme, že jméno osoby ve sloupci C,

Datum narození ve sloupci D,

a ID e-mailu ve sloupci E.

 Sub bdMail () Dim OutApp jako objekt Dim OutMail jako objekt Dim buňky jako rozsah Dim lastRow jako dlouhý Dim dateCell jako datum Application.ScreenUpdating = False Set OutApp = CreateObject ("Outlook.Application") OutApp.Session.Logon lastRow = Range ("OutApp.Session.Logon lastRow = Range (" A "& Rows.Count) .End (xlUp) .Row On Chyba GoTo vyčištění pro každou buňku v rozsahu (" D2: D "& lastRow) dateCell = cell.Value Pokud den (dateCell) = den (datum) a měsíc ( dateCell) = Měsíc (Datum) Potom Nastavit OutMail = OutApp.CreateItem (0) On Error Resume Další s OutMail .To = cell.Offset (0, 1). Hodnota .Subject = "Všechno nejlepší k narozeninám" = "Vážení" a buňky (cell.Row, "C"). Hodnota _ & vbNewLine & vbNewLine & _ "Mnoho šťastných návratů dne" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "Zdravím, " & vbNewLine & _ "Rahul" .send Konec s chybou Chyba GoTo 0 Nastavit OutMail = Nic Konec Pokud Další čištění buňky: Nastavit OutApp = Nic Application.ScreenUpdating = True End Sub