Como criar lembretes do Outlook diretamente a partir de uma folha de cálculo do Excel?

Este artigo explica como criar lembretes no Outlook com base nos dados de uma folha de cálculo do Excel.

Criar lembretes do Outlook a partir de uma folha de cálculo do Excel com código VBA

---

Criar lembretes do Outlook a partir de uma folha de cálculo do Excel com código VBA

Para criar lembretes do Outlook a partir do Excel, siga estes passos.

1. Crie uma folha de cálculo com os cabeçalhos das colunas e os respetivos campos de lembrete, tal como mostrado na imagem abaixo.

Nota: Na coluna «estado de ocupação», o número "2" indica que o lembrete aparecerá como «Ocupado» no seu calendário do Outlook. Pode alterá-lo, conforme necessário, para «1 (Provisório)», "3 (Ausente)", "4 (Trabalhando em Outro Local)" ou "5 (Livre)".

2. Prima as teclas «Alt» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.

3. Na janela «Microsoft Visual Basic for Applications», clique em «Inserir» > «Módulo» e, em seguida, copie o seguinte código VBA para a janela de código.

Código VBA: Criar lembretes do Outlook a partir de uma folha de cálculo do Excel

Sub AddAppointments()
'Update by Extendoffice 20180608
    Dim I As Long
    Dim xRg As Range
    Dim xOutApp As Object
    Dim xOutItem As Object
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = Range("A2:G2")
    For I = 1 To xRg.Rows.Count
        Set xOutItem = xOutApp.CreateItem(1)
        Debug.Print xRg.Cells(I, 1).Value
        xOutItem.Subject = xRg.Cells(I, 1).Value
        xOutItem.Location = xRg.Cells(I, 2).Value
        xOutItem.Start = xRg.Cells(I, 3).Value
        xOutItem.Duration = xRg.Cells(I, 4).Value
        If Trim(xRg.Cells(I, 5).Value) = "" Then
            xOutItem.BusyStatus = 2
        Else
            xOutItem.BusyStatus = xRg.Cells(I, 5).Value
        End If
        If xRg.Cells(I, 6).Value > 0 Then
            xOutItem.ReminderSet = True
            xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
        Else
            xOutItem.ReminderSet = False
        End If
        xOutItem.Body = xRg.Cells(I, 7).Value
        xOutItem.Save
        Set xOutItem = Nothing
    Next
    Set xOutApp = Nothing
End Sub

Nota: No código acima, "A2:G2" é o intervalo de dados com base no qual pretende criar compromissos.

4. Prima "F5" ou clique no botão «Executar» para executar o código e inserir de imediato todos os compromissos com os campos específicos no seu calendário do Outlook.

Depois, aceda ao Calendário do seu Outlook para visualizar os resultados. Veja a imagem: