Se puede Blat con SSL ?

[Martin Del Angel]

Hola a Todos , Feliz Año 2011 .
Blat Soporta SSL ?
Tengo problemas con los servidores que usan SSL.
como son GMAIL, HOTMAIL, YAHOO y otros mas....
Alguien ha tenido este problema ?
Alguna Sugerencia?
Saludos....

[ignacio]

Martin Del Angel escribió el sáb, 01 enero 2011 19:37Hola a Todos , Feliz Año 2011 .
Blat Soporta SSL ?
Tengo problemas con los servidores que usan SSL.
como son GMAIL, HOTMAIL, YAHOO y otros mas....
Alguien ha tenido este problema ?
Alguna Sugerencia?
Saludos....
Se puede hacer. í‰chele un vistazo a este enlace:
http://www.autohotkey.com/forum/topic4486.html
Nota: Requiere cierto grado de conocimientos técnicos y dedicación para hacerlo funcionar

[Martin Del Angel]

On 1/3/2011 3:08 AM, Ignacio Ortiz de Zúñiga wrote:
> Martin Del Angel escribió el sáb, 01 enero 2011 19:37
>> Hola a Todos , Feliz Año 2011 .
>>
>> Blat Soporta SSL ?
>>
>>
>> Tengo problemas con los servidores que usan SSL.
>>
>> como son GMAIL, HOTMAIL, YAHOO y otros mas....
>>
>> Alguien ha tenido este problema ?
>>
>> Alguna Sugerencia?
>>
>> Saludos....
>
>
> Se puede hacer. í‰chele un vistazo a este enlace:
>
> http://www.autohotkey.com/forum/topic4486.html
>
> Nota: Requiere cierto grado de conocimientos técnicos y
> dedicación para hacerlo funcionar
>
Gracias Ignacio por tu respuesta:
Decidi hacerlo con un componente super completo llamado Chilikat-Email.
Funciono perfecto con Xailer , trae soporte para SSL y muchas cosas mas
ademas es muy economico.
Saludos...

[zeasoftware]

Podrias compartir la liga del soft que usaste?
nunca esta de mas saber como resolver lo que te pide un cliente.
Saludos
"Martin Del Angel" <mdangel@dymsasistemas.com> escribió en el mensaje de
noticias:4d2210f2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> On 1/3/2011 3:08 AM, Ignacio Ortiz de Zúñiga wrote:
>> Martin Del Angel escribió el sáb, 01 enero 2011 19:37
>>> Hola a Todos , Feliz Año 2011 .
>>>
>>> Blat Soporta SSL ?
>>>
>>>
>>> Tengo problemas con los servidores que usan SSL.
>>>
>>> como son GMAIL, HOTMAIL, YAHOO y otros mas....
>>>
>>> Alguien ha tenido este problema ?
>>>
>>> Alguna Sugerencia?
>>>
>>> Saludos....
>>
>>
>> Se puede hacer. í‰chele un vistazo a este enlace:
>>
>> http://www.autohotkey.com/forum/topic4486.html
>>
>> Nota: Requiere cierto grado de conocimientos técnicos y
>> dedicación para hacerlo funcionar
>>
>
>
> Gracias Ignacio por tu respuesta:
>
> Decidi hacerlo con un componente super completo llamado Chilikat-Email.
>
> Funciono perfecto con Xailer , trae soporte para SSL y muchas cosas mas
> ademas es muy economico.
>
>
>
> Saludos...
--
Ramón Zea
01.993.231-62-29
Provisional: 01.993.239.20.25
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com

[Martin Del Angel]

On 1/3/2011 2:44 PM, Ramón Zea wrote:
> Podrias compartir la liga del soft que usaste?
> nunca esta de mas saber como resolver lo que te pide un cliente.
>
> Saludos
>
> "Martin Del Angel" <mdangel@dymsasistemas.com> escribió en el mensaje de
> noticias:4d2210f2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> On 1/3/2011 3:08 AM, Ignacio Ortiz de Zúñiga wrote:
>>> Martin Del Angel escribió el sáb, 01 enero 2011 19:37
>>>> Hola a Todos , Feliz Año 2011 .
>>>>
>>>> Blat Soporta SSL ?
>>>>
>>>>
>>>> Tengo problemas con los servidores que usan SSL.
>>>>
>>>> como son GMAIL, HOTMAIL, YAHOO y otros mas....
>>>>
>>>> Alguien ha tenido este problema ?
>>>>
>>>> Alguna Sugerencia?
>>>>
>>>> Saludos....
>>>
>>>
>>> Se puede hacer. í‰chele un vistazo a este enlace:
>>>
>>> http://www.autohotkey.com/forum/topic4486.html
>>>
>>> Nota: Requiere cierto grado de conocimientos técnicos y
>>> dedicación para hacerlo funcionar
>>>
>>
>>
>> Gracias Ignacio por tu respuesta:
>>
>> Decidi hacerlo con un componente super completo llamado Chilikat-Email.
>>
>> Funciono perfecto con Xailer , trae soporte para SSL y muchas cosas
>> mas ademas es muy economico.
>>
>>
>>
>> Saludos...
>
Hola Carlos:
http://www.chilkatsoft.com/email-activex.asp
Esta excelente:
Saludos...

[jlalin]

Martin, Ramón,
¿podeis probar este ejemplo y decirme cuál de los dos mensajes muestra?

FUNCTION TestCDO()
LOCAL oObj := CreateObject( "CDO.Message" )
IF Valtype( oObj )
MsgAlert( "Creado!" )
ELSE
MsgAlert( "Fallo!" )
ENDIF
RETURN Nil

Saludos,
José Lalí­n

[Martin Del Angel]

On 1/4/2011 4:44 AM, José Lalí­n wrote:
> Martin, Ramón,
>
> ¿podeis probar este ejemplo y decirme cuál de los dos mensajes muestra?
>
> FUNCTION TestCDO()
>
> LOCAL oObj := CreateObject( "CDO.Message" )
>
> IF Valtype( oObj )
> MsgAlert( "Creado!" )
> ELSE
> MsgAlert( "Fallo!" )
> ENDIF
>
> RETURN Nil
>
> Saludos,
> José Lalí­n
>
>
Hola Jose:
Lo Cambie por esto:
LOCAL oObj,oError
TRY
oOBJ:= CreateObject( "CDO.Message" )
MSGINFO(Valtype( oObj ) )
MsgAlert( "Creado!" )
CATCH oError
MsgStop(oError:Operation+"("+ALLTRIM(CSTR(oError:GenCode))+ ")")
END
Me marca tipo Objeto, Creado
Saludos...

[jlalin]

Martin,
> Me marca tipo Objeto, Creado
Mira el fuente adjunto. Incluye las clases:
* TCDOMail para enviar correo usando los servicios de Windows
* TCDOGMail que configura automáticamente el servidor, puerto, etc. de modo
que sólo hay que establecer el nombre de usuario, contraseña, el contenido
del mensaje, etc. y enviarlo.
No las he probado, las he escrito según la documentación de MS así­ que os
toca a ti y a Ramón hacer las pruebas y decirnos si funciona
Saludos,
José Lalí­n
--

[Martin Del Angel]

On 1/4/2011 8:34 AM, José Lalí­n wrote:
>
> Martin,
>
>> Me marca tipo Objeto, Creado
>
> Mira el fuente adjunto. Incluye las clases:
>
> * TCDOMail para enviar correo usando los servicios de Windows
>
> * TCDOGMail que configura automáticamente el servidor, puerto, etc. de
> modo que sólo hay que establecer el nombre de usuario, contraseña, el
> contenido del mensaje, etc. y enviarlo.
>
> No las he probado, las he escrito según la documentación de MS así­ que
> os toca a ti y a Ramón hacer las pruebas y decirnos si funciona
>
> Saludos,
> José Lalí­n
Gracias José:
Muchas Gracias por tu intéres.
Le faltaban unos Datas :
cFrom
cTo
cSubject
cMessage
lo adapte y lo corri y salio este error:
No se porque , cheque la Documentación y si existe el Metodo Send.
Subsystem Call: CDO.Message
System Code: 3
Default Status: .F.
Description: DISP_E_MEMBERNOTFOUND
Operation: SEND
Arguments:
Involved File:
Dos Error Code: 0
Saludos...

[jlalin]

Martin,
> Le faltaban unos Datas :
¿Dónde faltaban esas datas?
Saludos,
José Lalí­n

[Martin Del Angel]

On 1/4/2011 12:53 PM, José Lalí­n wrote:
> Martin,
>
>> Le faltaban unos Datas :
>
> ¿Dónde faltaban esas datas?
>
> Saludos,
> José Lalí­n
>
Hola José:
CLASS TCDOMail FROM TComponent
PUBLISHED:
PROPERTY cServer INIT ""
PROPERTY nPort INIT 0
PROPERTY lAuthenticate INIT .F.
PROPERTY lSSL INIT .F.
PROPERTY cUser INIT ""
PROPERTY cPassword INIT ""
DATA cFrom INIT "" <===== faltaba
DATA cTO INIT "" <===== faltaba
DATA cSubject INIT "" <===== faltaba
DATA cMessage INIT "" <===== faltaba
DATA cCC INIT ""
DATA cBCC INIT ""
PROPERTY lHTML INIT .F.
PUBLIC:
DATA lInstalled INIT .F. READONLY
METHOD Create( oParent ) CONSTRUCTOR // --> Self
METHOD Free() // --> Nil
METHOD Send() // --> lSuccess
PROTECTED:
DATA oObj
ENDCLASS
****
Codigo para enviar
WITH OBJECT TCDOMail():New(self)
:cServer:=oDS2:SERVIDOR
:cUser:=oDS2:EMAIL
:nPort:=oDS2:PUERTO
:lAuthenticate:=.t.
:lSSL:=.t.
:cPassword:=HB_DECRYPT(oDS2:PASSWORD,'xailer')
:cTO:=cEmailCliente
:cSubject:=cASUNTO
:cMessage:=cCONTENIDO
:Create()
IF :lInstalled
msginfo('instalado cdo')
:Send() <<< aqui marca error
MSGINFO('Correo Enviado con Exito')
else
msginfo('Servico de Correo no Instalado')
endif
:Free()
END WITH
Saludos...

[jlalin]

Martin,
> DATA cFrom INIT "" <===== faltaba
> DATA cTO INIT "" <===== faltaba
> DATA cSubject INIT "" <===== faltaba
> DATA cMessage INIT "" <===== faltaba
> DATA cCC INIT ""
> DATA cBCC INIT ""
Ok, debí­ cerrar el proyecto sin guardar los últimos cambios. Por cierto,
cámbialas por PROPERTY.
> :Send() <<< aqui marca error
¿Qué error?
Saludos,
José Lalí­n

[jlalin]

Martin,
> :Free()
Nunca llames a Free() desde tu código, ese método lo llama internamente
Destroy()/End().
Saludos,
José Lalí­n

[Martin Del Angel]

On 1/5/2011 5:02 AM, José Lalí­n wrote:
>
> Martin,
>
>> :Free()
>
> Nunca llames a Free() desde tu código, ese método lo llama internamente
> Destroy()/End().
>
> Saludos,
> José Lalí­n
>
Hola José Buen Dia:
Corregi lo que me dijiste:
Ademas el Metodo Send() de la Clase por TCDOMail por Envia()
pero sigue el error:
---------------------------- Compiler Information
-----------------------------
Xailer Version: Xailer 2.0.18 Version 2.0.18
Compiler: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511)
PCode Version: 10
C/C++ Compiler: Borland C++ 5.5.1 (32 bit)
Windows Platform: Windows Windows Vista Home Edition 6.01.7600
--------------------- Internal Error Handling Information
---------------------
Subsystem Call: CDO.Message
System Code: 3
Default Status: .F.
Description: DISP_E_MEMBERNOTFOUND
Operation: SEND
Arguments:
Involved File:
Dos Error Code: 0
Trace Through:
TOLEAUTO:SEND (0)
TCDOMAIL:ENVIA (102)
TFACTURASVTAS:IMPRIMIRCLICK (932)
TOPTIONITEM:ONCLICK (0)
TOPTIONITEM:CLICK (273)
TOPTIONLIST:WMLBUTTONDOWN (0)
RUNFORM (0)
TAPPLICATION:RUN (272)
MAIN (19)
Saludos....

[jlalin]

Martin,
aquí­ no tengo instalado nada que use los CDO (ni Outlook, ni Exchange,
etc.) por lo que no puedo probar el código.
> Subsystem Call: CDO.Message
> System Code: 3
> Default Status: .F.
> Description: DISP_E_MEMBERNOTFOUND
> Operation: SEND
En algún momento se pierde la referencia al objeto creado con CreateObject
puesto que ese método sí­ existe y pertenece a CDO.Message según la
documentación de MS.
Saludos,
José Lalí­n

[jlalin]

Martin,
he hecho algunas pruebas y he visto que si hay alguna colisión entre los
parámetros del CDO es cuando aparece el error en el método Send.
Intenta hacer las pruebas con un servidor que no utilice SSL y comenta la
lí­nea //:lSSL:=.t. De esta manera no hay error pero no sé si el correo
llega realmente a salir.
Saludos,
José Lalí­n

[jlalin]

Martin,
también he visto que dejando :cFrom en blanco también hace saltar el error.
Saludos,
José Lalí­n