[AccessD] Sending email from Access

Darrell

I use, and very much like, Chilkat Mail.
http://www.chilkatsoft.com/ChilkatMail.asp

Regards
Steve

-----Original Message----- 
From: Darrell Burns 
Sent: Wednesday, August 24, 2011 8:15 AM 
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