Wünschen Sie einen schönen Geburtstag, indem Sie eine E-Mail mit Excel senden

PROBLEMBESTIMMUNG

Ich habe eine Excel-Tabelle, in der die Details des Mitglieds mit dem Geburtsdatum und der E-Mail-ID vermerkt sind. und ich möchte ihnen dort geburtstag per mail wünschen. dafür muss ich jedes mal die blattfilter auf das heutige datum überprüfen und dann die mail einzeln versenden.

Dieses Makro hilft Ihnen dabei, dies für Sie zu tun. Sie müssen nur Ihre Excel-Tabelle öffnen und das Makro ausführen.

CODE

Angenommen, dieser Personenname in Spalte C,

Geburtsdatum in Spalte D,

und E-Mail-ID in Spalte E.

 Sub bdMail () OutApp als Objekt dim OutMail als Objekt dim Zelle als Bereich dim lastRow so lange dim dateCell als Datum Application.ScreenUpdating = False Set OutApp = CreateObject ("Outlook.Application") OutApp.Session.Logon lastRow = Range (" A "& Rows.Count) .End (xlUp) .Row On Error GoTo-Bereinigung für jede Zelle im Bereich (" D2: D "& lastRow) dateCell = cell.Value If Day (dateCell) = Day (Date) And Month ( dateCell) = Monat (Datum) und dann OutMail = OutApp.CreateItem (0) setzen. On Error Weiter mit OutMail .To = cell.Offset (0, 1) .Value .Subject = "Happy Birthday" 'Geben Sie hier Ihre Nachricht ein .Body = "Dear" & Cells (cell.Row, "C"). Value _ & vbNewLine & vbNewLine & _ "Viele glückliche Renditen des Tages" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "Cheers, " & vbNewLine & _ "Rahul" .send End With On Error Gehe zu 0 Set OutMail = Nothing End If Nächste Zellbereinigung: Set OutApp = Nothing Application.ScreenUpdating = True End Sub 
Vorherige Artikel Nächster Artikel

Top-Tipps