Τρόπος μαζικής εισαγωγής γενεθλίων από το φύλλο εργασίας του Excel στο Ημερολόγιο του Outlook

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

Από το προηγούμενο άρθρο – «Τρόπος μαζικής εισαγωγής γενεθλίων από το Excel στις αντίστοιχες επαφές του Outlook», μπορείτε να μάθετε τους τρόπους προσθήκης πληροφοριών γενεθλίων σε ένα Excel σε σχετικές επαφές. Παρόμοια με αυτό, ορισμένοι χρήστες θα ήθελαν να δημιουργήσουν συμβάντα γενεθλίων του Outlook από τα δεδομένα σε ένα φύλλο Excel. Εξετάζοντας αυτό το ζήτημα, θα εκθέσουμε ένα άλλο κομμάτι κώδικα VBA για να σας βοηθήσουμε να τον αποκτήσετε εύκολα.

Μαζική εισαγωγή γενεθλίων από το Excel στο Ημερολόγιο του Outlook

1. Πρώτα απ 'όλα, ανοίξτε το συγκεκριμένο αρχείο Excel. Το δείγμα του αρχείου μου Excel είναι όπως φαίνεται στο παρακάτω σχήμα.
2. Στη συνέχεια, πατήστε "Alt + F11" για να ενεργοποιήσετε το πρόγραμμα επεξεργασίας Excel VBA.
3. Στη συνέχεια, στο νέο παράθυρο "Microsoft Visual Basic for Applications", ενεργοποιήστε την αναφορά στη "Βιβλιοθήκη αντικειμένων MS Outlook" σύμφωνα με το "Πώς να προσθέσετε μια αναφορά βιβλιοθήκης αντικειμένων σε VBA".
4. Μετά από αυτό, αντιγράψτε τον ακόλουθο κώδικα VBA σε ένα έργο ή ενότητα.

Sub ImportBirthdaysToCalendar()
    Dim objWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objOutlookApp As Outlook.Application
    Dim objCalendar As Outlook.Folder
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Get the specific sheet
    Set objWorksheet = ThisWorkbook.Sheets(1)
    nLastRow = objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row
 
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objCalendar = objOutlookApp.Session.GetDefaultFolder(olFolderCalendar)
 
    For nRow = 2 To nLastRow
        Set objBirthdayEvent = objCalendar.Items.Add("IPM.Appointment")
 
        'Create birthday events
        With objBirthdayEvent
            .Subject = objWorksheet.Range("A" & nRow) & Chr(39) & "s Birthday"
            .AllDayEvent = True
            .Start = objWorksheet.Range("B" & nRow)
         Set objRecurrencePattern = .GetRecurrencePattern
         objRecurrencePattern.RecurrenceType = olRecursYearly
            .Save
        End With
    Next
End Sub

Σημείωση: 1. Αλλάξτε το συγκεκριμένο φύλλο ανάλογα με την περίπτωσή σας.

2. Αλλάξτε το αντίστοιχο εύρος κελιών ανάλογα με το δικό σας αρχείο Excel.
3. Τέλος, πατήστε απευθείας το πλήκτρο «F5» για να εκτελέσετε αυτήν τη μακροεντολή.
4. Όταν ολοκληρωθεί η μακροεντολή, μπορείτε να ανοίξετε τον προεπιλεγμένο φάκελο ημερολογίου του Outlook, στον οποίο μπορείτε να δείτε όλα τα νέα εισαγόμενα συμβάντα γενεθλίων, όπως το παρακάτω στιγμιότυπο οθόνης.

Ευάλωτα αρχεία PST του Outlook

Όπως τα έγγραφα του Word και τα βιβλία εργασίας του Excel, ουσιαστικά, τα αρχεία PST του Outlook είναι το ίδιο ευάλωτα. Για χρόνια, πολλοί χρήστες έχουν υποστεί ζημιά στο αρχείο του Outlook. Σε αυτή την περίπτωση, πρέπει να επιχειρήσουν να κάνουν κόμπους Επισκευή PST. Ωστόσο, συνήθως, το ενσωματωμένο εργαλείο επιδιόρθωσης - το Scanpst δεν είναι πάντα σε θέση να το ολοκληρώσει. Ως εκ τούτου, σε αυτό το μάθημα, απαιτείται ιδιαίτερα ένα πιο εξειδικευμένο και κορυφαίο εξωτερικό εργαλείο, όπως π.χ DataNumen Outlook Repair, το οποίο μπορεί να σας βοηθήσει να εξαγάγετε τα μέγιστα δεδομένα από κατεστραμμένο αρχείο PST.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com