Ønsker Happy Birhtday ved at sende en mail ved hjælp af Excel-ark

PROBLEMDEFINITION

Jeg har et Excel-ark, hvor oplysninger om medlem er optaget med der Fødselsdato og e-mail id. og jeg ønsker at ønske dem derhen fødselsdag med post. til dette hver gang jeg skal tjekke arkfiltret dem for dagens dato og derefter sende mailen individuelt.

Denne Macro hjælper dig med at gøre dette for dig. Du skal bare åbne dit Excel-ark og køre makroen.

KODE

Antag det personnavn i kolonne C,

Fødselsdato i kolonne D,

og e-mail-id i kolonne E.

 Sub bdMail () Dim OutApp Som Objekt Dim OutMail Som Objekt Dim-celle Som Range Dim LastRow Så Lang Dim DateCell Som Dato Application.ScreenUpdating = False Set OutApp = CreateObject ("Outlook.Application") OutApp.Session.Logon lastRow = Range (" En "& Rows.Count) .End (xlUp) .Row On Error Gå til oprydning for hver celle inden for rækkevidde (" D2: D "& lastRow) dateCell = cell.Value If Day (dateCell) = Dag (Dato) Og Måned dateCell) = Måned (Dato) Sæt derefter OutMail = OutApp.CreateItem (0) På Fejl Genoptag Næste med OutMail .To = Cell.Offset (0, 1) .Value .Subject = "Happy Birthday" 'Her sættes din besked. = "Kære" & celler (celle.Row, "C"). Værdi _ & vbNewLine & vbNewLine & _ "Mange gode tilbagevendelser af dagen" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "Cheers" & vbNewLine & _ "Rahul" .send Afslut med Fejl GoTo 0 Indstil OutMail = Intet Slut Hvis Næste Celleoprydning: Sæt OutApp = Intet Application.ScreenUpdating = True End Sub