Bobby Heid
bheid at appdevgrp.com
Mon Jan 12 06:22:25 CST 2004
Ahhh, the great MS Outlook security gotcha. I believe that if you are on an Exchange system, that your Exchange administrator can set it up so that your account (or the one the application is using) can bypass the security stuff. Look at www.slipstick.com for much more information on this. Also look at http://www.dimastr.com/redemption/ for the Redemption package that lets you bypass the security stuff. BTW, you get to work too early. LOL. HTH, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Christian, Lorraine Sent: Monday, January 12, 2004 6:52 AM To: Access Developers discussion and problem solving Subject: [AccessD] Outlook SP3 Hi - I have a 2000 Access database that fires off an automatic email. Everything was working fine until I upgraded Outlook to SP3. The code that creates the email message returns this error. "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? If this is unexpected, it may be a virus and you should choose "No"." There is also a check box on the message that says Allow access for and then you choose the amount of time. Below is the code I am using: Private Sub cmdPositiveEmail_Click() If txtEmailDate.Value <> " " Then MsgBox "Email was already sent on " & Format(txtEmailDate.Value, "mm/dd/yyyy"), vbOKOnly Else Call SendPositiveMessage(False) txtEmailDate.Value = Now() txtTypeOfEmail.Value = "Without Errors" End If End Sub Private Sub SendPositiveMessage(DisplayMsg As Boolean) Dim objOutlook As Object Dim objOutlookMsg As Object Dim i As Integer Dim strTo As String Dim strSubject As String Dim strBody As String On Error GoTo errorhandler 'On Error Resume Next ' Create the Outlook session. Set objOutlook = CreateObject("Outlook.Application") ' Create the message. Set objOutlookMsg = objOutlook.CreateItem(olMailItem) ' Retrieves the value from the txtCAName on the form and is assigned ' to the variable myTo to be used in an Outlook message. strTo = Me.txtCAName.Value ' Retrieves the value from the txtCIPolNo on the form and is assigned ' to the variable mySubject to be used in an Outlook message. strSubject = "Quality Assurance Results: Policy #: " & txtCIPolNo.Value ' Assigns' variable myBody to be used in an Outlook message. strBody = "This case was processed correctly and met all expectations and guidelines." & vbNewLine & vbNewLine & _ "Great job!. " With objOutlookMsg .To = strTo .Recipients.ResolveAll .Subject = strSubject .Body = strBody .Importance = olImportanceHigh .PrintOut .Send End With Set objOutlook = Nothing Set objOutlookMsg = Nothing MsgBox "Message sent successfully...", vbOKOnly, "Email Notification" cmdMainDetail.SetFocus Exit Sub errorhandler: MsgBox "Outlook could not find sender's name.", vbOKOnly + vbCritical, "Outlook Message" With objOutlookMsg .Display End With Set objOutlook = Nothing Set objOutlookMsg = Nothing MsgBox "Message sent successfully...", vbOKOnly, "Email Notification" cmdMainDetail.SetFocus cmdEmail.Visible = True cmdSend.Visible = False cmdPositiveEmail.ForeColor = vbBlack Exit Sub End Sub I believe the message is a precaution set up through Microsoft that comes with SP3. My problem is that I have to click this message several times until my code continues to run. I believe that it is trying to access address book on .resolveall and .send. Not sure how I can fix this problem. I can live with clicking "Yes" once, but would like if the message does not appear at all. Does any one know how to get around this? Thanks in advance. Lorraine Christian MassMutual Financial Group New Business Operations 413.744.5335 lchristian at massmutual.com --------------------------------------------------------- This e-mail transmission may contain information that is proprietary, privileged and/or confidential and is intended exclusively for the person(s) to whom it is addressed. Any use, copying, retention or disclosure by any person other than the intended recipient or the intended recipient's designees is strictly prohibited. If you are not the intended recipient or their designee, please notify the sender immediately by return e-mail and delete all copies. --------------------------------------------------------- _______________________________________________ AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com