FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsupport.com/forums/

Herramienta para envio de correos electronicos

https://fivetechsupport.com/forums/viewtopic.php?f=6&t=26689

Page 2 of 3

Re: Herramienta para envio de correos electronicos

PostPosted: Mon Jul 01, 2013 7:40 pm
by Rick Lipkin
Cesar

Wish it was that simple in XP .. I can "Run As" on the executable but not on the .bat file :(

Rick Lipkin

Image

Re: Herramienta para envio de correos electronicos

PostPosted: Mon Jul 01, 2013 7:41 pm
by wmormar
Rick Lipkin,

Debes tener instalado el framework 4.0 para poder usar la herramienta.

Re: Herramienta para envio de correos electronicos

PostPosted: Mon Jul 01, 2013 9:03 pm
by Marcelo Via Giglio
Holas,

depender del FrameWork..., creo que es demasiado para poder enviar emails, en Linux utilizo sendEmail (PERL), hay la versión de windows, pero no la probe, aqui les dejo el enlace

http://caspian.dotconf.net/menu/Software/SendEmail/

saludos

Marcelo

Re: Herramienta para envio de correos electronicos

PostPosted: Mon Jul 01, 2013 9:25 pm
by Marcelo Via Giglio
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

Re: Herramienta para envio de correos electronicos

PostPosted: Tue Jul 02, 2013 7:22 am
by hmpaquito
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

Re: Herramienta para envio de correos electronicos

PostPosted: Tue Jul 02, 2013 9:29 am
by thefull
I using CDO with gmail with SSL , i don't have problems.

Code: Select all  Expand view

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.

Re: Herramienta para envio de correos electronicos

PostPosted: Tue Jul 02, 2013 12:51 pm
by Rick Lipkin
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"

viewtopic.php?f=3&t=25962

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

Re: Herramienta para envio de correos electronicos

PostPosted: Mon Nov 24, 2014 1:12 am
by José Ríos
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?.

Re: Herramienta para envio de correos electronicos

PostPosted: Mon Nov 24, 2014 2:29 pm
by karinha
thefull wrote:I using CDO with gmail with SSL , i don't have problems.

Code: Select all  Expand view

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.


Buén dia Rafa, como hago para enviar via TSL? Ejemplo: smtp.live.com ó smtp.hotmail.com? ó no és + posible?

Gracias, saludos.

Re: Herramienta para envio de correos electronicos

PostPosted: Mon Nov 24, 2014 4:41 pm
by thefull
Buenas
Yo no he usado nunca TLS, pero puedes probar esto a ver si te funciona ?

Code: Select all  Expand view
 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusetls" ):Value   := .T.


Saludos

Re: Herramienta para envio de correos electronicos

PostPosted: Mon Nov 24, 2014 5:34 pm
by wmormar
Amigos,

Para descargar el instalador de la TWMail.

http://www.incosweb.mx/descargas/incosmail_install.rar

Es un gusto aportar un granito de arena.

Re: Herramienta para envio de correos electronicos

PostPosted: Tue Nov 25, 2014 5:41 pm
by karinha
thefull wrote:Buenas
Yo no he usado nunca TLS, pero puedes probar esto a ver si te funciona ?

Code: Select all  Expand view
 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusetls" ):Value   := .T.


Saludos



Gracias Rafa, pero no funciona con outlook.com de microsoft.

Saludos.

Re: Herramienta para envio de correos electronicos

PostPosted: Wed Nov 26, 2014 2:54 pm
by leandro
Gracias Viejo Willi por el aporte

Voy a probarlo

Saludos

Re: Herramienta para envio de correos electronicos

PostPosted: Fri Nov 28, 2014 11:57 am
by andaretor
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.

Re: Herramienta para envio de correos electronicos

PostPosted: Fri Nov 28, 2014 12:30 pm
by karinha
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.



Compruebe la contraseña, debe estar mal.

http://fivewin.com.br/index.php?/topic/21787-error-1001-subc-1-subsystem-toleauto-rmail/

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25258&p=144325&hilit=rmail#p144325

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=10764&p=61999

Saludos.
All times are UTC
Page 2 of 3
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/