Get Email Data from Outlook to Excel

[Akshay_divecha]

Hello Experts,

Working to find a VBA code which can copy details from outlook to excel and below is the code but while run the code getting below error.

Pls help to advise what's wrong,

Sub GetFromOutlook()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer

Set OutApp = CreateObject("outlook.application")
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders(“inbox”)

i = 1

For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range(“Email_Receipt_Date”).Value And Date <= 1 - Feb - 2020 Then
Range("email_Subject").Offset(i, 0).Value = OutlookMail.Subject
Range(“email_Subject”).Offset(i, 0).Columns.AutoFit
Range(“email_Subject”).Offset(i, 0).VerticalAlignment = xlTop
Range(“email_Date”).Offset(i, 0).Value = OutlookMail.ReceivedTime
Range(“email_Date”).Offset(i, 0).Columns.AutoFit
Range(“email_Date”).Offset(i, 0).VerticalAlignment = xlTop
Range(“email_Sender”).Offset(i, 0).Value = OutlookMail.SenderName
Range(“email_Sender”).Offset(i, 0).Columns.AutoFit
Range(“email_Sender”).Offset(i, 0).VerticalAlignment = xlTop
Range(“email_CC”).Offset(i, 0).Value = OutlookMail.Body
Range(“email_CC”).Offset(i, 0).Columns.AutoFit
Range(“email_CC”).Offset(i, 0).VerticalAlignment = xlTop

i = i + 1
End If
Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub

 

[Darren Bartrup]

Excel doesn't know anything about Outlook unless you tell it where to look.

On the VBA toolbar click on Tools and References.
Tick the Microsoft Outlook xx.x Object Library.

 

[Akshay_divecha]

Excel doesn't know anything about Outlook unless you tell it where to look.

On the VBA toolbar click on Tools and References.
Tick the Microsoft Outlook xx.x Object Library.

Its already ticked dear..

 

[Darren Bartrup]

Ah, you got me there then.

Not sure.
You have defined the OutlookApp variable, but then used OutApp though which would throw a Variable not defined error if you have Option Explicit on, or an Object variable or With block variable not set error if you didn't. - that wouldn't cause the error you're getting though.

 

[Akshay_divecha]

Ah, you got me there then.

Not sure.
You have defined the OutlookApp variable, but then used OutApp though which would throw a Variable not defined error if you have Option Explicit on, or an Object variable or With block variable not set error if you didn't. - that wouldn't cause the error you're getting though.

Changed as below, but still there's an error..

Could you help me to fix it please..

Sub GetFromOutlook()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders(“Inbox”)

 

[Akshay_divecha]

Ah, you got me there then.

Not sure.
You have defined the OutlookApp variable, but then used OutApp though which would throw a Variable not defined error if you have Option Explicit on, or an Object variable or With block variable not set error if you didn't. - that wouldn't cause the error you're getting though.

Hey... can you help me to fix the problem please...