[AccessD] Sending email from Access

I've been using Outlook Security Evader from EverythingAccess.com
(http://www.everythingaccess.com/vbMAPI.htm).  

Yes I paid for it (once only - $80), but it has worked flawlessly across 4
customers and hundreds of PC's without error for over a year.  Actually, I
found two errors early on while testing, but the developer, Wayne Phillips,
fixed both in less than a day and had an update ready to download.  Has many
features that are easy to use.  One of them allows a user to decide if they
want sent emails to be saved or not (or you can decide).

I used to have to use different types of email at different customers, which
was a royal pain when it came to maintenance or troubleshooting, or
especially dealing with common code.

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darrell Burns
Sent: Tuesday, August 23, 2011 3:15 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Sending email from Access

I'm developing an A2010 app that, among other things, needs to distribute
email notifications to a small list of recipients. The recipient list is
maintained in an Access table, so all I need to do is SEND. There are 3
obstacles I need to overcome:

1. There are about 100 workstations, running everything from XP/Office2003
to Windows7/Office2010, and I can't be messing with their administrative
options.
2. The eMails must be sent without operator intervention; i.e., no security
pop-ups (what Outlook refers to as the "object model guard").
3.  The app must be deployed as a runtime, preferably with no 3rd-party
attachments (like Redemption).

I've developed a partial solution that makes calls to the Outlook object
model. It gets around obstacle #1 by using late-binding so it won't be
dependent on a particular version:

Dim objOutlook As Object
Dim objMailItem As Object
Const olMailItem as integer = 0
Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem) objMailItem.Subject =
strSubject objMailItem.Body = strBody objMailItem.Send

This solution works (as long as Outlook is already open); however, it
doesn't satisfy Obstacle #2 because the security warning does pop up. 

Anybody know of a way to get around the Outlook object model guard?

Thanx!

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