Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Security Settings - ActiveX Control
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Titre:
Security Settings - ActiveX Control
Divers
Thread ID:
00744393
Message ID:
00744393
Vues:
53
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.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform