Rick Lipkin,
Debes tener instalado el framework 4.0 para poder usar la herramienta.
Holas de nuevo,
ya que me meti a molestarlos con mi comentario, baje sendEmail-v156.zip (1.4mb Sep 29th, 2009) TLS supported
y funciono sin problemas desde la línea de comando win7 64 bits, claramente esto no es comodo como tener algo desde OLE integrado directamente en el programa, pero se tiene el código fuente en PERL, quien sabe podamos pasarlo a FW utilizando sockets
solo un comentario, saludos
Marcelo
William,
Gracias por tu aporte en todo caso.
Rick,
Desconocía lo del fallo con SSL. Aquí parece que dicen que puede funcionar SSL como indican. http://social.msdn.microsoft.com/Forums ... entication
-ENGLISH- I don't know SSL fault. In this url show how to run SSL CDO: http://social.msdn.microsoft.com/Forums ... entication
Saludos
METHOD LoadIni( cFile ) CLASS TPresencia
Local oIni
INI oIni FILE ".\" + cFile
GET ::smtpServer SECTION "MAIL" ENTRY "SMTPSERVER" OF oIni DEFAULT ""
GET ::smtpPort SECTION "MAIL" ENTRY "PORT" OF oIni DEFAULT 25
GET ::sendusing SECTION "MAIL" ENTRY "SENDUSING" OF oIni DEFAULT 2
GET ::username SECTION "MAIL" ENTRY "USER" OF oIni DEFAULT ""
GET ::password SECTION "MAIL" ENTRY "PASSWORD" OF oIni DEFAULT ""
GET ::AUTH SECTION "MAIL" ENTRY "AUTH" OF oIni DEFAULT 1
GET ::SSL SECTION "MAIL" ENTRY "SSL" OF oIni DEFAULT .T.
GET ::TimerOut SECTION "MAIL" ENTRY "TIMEROUT" OF oIni DEFAULT 10
GET ::Copia_Oculta SECTION "MAIL" ENTRY "COPIAOCULTA" OF oIni DEFAULT ""
GET ::Con_Copia SECTION "MAIL" ENTRY "CONCOPIA" OF oIni DEFAULT ""
GET ::GENERIC_TEXT SECTION "MAIL" ENTRY "TEXTO" OF oIni DEFAULT ""
GET ::FROM SECTION "MAIL" ENTRY "FROM" OF oIni DEFAULT ""
GET ::CUERPO SECTION "MAIL" ENTRY "TEXTBODY" OF oIni DEFAULT ""
ENDINI
RETURN NIL
******************************************************************************************
METHOD SendMail() CLASS TPresencia
******************************************************************************************
Local oError, oEmailCfg, oEmailMsg , cFile
TRY
oEmailCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT oEmailCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := ::smtpServer
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := ::smtpPort
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := ::sendusing // Remote SMTP = 2, local = 1
// smtpauthenticate
// 0 cdoAnonymous Perform no authentication.
// 1 cdoBasic Use the basic (clear text) authentication mechanism.
// 2 cdoNTLM Use the NTLM authentication mechanism.
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := ::AUTH // 0 , 1 ,2
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := ::SSL
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := ::username
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := ::Password
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value := ::TimerOut
:Update()
END WITH
CATCH oError
? "---->Error en la configuracion"
END
oError := NIL
TRY
oEmailMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT oEmailMsg
:Configuration = oEmailCfg
:From := ::FROM
:To := ::email // <----- Coloca tu dirección de correo
:CC := ::Con_Copia // Con copia
:BCC := ::Copia_Oculta // Con Copia Oculta
:Subject := ::Asunto // Asunto
// :MDNRequested = .T. // Solicitud de reconocimiento, o acuse de recibo
:TextBody := ::Cuerpo
for each cFile in ::aFiles
:AddAttachment( cfile )
next
:Fields:update()
:Send()
// ? "[ "+Time()+" ] Enviado correo :"+ ::email
END
CATCH oError
? "---->Error en el envio del mensaje:"+ oError:Description
END
oEmailCfg := NIL
oEmailMsg := NIL
SysRefresh()
Return .T.Rafa
I started this thread in the English forum and never got a good answer .. I gave up on CDO partly because I use Hotmail and Live.com.
From what I can tell, using the Microsoft SMTP CDO-SSL pathway is only for PAYING Commercial Customers .. perhaps for security reasons .. I could not get CDO to work at all for "smtp.live.com"
That is why I was interested in this thread.. it appears William has over-come that restriction, unfortunately I do not have dotnet 4 on my machine and I am not likely to take for granted it will be on my Customers computers as well 
Rick Lipkin
&
Buenas noches
He bajado la excelente herramienta de william, pero al intentar correr reg_asm me manda el error:
regasm: error ra0000 : no se puede cargar el archivo o ensamblado 'file: ///c:/tempo2/regasm.exe' ni una de sus dependencuas. operacion no admitida. (excepcion de HRESULT: 0x80131515)
Tengo instalado .net framework 4 y Ejecute el programa en modeo administrador ¿que tengo que hacer para que funcione?
De antemano muchas gracias.
P.D. ¿Alguien ya probo si funciona para envio de correos desde hotmail?.
thefull wrote:I using CDO with gmail with SSL , i don't have problems.
METHOD LoadIni( cFile ) CLASS TPresencia Local oIni INI oIni FILE ".\" + cFile GET ::smtpServer SECTION "MAIL" ENTRY "SMTPSERVER" OF oIni DEFAULT "" GET ::smtpPort SECTION "MAIL" ENTRY "PORT" OF oIni DEFAULT 25 GET ::sendusing SECTION "MAIL" ENTRY "SENDUSING" OF oIni DEFAULT 2 GET ::username SECTION "MAIL" ENTRY "USER" OF oIni DEFAULT "" GET ::password SECTION "MAIL" ENTRY "PASSWORD" OF oIni DEFAULT "" GET ::AUTH SECTION "MAIL" ENTRY "AUTH" OF oIni DEFAULT 1 GET ::SSL SECTION "MAIL" ENTRY "SSL" OF oIni DEFAULT .T. GET ::TimerOut SECTION "MAIL" ENTRY "TIMEROUT" OF oIni DEFAULT 10 GET ::Copia_Oculta SECTION "MAIL" ENTRY "COPIAOCULTA" OF oIni DEFAULT "" GET ::Con_Copia SECTION "MAIL" ENTRY "CONCOPIA" OF oIni DEFAULT "" GET ::GENERIC_TEXT SECTION "MAIL" ENTRY "TEXTO" OF oIni DEFAULT "" GET ::FROM SECTION "MAIL" ENTRY "FROM" OF oIni DEFAULT "" GET ::CUERPO SECTION "MAIL" ENTRY "TEXTBODY" OF oIni DEFAULT "" ENDINI RETURN NIL ****************************************************************************************** METHOD SendMail() CLASS TPresencia ****************************************************************************************** Local oError, oEmailCfg, oEmailMsg , cFile TRY oEmailCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oEmailCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := ::smtpServer :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := ::smtpPort :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := ::sendusing // Remote SMTP = 2, local = 1 // smtpauthenticate // 0 cdoAnonymous Perform no authentication. // 1 cdoBasic Use the basic (clear text) authentication mechanism. // 2 cdoNTLM Use the NTLM authentication mechanism. :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := ::AUTH // 0 , 1 ,2 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := ::SSL :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := ::username :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := ::Password :Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value := ::TimerOut :Update() END WITH CATCH oError ? "---->Error en la configuracion" END oError := NIL TRY oEmailMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oEmailMsg :Configuration = oEmailCfg :From := ::FROM :To := ::email // <----- Coloca tu dirección de correo :CC := ::Con_Copia // Con copia :BCC := ::Copia_Oculta // Con Copia Oculta :Subject := ::Asunto // Asunto // :MDNRequested = .T. // Solicitud de reconocimiento, o acuse de recibo :TextBody := ::Cuerpo for each cFile in ::aFiles :AddAttachment( cfile ) next :Fields:update() :Send() // ? "[ "+Time()+" ] Enviado correo :"+ ::email END CATCH oError ? "---->Error en el envio del mensaje:"+ oError:Description END oEmailCfg := NIL oEmailMsg := NIL SysRefresh() Return .T.
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusetls" ):Value := .T.Amigos,
Para descargar el instalador de la TWMail.
http://www.incosweb.mx/descargas/incosmail_install.rar
Es un gusto aportar un granito de arena.
thefull wrote:Buenas
Yo no he usado nunca TLS, pero puedes probar esto a ver si te funciona ?
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusetls" ):Value := .T.
Saludos
Gracias Viejo Willi por el aporte
Voy a probarlo
Saludos
Hola:
Soy Andrés Arenas, he estado bastante tiempo aislado y he vuelto a retomar la programación con Fivewin. Tengo una rutina para envío de correos masivos con jMail pero como me daba problemas con 64 bits y me he decantado por CDOSYS. El problema que me encuentro es que copiando el procedimiento que ha pegado The Full me sale el siguiente error:
No se pudo enviar el mensaje
Error: 1001
SubC: 3
OSCode: 0
SubSystem: CDO.Message
Mensaje: DISP_E_MEMBERNOTFOUND
Utilizo windows 7 de 64 bits. ¿Es necesario algún componente adicional? ¿Con que versión de FW y BCC se puede usar?
Un saludo.
andaretor wrote:Hola:
Soy Andrés Arenas, he estado bastante tiempo aislado y he vuelto a retomar la programación con Fivewin. Tengo una rutina para envío de correos masivos con jMail pero como me daba problemas con 64 bits y me he decantado por CDOSYS. El problema que me encuentro es que copiando el procedimiento que ha pegado The Full me sale el siguiente error:
No se pudo enviar el mensaje
Error: 1001
SubC: 3
OSCode: 0
SubSystem: CDO.Message
Mensaje: DISP_E_MEMBERNOTFOUND
Utilizo windows 7 de 64 bits. ¿Es necesario algún componente adicional? ¿Con que versión de FW y BCC se puede usar?
Un saludo.
