ERROR CON CDOSYS PARA CORREOS

[jbrita]

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

[karinha]

Infelizmente não é mais possivel enviar email via outlook.com

http://fivewin.com.br/index.php?/topic/22142-configuracao-smtp-hotmail/?hl=outlook#entry266046

[postinelli]

el puerto para gmail es 465 segun recuerdo

[FranciscoA]

De acuerdo con Postinelli. Asi lo uso.

Code: Select all  Expand view  RUN

Local cMailServer := PadR( "smtp.gmail.com", 60 ), ;             // servidor de correo
         cFrom       := PadR( "ram@gmail.com", 60 ), ;      // remitente
         cTo         := PadR( "ram@gmail.com", 180 ), ;   // destinatario (uno o varios separados con comas)
         cBCC        := PadR( " ", 180 ), ;                         // copias ocultas a (uno o varios separados con comas)
         cAttach     := PadR( cAdjuntos, 180),;  // archivo anexo (uno o varios separados con comas)
         cSubject    := "Informe",;      //Space( 60 ), ;           // asunto
         cBody       := cDatos,;  //Space( 500 ), ; // cuerpo del mensaje
         nPort       := 465, ;                                      // puerto usado por el servidor de correo
         cUser       := cFrom ,; // Space( 60 ), ;                  // nombre de usuario para autenticación
         cPass       := "raom"   //Space( 30 )                 // contraseña para autenticación