Email Popup Box

[Guest]

I have a form which is tied to a table. The form has the following fields:
To, Cc, Bcc, Subject and Message_text. There's a send button on the form
wich kicks-off the following code:

Dim oOLApp As Outlook.Application
Dim oOLDoc As Outlook.MailItem


Set oOLApp = New Outlook.Application
Set oOLDoc = oOLApp.CreateItem(olMailItem)

With oOLDoc
.To = "(e-mail address removed);" & Me.To
.Cc = Me.Cc
.Bcc = Me.Bcc
.Subject = Me.Subject
.Body = Me.Message_Text
End With
oOLDoc.Display
oOLDoc.Send

My problem is that, while the email does display in edit mode, an Microsoft
Office Outlook popup box also apprears advising: "A program is trying to
automatically send emails on your befalf...", followed by Yes, No, Help
buttons.

The popup box is not allowing the user to send the email and freezes the
application.

Any suggestions on how I go about suppressing that error message.

Thanks,
Manuel

 

[Arvin Meyer [MVP]]

Have a look at Redemption:

http://www.dimastr.com/redemption/

which is free for non-commercial use. Our enterprise wide license cost only
$200 and the license covers all 1600 computers (although we only running it
on about 20 of them)
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access

 

[Guest]

Ok, so I dowloaded the "developer" version of Redemption. I ran the
Install.exe file and, when prompted, saved the Redemption.dll file to
C:\Program Files\Redemption. But now what? You'll have to excuse me - I'm a
bit of a novice at best when it comes to some of this stuff. Do I have to
register the code with Access? Do I have to reference the program in my VBA
code?

Thanks for the assistance!!

Manuel

 

[Arvin Meyer [MVP]]

Nope, it's just an add-in to Outlook. Read the web page. As I remember, you
need to do nothing. It will register itself when you install it.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access