Como importar aniversários em lote da planilha do Excel para o calendário do Outlook

Se você tiver uma lista de informações de aniversário em uma planilha do Excel, convém importar esses aniversários para o calendário do Outlook como eventos. Este artigo irá guiá-lo para realizá-lo em tempo rápido.

No artigo anterior – “Como importar aniversários em lote do Excel para os contatos correspondentes do Outlook”, você pode aprender os meios para adicionar informações de aniversário em um Excel para contatos relevantes. Semelhante a isso, alguns usuários gostariam de criar eventos de aniversário do Outlook a partir dos dados em uma planilha do Excel. Olhando para este problema, vamos expor outro pedaço de código VBA para ajudá-lo a obtê-lo com facilidade.

Aniversários de importação em lote do Excel para o calendário do Outlook

1. Em primeiro lugar, abra o arquivo específico do Excel. Meu arquivo Excel de amostra é mostrado na figura a seguir.
2. Em seguida, pressione “Alt + F11” para acionar o editor Excel VBA.
3. Em seguida, na nova janela “Microsoft Visual Basic for Applications”, habilite a referência a “MS Outlook Object Library” de acordo com “Como adicionar uma biblioteca de objetosrary Referência em VBA".
4. Depois disso, copie o seguinte código VBA em um projeto ou módulo.

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

Nota: 1. Altere a folha específica conforme o seu caso.

2. Altere o intervalo de células correspondente dependendo do seu próprio arquivo do Excel.
3. Por fim, pressione diretamente a tecla “F5” para executar esta macro.
4. Quando a macro terminar, você poderá abrir a pasta de calendário padrão do Outlook, na qual poderá ver todos os novos eventos de aniversário importados, como na captura de tela abaixo.

Arquivos PST do Outlook vulneráveis

Como documentos do Word e pastas de trabalho do Excel, virtualmente, os arquivos PST do Outlook também são vulneráveis. Durante anos, muitos usuários estiveram sujeitos a danos em arquivos do Outlook. Nessa situação, eles têm que tentar Reparação de PST. No entanto, comumente, ferramenta de correção integrada – Scanpst é sempre incapaz de realizá-la. Assim, neste curso, é altamente necessária uma ferramenta externa mais especializada e de alto nível, como DataNumen Outlook Repair, que pode ajudá-lo a extrair o máximo de dados do arquivo PST corrompido.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com