VBA Kod Hatası,

[gicimi]

Merhaba;

Aşağıdaki kodu çalıştırdığımda resimdeki hata ile karşılaşıyorum.

Microsoft Object Library x.x referansi tool menusunden seçmeme rağmen hata ile karşılaşıyorum.

Option Explicit
 
Sub Create_Task()
 
Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem
Dim X As Long
 
Set olApp = New Outlook.Application
 
Application.ScreenUpdating = False
 
For X = 2 To Range("A65536").End(3).Row
    Set olTask = olApp.CreateItem(3)
    With olTask
        .Subject = Cells(X, "C").Value
        .Body = Cells(X, "B").Value
        .StartDate = Cells(X, "D").Value
        .DueDate = Cells(X, "E").Value
        .Status = olTaskWaiting
        .Importance = olImportanceHigh
        .ReminderSet = True
        .ReminderTime = Cells(X, "F").Value
        .ReminderPlaySound = True
        .Save
    End With
Next
 
Set olTask = Nothing
Set olApp = Nothing
 
Application.ScreenUpdating = True
 
MsgBox "Outlook Task Kuruldu.", vbInformation
End Sub

 

[Haluk]

"Option Explicit" satırını silip, deneyin ....

.

 

[gicimi]

Haluk abi aynı hatayı verdi.

 

[Haluk]

Bende MS Outlook olmadığı için, deneme şansım yok ...

.

 

[Korhan Ayhan]

Ben denedim. Bende hata vermedi.

Ofis 2019

 

[gicimi]

Office 2016

 

[Korhan Ayhan]

Referans bölümünde hata veriyor.

 

[gicimi]

@Korhan Ayhan Hocam, Microsoft Object Library x.x referansi tool menusunden ekli durumda.

 

[gicimi]

Referansları ekledim sorunsuz çalıştı. Teşekkürler.