[AccessD] OT - Access Using Outlook Redemption

Charlotte Foust cfoust at infostatsystems.com
Mon Nov 21 17:28:22 CST 2005


Outlook will give you that even if you just try to validate an email
address against the address book, let alone trying to read the body of a
message.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Paul Hartland
(ISHARP)
Sent: Monday, November 21, 2005 6:34 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT - Access Using Outlook Redemption


I didn't think I did either I had the following code:

For intFolderCount = 1 To objInterview.Items.Count
        Set objMail = objInterview.Items.Item(intFolderCount)
        If (objMail.UnRead = True) Then
            intNewItems = intNewItems + 1
            frmMain.txtNewText.Text = intNewItems
            strSubject = objMail.Subject
            If (strOffice = "") Then
                strOffice = Mid(strSubject, (InStrRev(strSubject, " ") +
1))
                strMessage = Mid(objMail.Body, InStr(objMail.Body,
"Message:"))
            End If
            
            MsgBox strOffice & vbCrLf & vbCrLf & strMessage
            
            strOffice = ""
            
            objMail.UnRead = False
        End If
Next intFolderCount 

And when it's gets to the strMessage = Mid(objMail.Body,
InStr(objMail.Body,
"Message:"))

It throws the Outlook security warning up, thought it would only do this
if trying to send

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: 21 November 2005 13:04
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Access Using Outlook Redemption

Hi Paul
Well I'm not convinced you need Redemption just to read emaisl, but
assuming you have other reasons why you need to use it then try:

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookFolder As MAPIFolder
Dim objOutlookNameSpace As Outlook.NameSpace Dim objSafeMailItem As
Object



Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookNameSpace = objOutlook.GetNamespace("MAPI") Set
objOutlookFolder = objOutlookNameSpace.GetDefaultFolder(olFolderInbox)
For Each objOutlookMsg In objOutlookFolder.Items Set objSafeMailItem =
CreateObject("Redemption.SafeMailItem")
objSafeMailItem.Item = objOutlookMsg
With objSafeMailItem
If .UnRead Then
Debug.Print .Subject
Debug.Print .Body
End If
End With
Next

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: [AccessD] OT - Access Using Outlook Redemption
Date: 21/11/05 12:08


To all,

Can anyone guide me or has anyone got any sample code for using Outlook
redemption via Access, basically all I want to do is scan an Outlook
folder for Unread emails and grab the subject line and the body message
of that particular email.

Thanks in advance for any help and/or sample code on this..

Paul Hartland

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



More information about the AccessD mailing list