Priania Happy Birhtday odoslaním pošty pomocou hárku programu Excel

VYMEDZENIE PROBLÉMU

Mám Excel list, v ktorom sú zaznamenané údaje o členovi s dátumom narodenia a e-mailom. a chcem im tam popriať poštu poštou. za to zakaždým, keď musím skontrolovať list filter je pre dnešný dátum a potom poslať poštu individuálne.

Toto makro vám to pomôže urobiť za vás. Musíte len otvoriť Excel list a spustiť makro.

CODE

Predpokladajme, že meno osoby v stĺpci C,

Dátum narodenia v stĺpci D,

a ID e-mailu v stĺpci E.

 Sub bdMail () Dim OutApp ako objekt Dim OutMail ako objekt Dim bunky ako rozsah Dim lastRow as Long Dim dateCell ako dátum 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 Error GoTo vyčistenie pre každú bunku v rozsahu (" D2: D "& lastRow) dateCell = cell.Value Ak deň (dateCell) = deň (dátum) a mesiac ( dateCell = = Mesiac (Dátum) Potom Nastaviť OutMail = OutApp.CreateItem (0) On Error Resume Next S OutMail .To = cell.Offset (0, 1). Hodnotu .Subject = "Všetko najlepšie" Tu vložte svoju správu. = "Vážení" a bunky (cell.Row, "C"). Hodnota _ & vbNewLine & vbNewLine & _ "Mnoho šťastných návratov dňa" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "Zdravím, " & vbNewLine & _ "Rahul" .send Koniec s chybou Chyba GoTo 0 Nastaviť OutMail = Nič Koniec Ak Ďalšie vyčistenie bunky: Nastaviť OutApp = Nič Application.ScreenUpdating = True End Sub 
Predchádzajúci Článok Nasledujúci Článok

Najlepšie Tipy