macro to fix missing:microsoft outlook 14.0 object library

can anyone help me out in, macro to fix missing:microsoft outlook 14.0 object library

Hi

if you are not picking this up in your references I don't think a macro is going to help you.

on my computer this file is found at

C:\Program Files (x86)\Microsoft Office\Office14\MSOUTL.OLB

but your paths could well be different

if so, search for the file MSOUTL.OLB and then add this in to your references library

Even i have the same location C:\Program Files (x86)\Microsoft Office\Office12

I am still having issues even after doing the late binding. Can someone help me ? I am not able to find the "Microsoft Outlook" in reference in VBA

Sub datesexcelvba()
Dim myApp As Object
Dim mymail As Object
Dim mydate1 As Date
Dim mydate2 As Long
Dim datetoday1 As Date
Dim datetoday2 As Long

Dim x As Long
lastrow = Sheets("RAJESH JAIN").Cells(Rows.Count, 6).End(xlUp).Row
For x = 6 To lastrow

mydate1 = Cells(x, 11).Value
mydate2 = mydate1

Cells(x, 18).Value = mydate2

datetoday1 = Date
datetoday2 = datetoday1

Cells(x, 19).Value = datetoday2

If mydate2 - datetoday2 = 7 Then

Set myApp = CreateObject("Outlook.Application")
Set mymail = myApp.CreateItem(olMailItem)
mymail.To = Cells(x, 15).Value

With mymail
.Subject = "PREMIUM PAYMENT REMINDER"
.Body = "Your Insurance Policy Premium is due. "
.Display
'.Send
End With


Cells(x, 16) = "Yes"
Cells(x, 16).Interior.ColorIndex = 3
Cells(x, 16).Font.ColorIndex = 2
Cells(x, 16).Font.Bold = True
Cells(x, 17).Value = mydate2 - datetoday2
End If
Next
Set myApp = Nothing
Set mymail = Nothing
End Sub

Help is really appreciated.