Sending Mail from Access 2000 via Outlook

[Guest]

Using the Outlook MailItem object, I can format my email as desired and
..Display to popup the Outlook mail editing window with the appropriate
contents. There are three problems though:
1) I get those annoying popups due to the Outlook security patches
2) when I either try to send the email directly via the Send method or the
user selecting the Send menu option, I get a popup saying simply that "The
Operation Failed".
3) Sometimes, there is also the problem that when I create the Outlook
Application, I get an Internal Error. No other detail is provided.

So, questions are: Is there a way of avoiding those popups? Since I am not
an administrator I am not able to mess around with the properties and options
of the patch install. And- to make matters worse- I am only doing this for a
small piece of a very large corporation, and I am therefore unlikely to get
the support that I would need to play with the install options. Certainly no
instantaneously. In spite of this, is there any way around this? The network
is totally internal, the threat of (intentional) viruses/other nasties is 0.

Question 2 is: What is preventing me from sending the emails after I jump
through all the security hoops? The code that executes looks like:

dim oOutApp as Outlook.Application, _
oOutMail as Outlook.MailItem, _
oOutRecip as Outlook.Recipients

set oOutApp = CreateObject ("Outlook.Application")
set oOutMail = oOutApp.CreateItem (olMailItem)
with oOutMail
set oOutRecip = .Recipients.Add (recipName)
oOutRecip.Type = olTo
set oOutRecip = .Recipients.Add (CurrentUser)
oOutRecip.Type = olOriginator
.Subject = ....
.Body = ....
.Display
end with
....

And Question 3: Why do I sometimes encounter these Internal Application
Errors? I cannot predictably reproduce this one.

TIA

 

[Guest]

Chairm,

Take a look here: http://www.mvps.org/access/modules/mdl0019.htm

This was for Access 98, however, I think now you need to add a reverence to:
OLE Automation.