how to import contacts into outlook fom excel

XRecurrencePattern.RecurrenceType = olRecursYearlyģ. Subject = xRng.Cells(xRow, 1) & Chr(39) & 's Birthday' Set xAppointmentItem = ('IPM.Appointment') Set xOlApp = CreateObject('Outlook.Application') MsgBox 'You can only select two columns', vbOKOnly + vbCritical, 'Kutools for Excel' Set xRng = Application.InputBox('Please select the data range (only two columns):', 'Kutools for Excel',, ,, ,, 8) VBA code: Import birthdays to Outlook calendar Sub ImportBirthdaysToCalendar()ĭim xAppointmentItem As Outlook.AppointmentItemĭim xRecurrencePattern As Outlook.RecurrencePattern Click Insert > Module, and paste the following code in the Module Window. Open the worksheet that contains the birthdays that you want to import to Outlook, and then hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.Ģ.

Normally, there is no direct way to import the birthdays to Outlook calendar, here, I will create a VBA code to solve this problem, please do with the following steps:ġ. Import birthdays from Excel to Outlook calendar with VBA code

How could you deal with this task with some quick methods? If you have a long list of birthday information in a worksheet, now, you want to import these birthdays into your Outlook calendar as events. How to import birthdays from Excel to Outlook calendar?

How to import contacts into outlook fom excel