Bypassing security in Outlook 2000

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I currently have code to automatically send and e-mail at a certain time. I
have the code set in Access 97. The code calls Outlook to open a new message,
attach a file and send the file. Now the problem I have been running into is
a message that pops up stating "Another program is trying to send an e-mail
on your behalf...Do you wish to send" how would I go about avoiding this
message. I've tried using a "Click Yes" program someone suggested to me, but
when I have my computer locked (when I leave for the day) It won't click yes.
Not until I unlock my computer will it actually finish running the code to
click the "yes" button. Any suggestions out there?
 
Here is some info on this subject which should help.

From a past post by the angelic MVP Cheryl Fischer:Unless you are working in an Exchange environment, these prompts cannot be
turned off. If you are working in the Exchange environment see:
http://www.outlookcode.com/d/sec.htm

To work around this feature, I have been pleased with Express Soft's free
utility called "ClickYes", available for download at:
http://www.express-soft.com/mailmate/clickyes.html. It does not make the
security prompt go away, but it does use api calls to click the 'Yes' button
for you. Here is a link to a thread where you can find code that will check
to see whether ClickYes is running, start the utility, run email-related
code, and then turn the utility off. http://tinyurl.com/3x3xj

ClickYes is not the only work-around or option available; others can be
found at: http://www.outlookcode.com/d/sec.htm
And a post by someone named John Conklin:I found this on a website somewhere and just put it into my database, and it
works great.

Set outl = CreateObject("Outlook.Application")
Set mail = outl.CreateItem(olMailItem)
mail.To = "(e-mail address removed)"
mail.Subject = ActiveWorkbook.Name
mail.attachments.Add (ActiveWorkbook.FullName)
mail.display
SendKeys "^{ENTER}"

Set outl = Nothing
Set mail = Nothing
This link may also be of assistance:
http://office.microsoft.com/en-us/assistance/HA011402931033.aspx

Hope that helps you,
--
Jeff Conrad
Access Junkie
Bend, Oregon

in message:
 
Back
Top