Xailer & OZ Software

Hola,
Estoy buscando alguna forma de enviar un correo de forma rápida sin
tener que utilizar dlls externas (para evitarme tener que ir comprobando
y/o manteniendo las dll's).
La función de xHarbour hb_sendmail hace el trabajo bien... pero tarda
del orden de 40 segundos en mandar un simple correo.
¿Alguien sabe alguna otra forma de enviar correos (sin levantar el
outlook o similar, es decir, de forma 'silenciosa') que sean
relativamente 'rápidos' a la hora de enviar el correo?
Saludos y gracias,
José Luis Capel

CDO, mira que sencillo;
oEmailCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT oEmailCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/config ... smtpserver"
):Value := ::smtpServer
:Item(
" http://schemas.microsoft.com/cdo/config ... pserverpor t" ):Value
:= ::smtpPort
:Item( "http://schemas.microsoft.com/cdo/config ... /sendusing"
):Value := ::sendusing // Remote SMTP = 2, local = 1
:Item(
" http://schemas.microsoft.com/cdo/config ... pauthentic ate"
):Value := ::AUTH // 0 , 1 ,2
:Item( "http://schemas.microsoft.com/cdo/config ... smtpusessl"
):Value := ::SSL
:Item( "http://schemas.microsoft.com/cdo/config ... ndusername"
):Value := ::username
:Item( "http://schemas.microsoft.com/cdo/config ... ndpassword"
):Value := ::Password
:Item(
" http://schemas.microsoft.com/cdo/config ... pconnectio ntimeout"):Value
:= ::TimerOut
:Update()
END WITH
oEmailMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT oEmailMsg
:Configuration = oEmailCfg
:From := "capel@ipcasa.com"
:To := email // <----- Coloca tu dirección de
correo
:CC := ::ConCopia // Con copia
:BCC := ::Copia_Oculta // Con Copia Oculta
:Subject := "Alerta"
:TextBody := cText + CRLF
:Fields:update()
:Send()
END
Ya esta!
Saludos
Rafa Carmona

Rafa!!
Gracias!
¿Y como se enví­an ficheros adjuntos?
Por cierto... ¿te vienes a Murcia el 28? Paras en Valencia y de allí­
nos vamos a Murcia....
Saludos,
José lUis Capel
rafa escribió:
> CDO, mira que sencillo;
>
> oEmailCfg := CREATEOBJECT( "CDO.Configuration" )
> WITH OBJECT oEmailCfg:Fields
> :Item( "http://schemas.microsoft.com/cdo/config ... smtpserver"
> ):Value := ::smtpServer
> :Item(
> " http://schemas.microsoft.com/cdo/config ... pserverpor t" ):Value
> := ::smtpPort
> :Item( "http://schemas.microsoft.com/cdo/config ... /sendusing"
> ):Value := ::sendusing // Remote SMTP = 2, local = 1
> :Item(
> " http://schemas.microsoft.com/cdo/config ... pauthentic ate"
> ):Value := ::AUTH // 0 , 1 ,2
> :Item( "http://schemas.microsoft.com/cdo/config ... smtpusessl"
> ):Value := ::SSL
> :Item( "http://schemas.microsoft.com/cdo/config ... ndusername"
> ):Value := ::username
> :Item( "http://schemas.microsoft.com/cdo/config ... ndpassword"
> ):Value := ::Password
> :Item(
> " http://schemas.microsoft.com/cdo/config ... pconnectio ntimeout"):Value
> := ::TimerOut
> :Update()
> END WITH
>
> oEmailMsg := CREATEOBJECT ( "CDO.Message" )
> WITH OBJECT oEmailMsg
> :Configuration = oEmailCfg
> :From := "capel@ipcasa.com"
> :To := email // <----- Coloca tu dirección de
> correo
> :CC := ::ConCopia // Con copia
> :BCC := ::Copia_Oculta // Con Copia Oculta
> :Subject := "Alerta"
> :TextBody := cText + CRLF
> :Fields:update()
> :Send()
> END
>
> Ya esta!
>
> Saludos
> Rafa Carmona

José Luis Capel ~ AgSoft escribió:
> Rafa!!
>
> Gracias!
>
> ¿Y como se enví­an ficheros adjuntos?
>
Pues sinceramente, creo que vi un ejemplo, y era bastante sencillo,
San Google , CDO attachaments
..AddAttachment( "C:filesfilename.pdf" )
oEmailMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT oEmailMsg
:Configuration = oEmailCfg
:From := "capel@ipcasa.com"
:To := email // <----- Coloca tu dirección de
correo
:CC := ::ConCopia // Con copia
:BCC := ::Copia_Oculta // Con Copia Oculta
:Subject := "Alerta"
:TextBody := cText + CRLF
.AddAttachment( "C:filesfilename.pdf" )
:Fields:update()
:Send()
END
> Por cierto... ¿te vienes a Murcia el 28? Paras en Valencia y de allí­
> nos vamos a Murcia....
>
Ya me gustarí­a, pero... no creo que pueda, miraré a ver.
saludos
Rafa Car,ona

Rafa,
>>
> Pues sinceramente, creo que vi un ejemplo, y era bastante sencillo,
> San Google , CDO attachaments
>
> .AddAttachment( "C:filesfilename.pdf" )
>
>
Si te lo pregunto es por que yo ya lo estuve mirando en google y
haciendo las pruebas (sin éxito, por cierto). Pensaba que tu ya habí­as
resuelto el problema.
Saludos y gracias por tu ayuda!
José Luis Capel

José Luis Capel ~ AgSoft escribió:
> Rafa,
>
>>>
>> Pues sinceramente, creo que vi un ejemplo, y era bastante sencillo,
>> San Google , CDO attachaments
>>
>> .AddAttachment( "C:filesfilename.pdf" )
>>
>>
>
> Si te lo pregunto es por que yo ya lo estuve mirando en google y
> haciendo las pruebas (sin éxito, por cierto). Pensaba que tu ya habí­as
> resuelto el problema.
Pero... ¿ te ha funcionado o no el AddAttachment ?
Que yo no lo he probado y me has dejado con la duda
Saludos
Rafa Carmona

Rafa,
>>
>>> Pues sinceramente, creo que vi un ejemplo, y era bastante sencillo,
>>> San Google , CDO attachaments
>>>
>>> .AddAttachment( "C:filesfilename.pdf" )
>>>
>>>
>> Si te lo pregunto es por que yo ya lo estuve mirando en google y
>> haciendo las pruebas (sin éxito, por cierto). Pensaba que tu ya habí­as
>> resuelto el problema.
> Pero... ¿ te ha funcionado o no el AddAttachment ?
> Que yo no lo he probado y me has dejado con la duda
Que va!
Error CDO.Message:ATTACHMENTS/6 DISP_E_UNKNOWNNAME: ADDATTACHMENT
Da ese error. Y no tengo claro de donde procede. Si de tOleAuto o de
ese activex.
Y ya que hablamos de tOleAuto... atentos los que usen Windows 7 y MDAC
con tOleauto de xHArbour o Windows XP con SqlServer2008. Hay cosas que
ya no funcionan. Concretamente ADO deja de funcionar bien. Y el
problema está en xHarbour.
Saludos,
José Luis Capel

José Luis
Investigando encontré una forma práctica, rápida y sencilla de hacer lo que
tu quieres con funciones de Funcky
Realmente es así­ de sencillo:
// Variables:
k_cServ := //TU SERVIDOR DE CORREO SMTP EJEMPLO: mail.microsoft.com
k_nTimeOut := 8000
k_nPort := 25
k_cMailRemite := // TU DIRECCION DE CORREO
//
oFuncky := TOleAuto():New('Funcky')
Funcky := CreateObject("Funcky")
Smtp := Funcky:CreateSMTP(k_cServ,k_nTimeOut)
Smtp:Server := k_cServ
Smtp:Port := k_nPort
Smtp:FromName := 'José Luis Capel'
Smtp:FromAddress := k_cMailRemite
Smtp:ToName := 'Guillermo Guevara'
Smtp:ToAddress :='soporte@pvwin.com'
Smtp:Subject := 'Hola Guillermo'
Smtp:Message := 'Te envio este correo como prueba de que funcionó'
Smtp:Attachments := 'Archivo.JPG' // MANDAME CUALQUIER IMAGEN
If( Smtp:Send())
MsgInfo("El eMail ha sido enviado con exito")
Else
MsgInfo("El eMail no pudo ser enviado")
EndIf
Saludos
Guillermo Guevara

Hola José Luis,
>> Que yo no lo he probado y me has dejado con la duda
>
> Que va!
>
> Error CDO.Message:ATTACHMENTS/6 DISP_E_UNKNOWNNAME: ADDATTACHMENT
>
> Da ese error. Y no tengo claro de donde procede. Si de tOleAuto o de
> ese activex.
En Vista y con Harbour me ha funcionado perfectamente, con un detalle
importante: el fichero tiene que tener la ruta completa, sino casca.
¿Puede ser ese el problema?
Un saludo,
Carlos Mora