Πώς να στείλετε ένα μήνυμα χαιρετισμού σε μια επαφή αυτόματα εάν τα γενέθλιά του είναι σήμερα στο Outlook;
Κάποια στιγμή, μπορεί να θέλετε να στείλετε ένα μήνυμα χαιρετισμού αυτόματα στην επαφή όταν τα γενέθλιά του είναι σήμερα στο Outlook. Θα είναι μια κουραστική δουλειά όταν ελέγχετε τα γενέθλια της επαφής ένα-ένα και στέλνετε τα μηνύματα χαιρετισμού χειροκίνητα. Αυτό το άρθρο, θα εισαγάγω έναν κωδικό VBA για να τον λύσω γρήγορα και εύκολα.
Στείλτε ένα μήνυμα χαιρετισμού αυτόματα σε μια επαφή με βάση τα γενέθλιά του με κωδικό VBA στο Outlook
Για να στείλετε ένα μήνυμα χαιρετισμού αυτόματα σε μια επαφή εάν τα γενέθλιά του είναι σήμερα, εισαγάγετε πρώτα έναν κωδικό VBA και, στη συνέχεια, πρέπει να δημιουργήσετε μια επαναλαμβανόμενη εργασία για να ενεργοποιήσετε τον κωδικό.
Τα παρακάτω βήματα μπορεί να σας βοηθήσουν:
1. Εκκινήστε το Outlook και, στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή μονάδα.
Κωδικός VBA: Αυτόματη αποστολή μηνύματος χαιρετισμού σε μια επαφή με βάση τα γενέθλια:
Private Sub Application_Reminder(ByVal Item As Object)
Dim xTempMail As MailItem
Dim xFilePath As String
Dim xItems As Outlook.Items
Dim xItem As Object
Dim xContactItem As Outlook.ContactItem
Dim xTodayDate As String
Dim xBirthdayDate As String
Dim xGreetingMail As Outlook.MailItem
Dim xWordDoc As Word.Document
Dim xGreetings As String
Dim xBool As Boolean
xFilePath = CreateObject("shell.Application").NameSpace(5).self.Path & "\UserTemplates"
Set xFSO = CreateObject("Scripting.FileSystemObject")
If xFSO.FolderExists(xFilePath) = False Then
MkDir xFilePath
End If
If IsFileExists(xFilePath & "\Birthday Greeting Mail.oft") = False Then
Set xTempMail = Outlook.CreateItem(olMailItem)
xTempMail.SaveAs xFilePath & "\Birthday Greeting Mail.oft", olTemplate
xTempMail.Close olDiscard
End If
If (TypeOf Item Is TaskItem) And (Item.Subject = "Send Birthday Greeting Mail") Then
xGreetings = "Happy Birthday!"
xGreetings = InputBox("Input birthday greetings", "Kutools for Outlook", xGreetings)
xTodayDate = Month(Date) & "-" & Day(Date)
Set xItems = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
For Each xItem In xItems
If Not (TypeOf xItem Is ContactItem) Then Exit Sub
Set xContactItem = xItem
xBirthdayDate = Month(xContactItem.Birthday) & "-" & Day(xContactItem.Birthday)
If xBirthdayDate = xTodayDate Then
Set xGreetingMail = Outlook.Application.CreateItemFromTemplate(xFilePath & "\Birthday Greeting Mail.oft")
Set xWordDoc = xGreetingMail.GetInspector.WordEditor
xWordDoc.Range.InsertBefore "Dear " & xContactItem.LastName & Chr(10) & xGreetings & Chr(10) & Chr(10)
With xGreetingMail
.Recipients.Add (xContactItem.Email1Address)
.Subject = "Happy Birthday!"
.Display
.Close (olSave)
.Send
End With
End If
Next
End If
End Sub
Function IsFileExists(ByVal FileName As String) As Boolean
Dim xFileSystem As Object
Set xFileSystem = CreateObject("Scripting.FileSystemObject")
If xFileSystem.FileExists(FileName) = True Then
IsFileExists = True
Else
IsFileExists = False
End If
End Function
3. Στη συνέχεια κάντε κλικ Εργαλεία > αναφορές στο Microsoft Visual Basic για εφαρμογές παράθυρο, στο αναδυόμενο Αναφορές-Έργο 1 πλαίσιο διαλόγου, επιλέξτε Βιβλιοθήκη αντικειμένων του Microsoft Word και Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft επιλογές από το Διαθέσιμες αναφορές πλαίσιο λίστας, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου, τώρα, θα πρέπει να δημιουργήσετε μια εργασία για να ενεργοποιήσετε τον κώδικα VBA. Παρακαλώ πηγαίνετε στο Έργο Παράθυρο, κάντε κλικ στο κουμπί Νέα εργασία για να δημιουργήσετε μια εργασία:
(1) σε Υποκείμενοςγραμμή t, θα πρέπει να εισαγάγετε Θέμα ως Στείλτε μήνυμα χαιρετισμού γενεθλίων;
(2.) Στη συνέχεια κάντε κλικ Επανάληψη σύμφωνα με το Έργο αυτί;
(3.) Στο Επανάληψη εργασιών , επιλέξτε Καθημερινά και καθορίστε κάθε 1 ημέρα(ες) Επιλογή από το Σχέδιο υποτροπής Ενότητα;
5. Στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου, επιστρέψτε στο παράθυρο εργασιών, ορίστε μια υπενθύμιση για την επαναλαμβανόμενη εργασία όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
6. Από εδώ και στο εξής, όταν ειδοποιηθεί η υπενθύμιση, η μακροεντολή θα ενεργοποιηθεί αμέσως. Θα εμφανιστεί ένα παράθυρο διαλόγου για να σας υπενθυμίσει να εισάγετε τους χαιρετισμούς γενεθλίων όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
7. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, ένα μήνυμα χαιρετισμού θα σταλεί αυτόματα στην επαφή της οποίας τα γενέθλια είναι σήμερα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.