Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Security Settings - ActiveX Control
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Title:
Security Settings - ActiveX Control
Miscellaneous
Thread ID:
00744393
Message ID:
00744393
Views:
52
I've got a program that takes an HTML file and sends it out as an email - here's the code:

LOCAL cdoMessage AS CDO.Message
LOCAL cdoConfig AS CDO.Config

cdoHTML = FILETOSTR("temp\022203.htm")

close tables all
set deleted on
use temp\sysacct in 0 exclu
select sysacct

go top
scan while !eof()

cdoMessage = CREATEOBJECT("CDO.Message")
cdoConfig = CREATEOBJECT("CDO.Configuration")

cdoFields = cdoConfig.Fields
cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.1.7"
cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 100
cdoFields.Update

cdoMessage.Configuration = cdoConfig
cdoMessage.From = "ARCompNotes@systemedic.com"
cdoMessage.To = alltrim(emailaddre)
cdoMessage.Subject = "AR CompNotes - Julie Bowman Q&A and Preauth Update"
cdoMessage.HTMLBody = cdoHTML
cdoMessage.Send

select sysacct

endscan

RELEASE cdoHTML
RELEASE cdoMessage
RELEASE cdoConfig
RELEASE cdoFields

select sysacct
use

Here's the problem - when I open the email, I get this message - "Your current security settings prohibit running ActiveX controls on this page. As a result, the page may not display correctly."

First - what ActiveX control is it talking about? And - second - how can I stop that message?

Thanks.
Next
Reply
Map
View

Click here to load this message in the networking platform