Excel жұмыс парағынан Outlook күнтізбесіне туған күндерді пакеттік импорттау жолы

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Excel жұмыс парағында туған күн туралы ақпарат тізімі болса, бұл туған күндерді Outlook күнтізбесіне оқиғалар ретінде импорттағыңыз келуі мүмкін. Бұл мақала сізге оны тез арада орындауға көмектеседі.

Алдыңғы мақаладан – «Туған күндерді Excel бағдарламасынан сәйкес Outlook контактілеріне қалай пакеттік импорттау» мақаласынан сіз Excel бағдарламасындағы туған күн туралы ақпаратты сәйкес контактілерге қосу жолдарын біле аласыз. Осыған ұқсас, кейбір пайдаланушылар Excel парағындағы деректерден Outlook туған күн оқиғаларын жасағысы келеді. Бұл мәселені қарастыра отырып, оны оңай алуға көмектесу үшін VBA кодының тағы бір бөлігін ашамыз.

Excel бағдарламасынан Outlook күнтізбесіне туған күндерді пакеттік импорттау

  1. Ең алдымен, арнайы Excel файлын ашыңыз. Менің үлгі Excel файлым келесі суретте көрсетілгендей.Excel жұмыс парағының үлгісі
  2. Содан кейін Excel VBA редакторын қосу үшін «Alt + F11» пернелерін басыңыз.
  3. Келесі, жаңа «Қолданбаларға арналған Microsoft Visual Basic» терезесінде «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

VBA коды - Excel бағдарламасынан Outlook күнтізбесіне туған күндерді пакеттік импорттау

Ескерту: 1. Сіздің жағдайыңызға қарай арнайы парақты өзгертіңіз.

  1. Өз Excel файлыңызға байланысты сәйкес ұяшықтар ауқымын өзгертіңіз.
  2. Соңында, осы макросты іске қосу үшін тікелей «F5» пернесін басыңыз.
  3. Макрос аяқталған кезде, Outlook әдепкі күнтізбе қалтасын ашуға болады, онда төмендегі скриншот сияқты барлық жаңа импортталған туған күн оқиғаларын көруге болады.Күнтізбедегі туған күн оқиғалары

Осал Outlook PST файлдары

Word құжаттары мен Excel жұмыс кітаптары сияқты, виртуалды түрде Outlook PST файлдары бірдей осал. Көптеген жылдар бойы көптеген пайдаланушылар Outlook файлының зақымдалуына ұшырады. Бұл жағдайда олар түйінді әрекет жасауы керек PST жөндеу. Дегенмен, әдетте, кірістірілген түзету құралы - Scanpst оны әрқашан орындай алмайды. Демек, бұл курста анағұрлым мамандандырылған және жоғары дәрежелі сыртқы құрал өте қажет, мысалы DataNumen Outlook Repair, ол зақымдалған PST файлынан максималды деректерді шығаруға көмектеседі.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. сыбайлас кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.