Születésnapok kötegelt importálása Excel-munkalapról Outlook-naptárba

Ha egy Excel-munkalapon szerepel a születésnapi adatok listája, érdemes lehet ezeket a születésnapokat eseményként importálni az Outlook-naptárba. Ez a cikk elvezeti Önt ahhoz, hogy ezt gyorsan elvégezze.

Az előző cikkből – „A születésnapok kötegelt importálása az Excelből a megfelelő Outlook-névjegyekbe” című cikkből megtudhatja, hogyan adhat hozzá születésnapi adatokat Excelben a megfelelő névjegyekhez. Ehhez hasonlóan néhány felhasználó szeretne Outlook születésnapi eseményeket létrehozni egy Excel-lapon lévő adatokból. Ezt a problémát tekintve egy másik VBA-kódrészletet teszünk közzé, hogy könnyebben megkaphassa.

Születésnapok kötegelt importálása Excelből az Outlook naptárba

1. Mindenekelőtt nyissa meg az adott Excel-fájlt. Az Excel mintafájlom az alábbi ábrán látható.
2. Ezután nyomja meg az „Alt + F11” gombot az Excel VBA szerkesztő elindításához.
3. Ezután az új „Microsoft Visual Basic for Applications” ablakban engedélyezze az „MS Outlook Object Library” hivatkozást a „Objektumkönyvtár-hivatkozás hozzáadása VBA-ban".
4. Ezután másolja be a következő VBA-kódot egy projektbe vagy modulba.

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

Jegyzet: 1. Változtassa meg az adott lapot az Ön esetének megfelelően.

2. Módosítsa a megfelelő cellatartományt a saját Excel-fájljától függően.
3. Végül nyomja meg közvetlenül az „F5” billentyűt a makró futtatásához.
4. Amikor a makró befejeződik, megnyithatja az Outlook alapértelmezett naptármappáját, amelyben láthatja az összes új importált születésnapi eseményt, például az alábbi képernyőképen.

Sebezhető Outlook PST-fájlok

A Word-dokumentumokhoz és az Excel-munkafüzetekhez hasonlóan gyakorlatilag az Outlook PST-fájlok is sebezhetőek. Évek óta sok felhasználó volt kitéve Outlook-fájlkárosodásnak. Ebben a helyzetben meg kell próbálniuk csomósodni PST javítás. Ennek ellenére általában beépített javítóeszköz – a Scanpst mindig nem tudja végrehajtani. Ezért ebben a kurzusban nagy szükség van egy speciálisabb és legmagasabb szintű külső eszközre, mint pl DataNumen Outlook Repair, amely segíthet a maximális adatmennyiség kinyerésében a sérült PST-fájlból.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve korrupt sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com