populating worksheet with Outlook mail

Status
Not open for further replies.
V

VG9uZXk

Hello. I want to populate a worksheet with my Outlook inbox content (all 2007

versions with Vista). I get erros on invalid params on olFolderInbox as

indicated in code below. (I sometimes get erros on creating the initial app

object, but not as often). BTW, I run this code from Excel, and I have

created ref to outlook library.

Sub getMail()

Dim ol As Outlook.Application

Dim ns As Namespace

Dim folder As MAPIFolder

Dim ws As Worksheet

Dim i As Integer

Set ol = CreateObject("Outlook.Application")

Set ns = ol.GetNamespace("MAPI")

ns.Logon

'errors about parameter value not valid on next line:

Set folder = ns.GetDefaultFolder(olFolderIndox)

Set ws = Worksheets("Receive Mail")

For i = 1 To folder.Items.Count

With folder.Items(i)

ws.[A1].Offset(i, 0) = .SenderName

ws.[A1].Offset(i, 1) = .SenderEmailAddress

ws.[A1].Offset(i, 2) = .Subject

ws.[A1].Offset(i, 3) = .Size

ws.[A1].Offset(i, 4) = .ReceivedTime

ws.[A1].Offset(i, 5) = .Left(.Body, 100)

End With

Next i

ns.Logoff

Set ol = Nothing

End Sub
 
S

Sue Mosher [MVP]

Look at that problem statement again to find the typo. It doesn't say

olFolderInbox at all.

Sue Mosher

"Toney" <Toney> wrote in message

news:BFEF6362-373E-46B1-9FAD-C25913FDDDA1@microsoft.com...
> Hello. I want to populate a worksheet with my Outlook inbox content (all
> 2007
> versions with Vista). I get erros on invalid params on olFolderInbox as
> indicated in code below. (I sometimes get erros on creating the initial
> app
> object, but not as often). BTW, I run this code from Excel, and I have
> created ref to outlook library.

> Sub getMail()

> Dim ol As Outlook.Application
> Dim ns As Namespace
> Dim folder As MAPIFolder
> Dim ws As Worksheet

> Dim i As Integer

> Set ol = CreateObject("Outlook.Application")
> Set ns = ol.GetNamespace("MAPI")
> ns.Logon

> 'errors about parameter value not valid on next line:

> Set folder = ns.GetDefaultFolder(olFolderIndox)

> Set ws = Worksheets("Receive Mail")

> For i = 1 To folder.Items.Count
> With folder.Items(i)

> ws.[A1].Offset(i, 0) = .SenderName
> ws.[A1].Offset(i, 1) = .SenderEmailAddress
> ws.[A1].Offset(i, 2) = .Subject
> ws.[A1].Offset(i, 3) = .Size
> ws.[A1].Offset(i, 4) = .ReceivedTime
> ws.[A1].Offset(i, 5) = .Left(.Body, 100)

> End With
> Next i

> ns.Logoff
> Set ol = Nothing

> End Sub

>
 
V

VG9uZXk

Dang. This is why I should type everyting in lower cases, to help me find

these errors. This time, I probably didn't do this.

Thanks much. My code words now.

Toney

"Sue Mosher [MVP]" wrote:


> Look at that problem statement again to find the typo. It doesn't say
> olFolderInbox at all.

> > Sue Mosher
> > >

> "Toney" <Toney> wrote in message
> news:BFEF6362-373E-46B1-9FAD-C25913FDDDA1@microsoft.com...
> > Hello. I want to populate a worksheet with my Outlook inbox content (all
> > 2007
> > versions with Vista). I get erros on invalid params on olFolderInbox as
> > indicated in code below. (I sometimes get erros on creating the initial
> > app
> > object, but not as often). BTW, I run this code from Excel, and I have
> > created ref to outlook library.
> > Sub getMail()
> > Dim ol As Outlook.Application
> > Dim ns As Namespace
> > Dim folder As MAPIFolder
> > Dim ws As Worksheet
> > Dim i As Integer
> > Set ol = CreateObject("Outlook.Application")
> > Set ns = ol.GetNamespace("MAPI")
> > ns.Logon
> > 'errors about parameter value not valid on next line:
> > Set folder = ns.GetDefaultFolder(olFolderIndox)
> > Set ws = Worksheets("Receive Mail")
> > For i = 1 To folder.Items.Count
> > With folder.Items(i)
> > ws.[A1].Offset(i, 0) = .SenderName
> > ws.[A1].Offset(i, 1) = .SenderEmailAddress
> > ws.[A1].Offset(i, 2) = .Subject
> > ws.[A1].Offset(i, 3) = .Size
> > ws.[A1].Offset(i, 4) = .ReceivedTime
> > ws.[A1].Offset(i, 5) = .Left(.Body, 100)
> > End With
> > Next i
> > ns.Logoff
> > Set ol = Nothing
> > End Sub
> >

>
 
Status
Not open for further replies.
< List Click | Distribution of code >
Similar threads
Thread starter Title Forum Replies Date
A Outlook Reminders not populating for certain events Using Outlook 2
D populating listbox on custom form from Access Outlook VBA and Custom Forms 7
T populating multiple calendars without invites Using Outlook 1
microsvc Populating everyone's calendar with campus events Exchange Server Administration 1
T Populating listbox with MS Access table Using Outlook 2
S Custom field not populating in Custom View or Mail Merge Exchange Server Administration 2
B Populating Additional Outlook Column with Date \ Time Using Outlook 0
R My email merge/business contact manager fields are not populating BCM (Business Contact Manager) 1
T populating fields with information from the address book Outlook VBA and Custom Forms 5
M BCM History 'From' field not populating BCM (Business Contact Manager) 2
O Worksheet doesn't show on jumplist Using Outlook 1
L Open an Exel Macro Enabled Worksheet Using Outlook 4
e_a_g_l_e_p_i Need clarification on 2-Step Verification for Gmail using Outlook 2021 Using Outlook 0
L Opening People Outlook 2021 Using Outlook 0
e_a_g_l_e_p_i Outlook 2021 not letting me setup my Gmail using pop Using Outlook 1
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
M Outlook 2016 outlook vba to look into shared mailbox Outlook VBA and Custom Forms 0
P Can no longer sync Outlook with iPhone calendar after iPhone update to 17.1.1 Using Outlook 2
O Outlook - Switch from Exchange to IMAP Using Outlook 0
e_a_g_l_e_p_i Is it possible to have a reminder in Outlook 2021 for every 90 days Using Outlook 3
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
C Advanced search terms for "Outlook Data File" Using Outlook 1
N Reply to Outlook messages by moving messages to a specific Outlook folder Outlook VBA and Custom Forms 1
O How to find out the domain and server settings that my Outlook is using? Using Outlook 2
A Outlook 365 (OutLook For Mac)Move "On My Computer" Folder Items From Old To New Mac Computer Using Outlook 3
H Integrating Alexa & Outlook Pro 2021 Using Outlook 2
Z Automatically adjust Outlook Reading Pane from bottom to right depending on portrait or landscape window Using Outlook 1
Rupert Dragwater Background colors not saving in Outlook 365 Using Outlook 15
petunia Outlook tasks module sunsetting? Exchange Server Administration 3
G Save emails as msg file from Outlook Web AddIn (Office JS) Outlook VBA and Custom Forms 0
D Outlook VBA forward the selected email to the original sender’s email ID (including the email used in TO, CC Field) from the email chain Outlook VBA and Custom Forms 3
U Outlook 2021 not showing contact cards in Searches Using Outlook 1
C Outlook - Macro to block senders domain - Macro Fix Outlook VBA and Custom Forms 2
H Outlook 365 O365 outlook calendar item editing Using Outlook 1
J Outlook 365 html inline images Using Outlook 0
Rupert Dragwater How to get Outlook 365 to open from websites Using Outlook 5
S Why do I have to close and reopen Outlook for macros to work? Outlook VBA and Custom Forms 2
J Outlook 2021 ScanPST errors (yet again ... sorry): repair button missing Outlook 2021 Using Outlook 0
HarvMan Outlook 365 - Rule to Move an Incoming Message to Another Folder Using Outlook 4
K Moved pst to new computer, now Gmail not coming into Outlook Using Outlook 7
S Email Macros to go to a SHARED Outlook mailbox Draft folder...NOT my personal Outlook Draft folder Using Outlook 2
F Running Scripts in Outlook 2021 Using Outlook 0
Nufc1980 Outlook "Please treat this as private label" auto added to some emails - Help. Using Outlook 3
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
V Outlook macros no longer run until VB editor is opened Outlook VBA and Custom Forms 0
R Outlook 365 How to integrate a third-party app with Outlook to track email and sms? Using Outlook 2
e_a_g_l_e_p_i I can't believe what I am seeing when trying to install Outlook 2021 Using Outlook 9
Kika Melo Outlook Calendar deleted appointments not in Deleted Items folder Using Outlook 3
P How to get a QR code for automatic signin with Outlook for iOS Using Outlook 5

Similar threads

Top