Gather email address from outlook

[kgkev]

I have found the following code on Dicks-Clicks website and I plan to change it so I can extract all email addresses in my send box.

However just running the code as is fails.

Can anyone suggest anything?

It fails on the first line

user-defined type not defined

Sub GetFromInbox()

    Dim olApp As Outlook.Application  <- Fails here
    Dim olNs As NameSpace
    Dim Fldr As MAPIFolder
    Dim olMail As Variant
    Dim i As Integer

    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
    i = 1

    For Each olMail In Fldr.Items
        If InStr(olMail.Body, "ozark") > 0 Or _
            InStr(olMail.Subject, "ozark") > 0 Then

            ActiveSheet.Cells(i, 1).Value = olMail.ReceivedTime
            i = i + 1
        End If
    Next olMail

    Set Fldr = Nothing
    Set olNs = Nothing
    Set olApp = Nothing

End Sub

 

[VoG]

In the VBE, Tools > References and make sure that Microsoft Outlook is ticked.

 

[kgkev]

It was ticked - But it was 9.0

I unticked it and it became 11.0.

Reticked and now it works.

recently upgraded from outlook 2000 to 2003.

 

[kgkev]

how can I find a list of the properties associated with olmail?

Currently looking for ".from"

but might need others later.

 

[kgkev]

Got it thanks

Declared as .mailitem and then viewed in the locals window.