Amigo tengo este modulo para mandar correo pero me sale error: DISP_E_MEMBERNOTFOUND
Include "FiveWin.Ch"
-------------------------------------------------
Function Main()
-------------------------------------------------
LOCAL loCfg, loMsg, oError, isError := .F.
local cSMTP := "smtp.gmail.com"
Local cPuerto := 25 //465
Local cLogin := "jbricenotapia@gmail.com"
Local cPassword := "xxxxx"
local cRemitente:= "jbricenotapia@gmail.com"
Local cDestino := "syscom31@hotmail.com"
Local cAsunto := "prueba con Gestin "
Local cMensaje := "Cuerpo del mensaje"+CRLF+CRLF+CRLF
local cSSL := .T., cAuth := .T.
local cFichero := nil
// Control autentificaci贸n via SSL
IF alltrim( cSMTP ) = "smtp.live.com"
cSSL := .T.
ELSEIF alltrim( cSMTP ) = "smtp.gmail.com"
cSSL := .T.
ENDIF
// Internet
TRY
loCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT loCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cSMTP // "smtp.gmail.com"
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := cPuerto //465
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := cAuth //.T.
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := cSSL // .T.
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := cLogin //tu cuenta de correo de salida
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := cPassword //"" //con tu clave gmail. en este caso
:Update()
END WITH
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:Configuration = loCfg
:From = cRemitente
:To = cDestino
:Subject = cAsunto
:TextBody = cMensaje
:AddAttachment( cFichero )
:Send()
END WITH
CATCH oError
isError := .T.
END
IF isError = .F.
MsgInfo( "Mensaje enviado correctamente", " A V I S O " )
ELSE
MsgStop("ERROR: Se ha producido un error al enviar un mensaje al buzn "+cDestino+CRLF+CRLF+"Descripci贸n del Error: "+oError:Description, " E R R O R ")
ENDIF
return nil
