In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

ayuda con las clases TCDOMail y TCDOGMail para el env

Foro público de Xailer en español
Responder
jjgp2
Mensajes: 51
Registrado: Jue May 12, 2011 12:57 am
Ubicación: México
Contactar:

ayuda con las clases TCDOMail y TCDOGMail para el env

Mensaje por jjgp2 »

hola
solicito su ayuda para trabajar con las clases TCDOMail y TCDOGMail para el
envío de correo necesito un ejemplo o me indiquen como funcionan por su
ayuda mol gracias
jjgp2
Mensajes: 51
Registrado: Jue May 12, 2011 12:57 am
Ubicación: México
Contactar:

ayuda con las clases TCDOMail y TCDOGMail para el env

Mensaje por jjgp2 »

gracias por responder pero en la carpeta de ejemplos de xailer 2.2 no
encuentro la carpeta BlatMail.
podrias pasarme el ejmplo para estudiar el ejemplo y aplicalo a lo que
quiero realizar
"Mário Angelini" <mario[at]emeasoft[dot]com[dot]br> escribió en el mensaje
news:4dff789d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Vea Ejemplos: BlatMail: uso y funciona muy bien incluso con
> gmail.
> --
> Saludos!
> Mário Angelini
> http://www.eMeAsOfT.com
> http://emeasoft.blogspot.com/
> http://twitter.com/emeasoft
>
> http://bit.ly/ci22sm
> http://www.brasilturismo.com/brasil/
jjgp2
Mensajes: 51
Registrado: Jue May 12, 2011 12:57 am
Ubicación: México
Contactar:

ayuda con las clases TCDOMail y TCDOGMail para el env

Mensaje por jjgp2 »

muchas gracias por el ejemplo.
ya realice una aplicacion con la clase tBlatMail() de xailer pero al enviar
por medio de gmail me marca error de Sin texto del mensaje ó Argumentos
incorrectos.
si lo envio por mi proveedor de correo me marca el error de Fichero
inexistente.
sabe porque marca este error si no estoy cargando ningun fichero al correo
por tu ayuda mil gracias
"Mário Angelini" <mario[at]emeasoft[dot]com[dot]br> escribió en el mensaje
news:4dff9922$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Adjunto.
> Blat.dll encontrar aquí­:
>
> http://www.xailer.com/download/?en&cat=7
>
------------------------------------------------------------ --------------------
>
> --
> Saludos!
> Mário Angelini
> http://www.eMeAsOfT.com
> http://emeasoft.blogspot.com/
> http://twitter.com/emeasoft
>
> http://bit.ly/ci22sm
> http://www.brasilturismo.com/brasil/
Avatar de Usuario
emeasoft
Mensajes: 1094
Registrado: Mié Abr 01, 2009 4:12 pm
Ubicación: emeasoft
Contactar:

ayuda con las clases TCDOMail y TCDOGMail para el env

Mensaje por emeasoft »


WITH OBJECT TBlatMail():New()
:cServer := smtp.gmail.com //servidor
:lAuth := .T. //exige autenticação
:cAddress := su_email@gmail.com //e-mail remetente
:cUser := su_email //usuário
:nPort := 25
:cPassword := "123456"
* :aCC := {...} CC //cópia
* :aBCC := {...} BCC //cópia oculta

:aReceipts := {} //destinatarios
:cSubject := "TEMA"
:cBody := "mensaje"
* :aAttachments:={...}

:Create()
IF :nLastError=0
Sleep(200)
IF :Send()
MsgInfo("e-mail: enviado",)
ELSE
IF :nLastError=1
x01:="error del servidor: "+:cServer
ELSEIF :nLastError=2
x01:="nombre de usuario: "+:cUser+" o contraseña incorrecta"
ELSE
x01:="Error al enviar el mensaje"
ENDIF
MsgInfo(x01)

ENDIF
ELSE
MsgInfo(:nLastError)
ENDIF
:Destroy()
END
Bingen Ugaldebere
Mensajes: 1310
Registrado: Mié Sep 26, 2007 7:12 pm

ayuda con las clases TCDOMail y TCDOGMail para el env

Mensaje por Bingen Ugaldebere »

/*
* CDOMail.prg
* Componente para enviar correo usando los servicios CDO Mail
* http://msdn.microsoft.com/en-us/library ... 8v=exchg.6 5%29.aspx
*
* Copyright 2007, 2011 Jose Lalin <jlalin en xailer.com>
* 2011 Bingen
* + Soporte de adjuntos
*
* All rights reserved
*/
*/
#include "Xailer.ch"
//---------------------------------------------------------- --------------------
CLASS TCDOMail FROM TComponent
PUBLISHED:
PROPERTY cServer INIT ""
PROPERTY nPort INIT 25
PROPERTY lAuthenticate INIT .F.
PROPERTY lSSL INIT .F.
PROPERTY cUser INIT ""
PROPERTY cPassword INIT ""
PROPERTY aAttachments INIT {}
PROPERTY cFrom INIT ""
PROPERTY cTO INIT ""
PROPERTY cCC INIT ""
PROPERTY cBCC INIT ""
PROPERTY cSubject INIT ""
PROPERTY cMessage INIT ""
PROPERTY lHTML INIT .F.
PUBLIC:
DATA lInstalled INIT .F. READONLY
METHOD Create( oParent ) CONSTRUCTOR // --> Self
METHOD Free() // --> Nil
METHOD Send() // --> lSuccess
METHOD CreateSqlFile()
RESERVED:
DATA oObj
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD Create( oParent ) CLASS TCDOMail
LOCAL oError
Super:Create( oParent )
TRY
::oObj := CreateObject( "CDO.Message" )
IF ValType( ::oObj ) == "O"
::lInstalled := .T.
ENDIF
CATCH
::lInstalled := .F.
END
RETURN Self
//---------------------------------------------------------- --------------------
METHOD Free() CLASS TCDOMail
Super:Free()
::oObj := Nil
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD Send() CLASS TCDOMail
LOCAL oCfg := CreateObject( "CDO.Configuration" )
LOCAL lSuccess := .F.
LOCAL cFile
WITH OBJECT oCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/config ... smtpserver" ):Value := ::cServer
:Item( " http://schemas.microsoft.com/cdo/config ... pserverpor t" ):Value := ::nPort
:Item( " http://schemas.microsoft.com/cdo/config ... pauthentic ate" ):Value := IIF( ::lAuthenticate, 1, 0 )
:Item( "http://schemas.microsoft.com/cdo/config ... smtpusessl" ):Value := IIF( ::lSSL, 1, 0 )
:Item( "http://schemas.microsoft.com/cdo/config ... ndusername" ):Value := ::cUser
:Item( "http://schemas.microsoft.com/cdo/config ... ndpassword" ):Value := ::cPassword
:Item( "http://schemas.microsoft.com/cdo/config ... /sendusing" ):Value := 2
:Update()
END
WITH OBJECT ::oObj
:Configuration := oCfg
:From := ::cFrom
:To := ::cTo
:Subject := ::cSubject
:Cc := ::cCC
:Bcc := ::cBCC
IF ::lHTML
:HTMLBody := ::cMessage
ELSE
:TextBody := ::cMessage
ENDIF
FOR EACH cFile IN ::aAttachments
If File(cFile)
:Addattachment := cFile
Endif
NEXT
TRY
lSuccess := ( :Send() == Nil )
CATCH
lSuccess := .F.
END
END
oCfg := Nil
RETURN lSuccess
//---------------------------------------------------------- --------------------
CLASS TCDOGMail FROM TCDOMail
PUBLISHED:
PROPERTY cServer INIT "smtp.gmail.com"
PROPERTY nPort INIT 465
PROPERTY lAuthenticate INIT .T.
PROPERTY lSSL INIT .T.
ENDCLASS
//---------------------------------------------------------- --------------------
//Ejemplo de uso
/*
WITH OBJECT TCDOMail():New(self)
:cServer := "smtp.test.com"
:cUser := "myself@test.com"
:nPort := 465
:lAuthenticate := .T.
:lSSL := .T.
:cPassword := "MyPassword"
:cTO := "destinatary@google.com"
:cFrom := "My Self"
:aAttachments := {"c:ads_err.adi","c:ads_err.dbf"}
:cSubject := "This is the subject."
:cMessage := "The text of the message ........................."
:Create()
IF :lInstalled
If !:Send()
MsgInfo('Error al envia Correo, revise los datos de la configuración de envio.')
Else
Msginfo("Correo enviado con éxito")
Endif
else
MsgInfo('Servidor de Correo no Instalado imposible enviar email desde el programa.')
endif
:End()
END WITH
*/
//Si no existe el archivo de mensajes crearlo
METHOD CreateSqlFile( oParent ) CLASS TCDOMail
Local cSelect:="Create Table If Not Exists emailsent ("+;
" Id Int(9) Primary key Auto_Increment Not Null,"+;
" Fecha DateTime ,"+;
" Remitente VarChar(50) Default '',"+;
" Destinatario VarChar(50) Default '',"+;
" Mensaje VarChar(250) Default '',"+;
" DiasValidez Int(3) Default 0 ,"+;
" Visto TinyInt(1) Default 0 ,"+;
" FechaVisto DateTime )"+;
" ENGINE=InnoDB CHARACTER SET latin1 COLLATE latin1_spanish_ci "
Appdata:oControlDb:Execute(cSelect,"Error de creación de la tabla de mensajes")
Return Nil
jjgp2
Mensajes: 51
Registrado: Jue May 12, 2011 12:57 am
Ubicación: México
Contactar:

ayuda con las clases TCDOMail y TCDOGMail para el env

Mensaje por jjgp2 »

muchas gracias por la respuesta iniciamos prubas con esta aplicacion.
"Bingen Ugaldebere" <bingen@bisoft.es> escribió en el mensaje
news:4e0054a6$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> También deje de usar Blat por que no iba bien con Gmail y otros
> servidores, lo que has de sustituir son los parametros de configuración
> de tu servidor.
>
> Yo lo envio por CDOMail de la siguiente manera
>
> WITH OBJECT TCDOMail():New(self)
> :cServer := ::oUsuarios:MailServer
> :cUser := ::oUsuarios:MailUser
> :cPassword := ::oUsuarios:MailPassword
> :nPort := ::oUsuarios:MailPort
> :lAuthenticate := ::oUsuarios:MailAutenticate
> :lSSL := ::oUsuarios:MailSSL
> :cFrom := ::oUsuarios:MailFrom
> :cTO := ::oUsuarios:MailUser
>
> :cSubject := "Test de envio de email"
> :cMessage := "Si puede leer este texto el envio de email
> desde la aplicación "+Appdata:cApplicationName+" ha sido un éxito"
>
> :Create()
>
> IF :lInstalled
> If !:Send()
> MsgInfo('Error al enviar Correo, revise los datos de la
> configuración de envio.')
> Else
> Msginfo("Correo enviado con éxito a
> "+::oUsuarios:MailUser+". Revise su correo para comprobar si la
> configuración es correcta.")
> Endif
> else
> MsgInfo('Servidor de Correo no Instalado imposible enviar
> email desde el programa.')
> endif
> :End()
> END WITH
>
>
Responder