Access to Outlook alert

[Chad]

I have a quick questions about an alert I get when trying
to send an email in outlook xp. The alert is
stating "Outlook is sending a email from an unrecognized
application?" Is it ok for outlook to send? (or
something like that) and then gives me a yes, no, help
option. The data flow is going from access xp to outlook
xp and a sample of my code is attached. The application
is a trusted access model (I built) that I want to fire
off this email without this alert.



Dim appOutlook As New Outlook.Application
Dim msg As Outlook.MailItem
Dim strBody As String
Dim strSubject As String
Dim strTo As String

StrTo = "MyName"
StrSubject = "MySubject"
StrBody = "MyData"

'Create new mail message and send to contacts
Set msg = appOutlook.CreateItem(olMailItem)

With msg

.To = strTo
.Subject = strSubject
.Body = strBody
.Send

End With

Msg = Nothing

Is there anyway to get rid of this alert?

Thanks

 

[Sue Mosher [MVP-Outlook]]

See http://www.outlookcode.com/d/sec.htm for your options with regard to the
"object model guard" security in Outlook 2000 SP2 and later versions.

 

[Guest]

I took a look at your website, but still getting the
prompt with the following

Set msg = appOutlook.CreateItem(olMailItem)

With msg

.To = "trythis.net"

.Subject = "MySubject"

.Body = "Mytext"

..Send

End With

 

[Sue Mosher [MVP-Outlook]]

Well, of course you're still getting the prompt; you're using the .Send
method.

The page I suggested lists all the ways to avoid the prompt. Choose the one
that best fits your application and programming skills. (HINT: Redemption)

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

 

[Guest]

yep...I missed that page. Thanks Sue...I appreciate it!

Take care
Chad