Come creare promemoria di Outlook direttamente da un foglio di calcolo Excel?

Questo articolo spiega come creare promemoria di Outlook direttamente dai dati presenti in un foglio di calcolo Excel.

Creare promemoria di Outlook da un foglio di calcolo Excel con codice VBA

---

Creare promemoria di Outlook da un foglio di calcolo Excel con codice VBA

Per creare promemoria di Outlook direttamente da Excel, segui questi semplici passaggi.

1. Crea un foglio di lavoro con le intestazioni di colonna e i relativi campi per il promemoria, come illustrato nello screenshot seguente.

Nota: nella colonna «Stato occupazione», il numero "2" indica che il promemoria verrà visualizzato come «Occupato» nel tuo calendario di Outlook. Puoi modificarlo in base alle tue esigenze scegliendo tra "1 (Provvisorio)", "3 (Fuori sede)", "4 (Lavoro altrove)" o "5 (Libero)".

2. Premi i tasti «Alt» + "F11" per aprire la finestra di Microsoft Visual Basic, Applications Edition.

3. Nella finestra «Microsoft Visual Basic, Applications Edition», fai clic su «Inserisci» > «Modulo», quindi copia il seguente codice VBA nella finestra del codice.

Codice VBA: crea promemoria di Outlook da un foglio di calcolo 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: Nel codice riportato sopra, "A2:G2" è l'intervallo dati in base al quale desideri creare gli appuntamenti.

4. Premi "F5" o fai clic sul pulsante «Esegui» per avviare il codice: tutti gli appuntamenti con i campi specificati verranno aggiunti contemporaneamente al tuo calendario di Outlook.

Potrai quindi aprire il Calendario di Outlook per visualizzare i risultati. Vedi lo screenshot: