[AccessD] OT - Access Using Outlook Redemption

This site has a lot of Outlook VBA code methods
http://www.outlookcode.com/d/vb.htm

Here are some links on other methods to get around email output security

http://freevbcode.com/ShowCode.Asp?ID=109


ClickYes freeware
There is vba code at bottom of page to turn on and off after install
http://www.contextmagic.com/express-clickyes/

Advanced Security for Outlook is Mapilib freeware but might be more
complicated for user and install.

It also has an article on various types of outlook security model

http://www.mapilab.com/outlook/security/

Article on how to code your own override. This might be difficult
for use with multiple OS as CDO object model changes.

How to avoid security prompts in Visual Basic programs for Outlook

http://www.mapilab.com/articles/vb_outlook_security.html

Charlotte Foust wrote:

>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
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada