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.