Moderador: Moderadores
objCDOSYSCon:=TOleAuto():New( "CDO.Configuration" )
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver"):Value := smtp_server
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport"):Value := smtp_Port
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing"):Value := 2
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"):Value := 1
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername"):Value := smtp_user
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword"):Value := smtp_pass
...
objCDOSYSMail:Configuration := objCDOSYSCon
objCDOSYSMail:From := mail_from
objCDOSYSMail:To := mail_to
objCDOSYSMail:Subject := mail_subject
if lHtml // critica se quero HTML ou Texto plano
objCDOSYSMail:HTMLBody := mail_message // + CRLF + CRLF + MemoRead( mail_attach )
else
objCDOSYSMail:TextBody := mail_message // + CRLF + CRLF + MemoRead( mail_attach )
endif
BlatCMD := [ blat.txt] + ;
[ -to ] + alltrim(cto) + ;
[ -server ] + alltrim(cserver) + ;
...
iif( lHtml, [ -html ], [] )
...
if lHtml
cBody := FormHtml( cSubject, cBody )
endif
memowrit( "blat.txt", cbody )
...
Function FormHtml( cSubject, cBody )
Local cOpen := '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd">' + CRLF
Local cClose := CRLF + 'Nossa empresa envia email somente para pessoas e empresas cadastradas em nosso sistema.' + CRLF + ;
'Caso tenha duvidas favor entrar em contato com nossa central de atendimento ao cliente.'
cHTML := ;
'<html>' + CRLF + ;
'<head>' + CRLF + ;
' <meta http-equiv="Content-Type"' + CRLF + ;
' content="text/html; charset=iso-8859-1">' + CRLF + ;
'</head>' + CRLF + ;
'<body>' + CRLF + ;
'<pre>' + CRLF + ;
cBody + CRLF + ;
'</pre>' + CRLF + ;
'</body>' + CRLF + ;
'</html>'
Return cOpen + cHTML + cClose
Alguém conseguiu afinal desvendar o mistério do objeto "SEND" não existir no CDO.Message?
TRY
oMsg:= CREATEOBJECT ( "CDO.Message" )
WITH OBJECT oMsg
oMsg:MDNRequested = .T.
oMsg:Configuration = oCfg
oMsg:From = cFrom
oMsg:To = aTo[i]
oMsg:CC = aCC
oMsg:BCC = aBCC
oMsg:Subject = cSubject
oMsg:Sender = cdpar000->fantasia
oMsg:ReplyTo = cFrom
oMsg:Organization = cdpar000->razao
if !uso
cMsg = strtran( cMsg, chr(13)+chr(10) , '<br>' )
oMsg:HTMLBody = "<h3>"+cMsg+"</h3>"
else
oMsg:TextBody = cMsg
endif
For x := 1 To Len( aFiles )
oMsg:AddAttachment(AllTrim(aFiles[x]))
Next
IF vEMAIL_CONF
oMsg:Fields("urn:schemas:mailheader:disposition-notification-to"):Value:= cFrom
oMsg:Fields("urn:schemas:mailheader:return-receipt-to"):Value:= cFrom
ENDIF
oMsg:Fields:update()
oMsg:Send()
END WITH
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes