Enviar y Recibir email desde foxpro

[TurbiSoft]

Saludo amigos, un cliente me pidio poder enviar y recibir correo desde
la apliacion para los vendedores que estan en la calle, alguien tiene
expereriencia en esto?

Cualquier sugerencia, manual, ejemplo de codigo u orietacion es
beinvenida.

Yo envio los reportes de mi sistema por email, ya que la mayoria
estan echos en Crystla Report 11, pero eso es practicamente automatico
ya que crystal report mismo llama a outlook y adjunta el reporte en
formato PDF.

Pero la idea de manipular email directamente desde la apliacion es
nueva.

[Armando Rodríguez B.]

Hola, puedes tirarte un clavado en Jmail, es muy simple y autónomo.

Saludos.

-----Mensaje original-----
De: mundovis...@googlegroups.com
[mailto:mundovis...@googlegroups.com] En nombre de TurbiSoft
Enviado el: Martes, 05 de Enero de 2010 12:12 p.m.
Para: Mundo Visual FoxPro
Asunto: [Mundo Visual FoxPro] Enviar y Recibir email desde foxpro

[Ing.Daniel Bojorge]

Es cierto, yo lo utilicé algún tiempo y es muy bueno!!!!

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

visita www.debs.educaleft.com

2010/1/5 Armando Rodríguez B. <armandor...@hotmail.com>

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.

Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com

[eduardo]

Usé durante mucho tiempo smtpsend con buenos resultados para mandar
los correos sin necesidad de emplear el outlook ... Si te interesa te
paso la aplicación
Eduardo

[Mario Alfredo Oviedo]

eduardo no me puedo anotar para caso de estudio, gracias

[Henry Gutierrez Sanchez]

Eduardo me uno tambien si es posible que por favor me envies
tu codigo, gracias.

hegu...@gmail.com
----
       "Imprimir Solo Cuando sea Necesario"

[TurbiSoft]

Gracias por su aporte a todos, le hechare un vistazo a Jmail.

Eduardo me gustaria ver el codigo de tu apliacion, si fueras tan
amable.

[ger...@hbaron.com]

Eduardo tambien a mi, gracias

ger...@hbaron.com

Henry Gutierrez Sanchez escribi�:

> Eduardo me uno tambien si es posible que por favor me envies
> tu codigo, gracias.
>

> hegu...@gmail.com <mailto:hegu...@gmail.com>

[lizardo durand]

Eduardo hay posibilidades de que lo subas al grupo?,
muchos te agradeceran nos beneficiaremos de la metodologia.

El 6 de enero de 2010 12:52, ger...@hbaron.com <ger...@hbaron.com> escribió:

Eduardo tambien a mi, gracias

ger...@hbaron.com

Henry Gutierrez Sanchez escribió:

Eduardo me uno tambien si es posible que por favor me envies
tu codigo, gracias.

hegu...@gmail.com <mailto:hegu...@gmail.com>

----
      "Imprimir Solo Cuando sea Necesario"

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.

Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com

--
--
Sinceramente,
Lizardo

[Ing.Daniel Bojorge]

Hola, les paso por acá cómo es que yo usé (en algún momento el JMAIL)

* Ejemplo de como enviar un email con

* adjuntos usando el componente

* w3JMail de DIMAC

*

* Por: Victor Espina

*

**Reeditado por Ing. Daniel Bojorge 16/07/2k7

**Parámetro

** pdestino,pasunto,pmensaje

**      prom será (nore...@contabilidaddebs.com)

****************************************************************************************

Parameters pDestino,pAsunto,pMensaje,pServer,pFrom,pcFrom,pAdjunto

Local oError As Object,vlReturn,oEmail

Try

*-- Se instancia el componente

*

Try

oEmail = Createobject("JMail.Message")

vlReturn = 0

Catch To loError

Try

!registrar.bat

oEmail = Createobject("JMail.Message")

vlReturn = 0

Catch To loError

vlReturn = -1

Endtry

Endtry

Catch To loError

vlReturn =  -1

Endtry

If vlReturn = -1

Messagebox("Imposible Enviar Notificación por Correo",64+4096,[Mail Send by.. DEBS])

Return vlReturn

Endif

*

*-- Se activa el logging interno del componente

*   y se desactiva la notificacion de errores

*

oEmail.Logging = .T.

oEmail.Silent = .T.

*

*-- Remitente

*

oEmail.From = pFrom

If Empty(Alltrim(pcFrom))

pcFrom = "Notificación del SIGA"

Endif

oEmail.FromName = Alltrim(pcFrom)

*

*-- Destinatario(s). El 2do parametro es opcional. Se puede

*   invocar el metodo AddRecipient las veces que sea necesario.

*

oEmail.AddRecipient(Alltrim(pDestino))

*

*-- Asunto

*

oEmail.Subject = Alltrim(pAsunto)

*

*-- Texto. La propiedad Body es de lectura/escritura. Adicionalmente

*   se puede usar el metodo AppendText() para anadir texto al final

*   del mensaje.

*

*   Para enviar un mensaje en formato HTML, use la propiedad HTMLBody

*   y/o el metodo AppendHTML()

*

oEmail.Body = Alltrim(pMensaje)

*

*-- Adjuntos. Se puede invocar el metodo AddAttachment() tantas veces

*   como sea necesario. El 2do parámetro indica si el archivo adjunto

*   sera incluido dentro del mensaje (in-line Attachment) o no.

*

If Vartype(pAdjunto)#'C'

pAdjunto = ""

Else

If !File(pAdjunto)

pAdjunto = ""

Endif

Endif

If !Empty(pAdjunto)

*oEmail.AddAttachment(FULLPATH("mail1.prg"),.F.)

oEmail.AddAttachment(pAdjunto,.F.)

Endif

****

*Cuerpo en html

****

Local contentid

*contentId = oEmail.AddAttachment(FULLPATH(".\img\correo.gif"))

* As only HTML formatted emails can contain inline images

* we use HTMLBody and appendHTML

*oEmail.HTMLBody = "<html><body><font color='red'>Hi, here is a nice picture:</font><br>"

*oEmail.appendHTML "<img src=""cid:" & contentId & """>"

*oEmail.appendHTML "<br><br>good one huh?</body></html>"

oEmail.HTMLbody = pMensaje

* But as not all mailreaders are capable of showing HTML emails

* we will also add a standard text body

*oEmail.Body = "Too bad you can't read HTML-mail."

oEmail.appendText("Su Programa de Correo no soporta formato HTML")

****

*

*-- Se envia el mensaje. El metodo Send() devuelve .T. si se envio

*   el mensaje correctamente o .F. en caso de un error. La propiedad

*   Log contiene el log del problema ocurrio (si Logging = .T.)

*

*   El metodo Send() acepta como parametro una lista de uno o mas

*   servidores SMTP separados por coma. Es posible indicar un

*   usuario/pwd para cada servidor, usando la sintaxis:

*

*   user:pwd@server

*

Local lOk

lOk = oEmail.Send(Alltrim(pServer))

If lOk

Messagebox("Mensaje enviado!",64+4096,[Mail Send by.. DEBS])

Return 0

Else

Messagebox(oEmail.Log,16+4096,[Mail Send by.. DEBS])

Return -1

Endif

Lo puse textualmente a como lo usé en su momento (2007) y me funcionó, cualquier cosa pregunten.

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

visita www.debs.educaleft.com

[Armando Rodríguez B.]

Hola Colegas.  Yo un tiempo utilizé el Jmail, es bueno, pero luego descubrí enviarlos mediante CDO.  Que publicara mi maestro el gurú Luis María Guayán.  Esta es la liga.

http://www.portalfox.com/index.php?name=News&file=article&sid=2413&theme=Printer

 

Suerte y feliz año para todos.

Armando.

[eduardo]

Subí un archivo smtpsend.txt ... Van aclaraciones
La idea es usar el servidor de hotmail como servidor de envio de los
correos, como si fuera tu propio servidor
Cusrname => Cuenta de hotmail
Cpasw => password de la cuenta hotmail
Yo he creado cuentas de hotmail para los clientes que utilizan este
sistema de envío asi evito utilizar una propia

Cenvio => dirección de envio; puedes usar tu cuenta personal y
(lo importante) NO ES NECESARIO QUE SEA UNA CUENTA hotmail
Yo utilizo mi propia cuenta y dominio así el
destinatario lo recibe desde esta cuenta
Cdestino => Cuenta destino
Csubject => Asunto
Ctextbody => Mensaje
Cadjunto => Archivo adjunto

Obviamente los datos de destino,asunto, mensaje y adjunto los capturo
desde valores (la cuenta destino) o se ingresan en el momento (asunto,
mensaje)
El adjunto lo capturo con un getfile()

[mundo visual foxpro]

Hola colega estamos enviando correos a nuestros cli mediante el
Outlook Express, te paso el cod

SELECT Clientes
SCAN
=Envcorreo(ALLTRIM(Vpersonas.Email),Thisform.AsUNTO.Value,ALLTRIM
(THISFORM.texto.Value),THISFORM.archivo.Value)
ENDSCAN

FUNCTION Envcorreo
parameters xEnviarA,asunto,texto,xArchivo
mapi_session = CREATEOBJECT("MSMAPI.MAPISESSION.1")
mapi_message = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")
mapi_session.signon()
With mapi_message
.MsgIndex=-1
.RecipDisplayName = xEnviarA
.MsgSubject = Alltrim(Asunto)
.MsgNoteText = Alltrim(texto)
.SessionID= mapi_session.SessionID
If !Empty(xarchivo)
.AttachmentIndex = 0
.AttachmentPathName = xArchivo
EndIf
.send
Endwith
mapi_session.signoff()
Release mapi_session
Release mapi_message
END.

Tienes q desabilitar en Outlook express la op seguridad el aviso de
intento de uso externo, para q no te haga una consulta por cada mail,
caulquier consulta a tu dispo.

Mario A. Becerra
A. de Sistemas

[TurbiSoft]

Saludo Mario, me gusta la idea de Outlook express es gratuito y comun,
pero solo nos estamos enfocando en la idea del envio, que hay con la
recepcion, la manipulacion de estos desde la aplicacion, esto tambien
es importante para mi cliente.

[Ing.Daniel Bojorge]

Creo (a mi punto de vista) que lo más importante es el envío, para la recepción ya el usuario final debe de tener algún programa que "administre" sus correos, entiéndase ésto: OutLook, OutLook Express, Eudora, Thunderbird, IncrediMail, etc.

Pero si a lo que vos te referís es a que con el sistema de envíen mensajes (no email) pues esa sería otra solución a las que anteriormente te han planteado.

Pd.:  OutLook Express no es gratuito :D  el JMail si lo es (esto no es para generar discusión sólo es un punto de vista), que te lo hago ver porque hay usuarios que no tienen "habilitado" el Express y más bien usan el Outlook, Eudora o cualquiera de los programas que anteriormente mencioné.

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

visita www.debs.educaleft.com