Wish Happy Birhtday με την αποστολή αλληλογραφίας χρησιμοποιώντας φύλλο Excel

ΟΡΙΣΜΟΣ ΠΡΟΒΛΗΜΑΤΩΝ

Έχω ένα φύλλο Excel στο οποίο καταγράφονται οι λεπτομέρειες του μέλους με την ημερομηνία γέννησης και την ταυτότητα του ηλεκτρονικού ταχυδρομείου. και θέλω να τους ευχηθώ εκεί τα γενέθλια μέσω ταχυδρομείου. για αυτό κάθε φορά πρέπει να ελέγξω το φύλλο φίλτρο τους για τη σημερινή ημερομηνία και στη συνέχεια να στείλετε το ταχυδρομείο μεμονωμένα.

Αυτή η μακροεντολή σας βοηθά να το κάνετε αυτό για σας. Πρέπει απλώς να ανοίξετε το φύλλο excel και να εκτελέσετε τη μακροεντολή.

ΚΩΔΙΚΑΣ

Ας υποθέσουμε ότι το όνομα του ατόμου στη στήλη C,

Ημερομηνία Γέννησης στη στήλη Δ,

και E-Mail id στη στήλη Ε.

 (OutApp = CreateObject) "OutApp.Session.Logon lastRow = Range (" OutOpp.Session.Logon lastRow = Range "(" OutApp.Session.Logon lastRow = Range ")) ("D2: D" & lastRow) dateCell = cell.Value Αν Day (dateCell) = Ημέρα (Ημερομηνία και Μήνας) dateCell) = Μήνας (Date) Κατόπιν Set OutMail = OutApp.CreateItem (0) Σφάλμα Συνέχιση Επόμενο με OutMail .To = cell.Offset (0, 1) .Value .Subject = "Happy Birthday" = "Αγαπητέ" & Κύτταρα (cell.Row, "C") Αξία _ & vbNewLine & vbNewLine & _ "Πολλές ευτυχείς επιστροφές της ημέρας" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & & _ "Rahul" .send Λήξη τελείωσε με σφάλμα GoTo 0 Ορισμός OutMail = Τίποτα δεν τελειώνει Επόμενο καθαρισμό κυττάρων: Ορισμός OutApp = Καμία εφαρμογή Application.ScreenUpdating = True End Sub