Kuinka erä tuoda syntymäpäivät Excel-laskentataulukosta Outlook-kalenteriin

Jos sinulla on luettelo syntymäpäivätiedoista Excel-laskentataulukossa, kannattaa ehkä tuoda nämä syntymäpäivät Outlook-kalenteriin tapahtumina. Tämä artikkeli opastaa sinua toteuttamaan sen nopeasti.

Edellisestä artikkelista "Syntymäpäivien erätuonti eristä Excelistä vastaaviin Outlook-yhteystietoihin" voit oppia keinot lisätä syntymäpäivätiedot Excelissä asiaankuuluviin kontakteihin. Jotkut käyttäjät haluavat samalla tavalla luoda Outlook-syntymäpäivätapahtumat Excel-taulukon tiedoista. Tarkastellessamme tätä ongelmaa paljastamme toisen osan VBA-koodista, joka auttaa sinua saamaan sen helposti.

Erä Tuo syntymäpäivät Excelistä Outlook-kalenteriin

1. Avaa kaikki, avaa tietty Excel-tiedosto. Oman Excel-tiedostoni on seuraavan kuvan mukainen.
2. Käynnistä sitten Excel VBA -editori painamalla Alt + F11.
3. Seuraavaksi ota uudessa ”Microsoft Visual Basic for Applications” -ikkunassa käyttöön viittaus ”MS Outlook Object Libraryyn” kohdan ”Objektikirjastoviittauksen lisääminen VBA:ssa".
4. Tämän jälkeen kopioi seuraava VBA-koodi projektiin tai moduuliin.

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

Huomautus: 1. Vaihda tietty arkki tapauskohtaisesti.

2. Vaihda vastaava solualue omasta Excel-tiedostostasi riippuen.
3. Lopuksi paina "F5" -näppäintä suorittaaksesi tämän makron.
4. Kun makro on valmis, voit avata Outlookin oletuskalenterikansiosi, jossa näet kaikki uudet tuodut syntymäpäivätapahtumat, kuten alla oleva kuvakaappaus.

Haavoittuvat Outlook PST-tiedostot

Kuten Word-asiakirjat ja Excel-työkirjat, käytännössä myös Outlook PST -tiedostot ovat samat haavoittuvia. Vuosien ajan monille käyttäjille on koskaan aiheutunut Outlook-tiedostovaurioita. Siinä tilanteessa heidän on yritettävä solmia PST-korjaus. Silti yleisesti sisäänrakennettu korjaustyökalu - Scanpst ei aina pysty siihen. Siksi tällä kurssilla tarvitaan erittäin erikoistuneita ja huippuluokan ulkoisia työkaluja, kuten DataNumen Outlook Repair, mikä voi auttaa sinua poimimaan enimmäistiedot vioittuneesta PST-tiedostosta.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korruptoitunut sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com