Function Envia_Mail( oCfg, cFrom, cTo, cCC, cBCC, cMsg, cSubject)
local cToken, oError
local lRet := .f.
aTo := { cTo } //--> PARA
cSubject := "Assuto do Teste 2"
cMsg := "Aki vai o Corpo da Mensagem do Email com SSL"
// cTo := Destinatarios( cTo ) //--> PARA
// cCC := Destinatarios( cCC ) //--> COM COPIA
// cBCC := Destinatarios( cBCC ) //--> COM COPIA OCULTA
/*
MsgInfo( "cFrom="+cSTR(cFrom)+CRLF+;
"cTo="+cSTR(cTo)+CRLF+;
"cCC="+cSTR(cCC)+CRLF+;
"cBCC="+cSTR(cBCC)+CRLF+;
"cSubject="+cSTR(cSubject)+CRLF+;
"cMsg="+cSTR(cMsg)+CRLF+;
"aAttach[1]="+cSTR(aAttach[1])+CRLF+;
"aAttach[2]="+cSTR(aAttach[2]), "Envia_Mail()" )
*/
FOR i:=1 to len(aTo)
TRY
oMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT oMsg
:Configuration = oCfg
:From = cFrom
:To = cTo
:CC = cCC
:BCC = cBCC
:Subject = cSubject
:TextBody = cMsg
For x := 1 To Len( aAttach )
if aAttach[x] <> NIL
:AddAttachment(AllTrim(aAttach[x]))
endif
Next
:Send()
END WITH
lRet := .t.
CATCH oError
MsgInfo( "Não Foi Possível enviar o Email !" +CRLF+CRLF+ ;
"Para: " + cTo +CRLF+ ;
"Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ;
"SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ;
"OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ;
"SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ;
"Mensaje: " + oError:Description, "Envia_eMail()" )
lRet := .f.
END
NEXT
Return lRet
Vlw Kapiaba