¿Cómo importar cumpleaños de Excel al calendario de Outlook?
Si tiene una larga lista de información de cumpleaños en una hoja de trabajo, ahora desea importar estos cumpleaños a su calendario de Outlook como eventos. ¿Cómo podría hacer frente a esta tarea con algunos métodos rápidos?
Importe cumpleaños desde Excel al calendario de Outlook con código VBA
Normalmente, no hay una forma directa de importar los cumpleaños al calendario de Outlook, aquí crearé un código VBA para resolver este problema, siga los siguientes pasos:
1. Abra la hoja de trabajo que contiene los cumpleaños que desea importar a Outlook y luego mantenga presionada la tecla ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
Código de VBA: Importar cumpleaños al calendario de Outlook
Sub ImportBirthdaysToCalendar()
'Updateby ExtendOffice
Dim xWs As Excel.Worksheet
Dim xRng As Range
Dim xOlApp As Outlook.Application
Dim xCalendarFld As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRecurrencePattern As Outlook.RecurrencePattern
Dim xRow As Integer
On Error Resume Next
Set xWs = ThisWorkbook.ActiveSheet
Set xRng = Application.InputBox("Please select the data range (only two columns):", "Kutools for Excel", , , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count <> 2 Then
MsgBox "You can only select two columns", vbOKOnly + vbCritical, "Kutools for Excel"
Exit Sub
End If
Set xOlApp = CreateObject("Outlook.Application")
Set xCalendarFld = xOlApp.Session.GetDefaultFolder(olFolderCalendar)
For xRow = 1 To xRng.Rows.Count
Set xAppointmentItem = xCalendarFld.Items.Add("IPM.Appointment")
With xAppointmentItem
.Subject = xRng.Cells(xRow, 1) & Chr(39) & "s Birthday"
.AllDayEvent = True
.Start = xRng.Cells(xRow, 2)
Set xRecurrencePattern = .GetRecurrencePattern
xRecurrencePattern.RecurrenceType = olRecursYearly
.Save
End With
Next
Set xWs = Nothing
Set xCalendarFld = Nothing
Set xOlApp = Nothing
End Sub
3. Todavía en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias. En lo que salió Referencias - VBAProject cuadro de diálogo, comprobar Biblioteca de objetos de Microsoft Outlook 16.0 forma de opción el Referencias disponibles cuadro de lista, ver captura de pantalla:
4. Luego haga clic OK para cerrar este cuadro de diálogo. Ahora presiona F5 para ejecutar este código, y aparece un cuadro emergente, seleccione las columnas de nombre y cumpleaños, vea la captura de pantalla:
5. Y luego, haga clic en OK botón, los cumpleaños se importarán al calendario de Outlook a la vez, puede iniciar su Outlook para ver el resultado, vea la captura de pantalla:
Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.
- Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
- Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
- Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
- Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
- Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
