[AccessD] OT - Access Using Outlook Redemption

If your Outlook is connected with MS Exchange Server, there is a
procedure to avoid this security pop-ups.
It consists of adding a registry key on the users pc and a Outlook form
on the Exchange server public folder.
I'm afraid I can't seem to find the MSKB id, but I supose you can find
it pretty easy on the MSKB.

Ola, hold your horses. Found this in my files.
[HKEY_CURRENT_USER\Software\Policies\Microsoft\Security]
"CheckAdminSettings"=dword:00000001

Search the MSKB for CheckAdminSettings and choose appropriate Exchanger
Server version.

Erwin
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Tuesday, November 22, 2005 12:28 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Access Using Outlook Redemption

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
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com