Herramienta para envio de correos electronicos

[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

[wmormar]

Rick Lipkin,

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

[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

[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

[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

[thefull]

I using CDO with gmail with SSL , i don't have problems.

Code: Select all | Expand

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.

[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

[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?.

[karinha]

I using CDO with gmail with SSL , i don't have problems.

Code: Select all | Expand

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.

[thefull]

Buenas
Yo no he usado nunca TLS, pero puedes probar esto a ver si te funciona ?

Code: Select all | Expand

  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusetls" ):Value   := .T.

Saludos

[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.

[karinha]

Buenas
Yo no he usado nunca TLS, pero puedes probar esto a ver si te funciona ?

Code: Select all | Expand

  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusetls" ):Value   := .T.

Saludos

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

Saludos.

[leandro]

Gracias Viejo Willi por el aporte

Voy a probarlo

Saludos

[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.

[karinha]

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.