¿Cómo crear recordatorios de Outlook desde una hoja de cálculo de Excel?
Este artículo habla sobre la creación de recordatorios de Outlook basados en datos de una hoja de cálculo de Excel.
Recordatorios de Crete Outlook desde una hoja de cálculo de Excel con código VBA
Cree recordatorios de Outlook desde una hoja de cálculo de Excel con código VBA
Si desea crear recordatorios de Outlook desde Excel, haga lo siguiente.
1. Cree una hoja de trabajo que contenga los encabezados de las columnas y los campos recordatorios correspondientes como se muestra a continuación.
Note: Para el estado ocupado columna, número 2 significa que el recordatorio se mostrará como Ocupado en su calendario de Outlook. Puedes cambiarlo a 1 (provisional), 3 (Fuera de la oficina), 4 (trabajando en otro lugar)o 5 (Gratis) como necesites.
2. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
3. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego, copie el código VBA a continuación en la ventana Código.
Código de VBA: cree recordatorios de Outlook desde una hoja de cálculo de 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: En el código anterior, A2: G2 es el rango de datos en el que desea crear citas.
4. presione el F5 o haga clic en el botón Ejecutar para ejecutar el código. Luego, todas las citas con campos específicos se insertarán en el calendario de su Outlook a la vez.
Y luego, puede ir al Calendario de su perspectiva para ver los resultados, Ver captura de pantalla:
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.