Como criar lembretes do Outlook a partir de planilhas do Excel?

Este artigo fala sobre a criação de lembretes do Outlook com base em dados de planilhas do Excel.

Lembretes do Outlook de Creta em planilhas do Excel com código VBA

Crie lembretes do Outlook a partir da planilha do Excel com código VBA

Se você deseja criar lembretes do Outlook a partir do Excel, faça o seguinte.

1. Crie uma planilha que contém os cabeçalhos das colunas e os campos de lembrete correspondentes, conforme a captura de tela abaixo.

Anote os: Para o status ocupado coluna, número 2 significa que o lembrete será mostrado como Ocupado no calendário do Outlook. Você pode mudar para 1 (provisório), 3 (Fora do Escritório), 4 (trabalhar em outro lugar)ou 5 (grátis) como você precisa.

2. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

3. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código do VBA abaixo para a janela de código.

Código VBA: crie lembretes do Outlook a partir de planilhas 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

Anote os: No código acima, A2: G2 é o intervalo de dados no qual você deseja criar compromissos com base.

4. aperte o F5 ou clique no botão Executar para executar o código. Em seguida, todos os compromissos com campos específicos serão inseridos no calendário do Outlook de uma vez.

E então, você pode ir para o calendário do seu Outlook para ver os resultados, veja a imagem: