Come creare promemoria di Outlook da un foglio di calcolo Excel?
Questo articolo parla della creazione di promemoria di Outlook basati sui dati del foglio di calcolo Excel.
Promemoria di Outlook di Creta dal foglio di calcolo Excel con codice VBA
Crea promemoria di Outlook dal foglio di calcolo Excel con codice VBA
Se desideri creare promemoria di Outlook da Excel, procedi come segue.
1. Creare un foglio di lavoro contenente le intestazioni delle colonne e i campi di promemoria corrispondenti come mostrato nell'immagine sottostante.
Note:: Per il stato occupato colonna, numero 2 significa che il promemoria verrà mostrato come Occupato nel calendario di Outlook. Puoi cambiarlo in 1 (provvisorio), 3 (Fuori sede), 4 (Lavorare altrove), o 5 (gratuito) di cui hai bisogno.
2. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
3. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia sotto il codice VBA nella finestra del codice.
Codice VBA: crea promemoria di Outlook dal 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
Note:: Nel codice sopra, A2: G2 è l'intervallo di dati su cui desideri creare appuntamenti.
4. premi il F5 o fare clic sul pulsante Esegui per eseguire il codice. Quindi tutti gli appuntamenti con campi specifici verranno inseriti nel calendario di Outlook contemporaneamente.
E poi, puoi andare al calendario della tua prospettiva per visualizzare i risultati, vedi screenshot:
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.