Herramienta para envio de correos electronicos

Re: Herramienta para envio de correos electronicos

Postby Rick Lipkin » Mon Jul 01, 2013 7:40 pm

Cesar

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

Rick Lipkin

Image
User avatar
Rick Lipkin
 
Posts: 2662
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Herramienta para envio de correos electronicos

Postby wmormar » Mon Jul 01, 2013 7:41 pm

Rick Lipkin,

Debes tener instalado el framework 4.0 para poder usar la herramienta.
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Re: Herramienta para envio de correos electronicos

Postby Marcelo Via Giglio » Mon Jul 01, 2013 9:03 pm

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
 
Posts: 1061
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia

Re: Herramienta para envio de correos electronicos

Postby Marcelo Via Giglio » Mon Jul 01, 2013 9:25 pm

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
Marcelo Via Giglio
 
Posts: 1061
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia

Re: Herramienta para envio de correos electronicos

Postby hmpaquito » Tue Jul 02, 2013 7:22 am

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
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: Herramienta para envio de correos electronicos

Postby thefull » Tue Jul 02, 2013 9:29 am

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.
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
thefull
 
Posts: 731
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona

Re: Herramienta para envio de correos electronicos

Postby Rick Lipkin » Tue Jul 02, 2013 12:51 pm

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
User avatar
Rick Lipkin
 
Posts: 2662
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Herramienta para envio de correos electronicos

Postby José Ríos » Mon Nov 24, 2014 1:12 am

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?.
José Ríos
 
Posts: 119
Joined: Fri Nov 04, 2005 12:23 am

Re: Herramienta para envio de correos electronicos

Postby karinha » Mon Nov 24, 2014 2:29 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7766
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Herramienta para envio de correos electronicos

Postby thefull » Mon Nov 24, 2014 4:41 pm

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
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
thefull
 
Posts: 731
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona

Re: Herramienta para envio de correos electronicos

Postby wmormar » Mon Nov 24, 2014 5:34 pm

Amigos,

Para descargar el instalador de la TWMail.

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

Es un gusto aportar un granito de arena.
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Re: Herramienta para envio de correos electronicos

Postby karinha » Tue Nov 25, 2014 5:41 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7766
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Herramienta para envio de correos electronicos

Postby leandro » Wed Nov 26, 2014 2:54 pm

Gracias Viejo Willi por el aporte

Voy a probarlo

Saludos
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1669
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Re: Herramienta para envio de correos electronicos

Postby andaretor » Fri Nov 28, 2014 11:57 am

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
 
Posts: 2
Joined: Thu Nov 27, 2014 11:58 am

Re: Herramienta para envio de correos electronicos

Postby karinha » Fri Nov 28, 2014 12:30 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7766
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

PreviousNext

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 27 guests