?
Solved

Macro to read email.

Posted on 2001-07-17
2
Medium Priority
?
223 Views
Last Modified: 2012-08-13
Hi,

I need to be able read the content of every message in a folder - the folder will always be the same so it can be hard coded.

(I intended to dump this info to a text file - I can do this bit!)

Cheers

Rupert
0
Comment
Question by:ruperts
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 2

Accepted Solution

by:
Paullkha earned 400 total points
ID: 6298979
Option Compare Database
Option Explicit

Private olapp As Outlook.Application
Private olns As Outlook.NameSpace

'****************************************
'With this code, folder can be "anywhere"
'****************************************
Private Function MessageFldrExists() As Outlook.MAPIFolder
On Error GoTo err_DNE
    Dim olFolders As Outlook.MAPIFolder
   
    Set olFolders = olns.Folders("Personal Folders")
    Set MessageFldrExists = olFolders.Folders("MessageMail")
   
    Exit Function
   
err_DNE:
    Set MessageFldrExists = Nothing
End Function
Private Sub olLogon()
    Set olapp = New Outlook.Application
    Set olns = olapp.GetNamespace("MAPI")
    olns.Logon
   'dont proceed until logged on
   DoEvents
End Sub

Private Sub olLogoff()
    DoEvents
   'dont quit until all finished
    olns.Logoff
    Set olns = Nothing
    Set olapp = Nothing
End Sub

Private Sub MessageFldr2Table()
Dim Messagefldr As Outlook.MAPIFolder
Dim itmMail As Outlook.MailItem
Dim itmsMail As Outlook.Items
Dim strBody As String
   
    Call olLogon
    Set Messagefldr = MessageFldrExists()
    If Not (Messagefldr Is Nothing) Then
        Set itmsMail = Messagefldr.Items
        For Each itmMail In itmsMail
'****************
'Here is the place to put in sending strBody to a file
'****************
            strBody = itmMail.Body
        Next
    End If
    Call olLogoff
End Sub
=========
Note:
You must have a reference to Outlook object set somewhere.



0
 

Expert Comment

by:PandoraMod
ID: 6366486
ruperts, are you still having a problem? If so, please provide more information. If you solved your problem, please let us know how and then we can archive this.

Thanks,
PandoraMod
Moderator @ Experts Exchange
e-mail: pandoramod@experts-exchange.com
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this step by step procedure, you will come to know the details of creating an Outlook meeting in 2007, 2010, 2013 & 2016.
This article will help to fix the below error for MS Exchange server 2010 I. Out Of office not working II. Certificate error "name on the security certificate is invalid or does not match the name of the site" III. Make Internal URLs and External…
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
Suggested Courses

764 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question