Excelden Outlook Takvime Veri Aktarma

Tekrar Merhaba,

Şimdilik aşağıdaki kod yardımıyla sorunu çözmüş bulunmaktayım,
Teşekkür ederim.

Sub createappointment()
Set oloutlook = CreateObject("outlook.application")
Set Namespace = oloutlook.getnamespace("MAPI")
Set olofolder = Namespace.getdefaultfolder(9)

lastrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 4 To lastrow

StartDate = Cells(i, 1).Value
Description = Cells(i, 2).Value


Set appointment = olofolder.items.Add

With appointment
.Start = StartDate
.Subject = Description
.Save


End With
Next i


End Sub