Enviar e-mails desde VFP

[integral]

Que tal Amigos

Deseo implementar la opción para enviar correos básicamente con los archivos PDF's que son generados.

Buscando información sobre el tema, encontré un formulario de ejemplo. ( Adjunto imagen) . Creado por el maestro Luis Maria G.

 
Algún colega que utilizo dicho formulario y me pueda comentar su experiencia en el tema y la configuración con el programa Outlook.

Según lo leído es un formulario creado en VFP 8.0 enlazado al Outlook 2002

Agradezco sus comentarios 

Saludos,

Integral

[DAG]

Yo he usado durante muchos años las librerías de chilkat. Son las que mejor se me han adaptado al cambio de los niveles de seguridad que se ha ido Implementando.

En mi blog hice una aportación sobre esa librería:

https://davidacuna.wordpress.com/2018/09/20/chilkat-las-librerias-que-conectan-foxpro/ 

En chilkat hay multitud de ejemplos de cómo usar la librería en foxpro:

https://www.example-code.com/foxpro/smtp.asp 

Las funciones son abrumadoras:

https://www.chilkatsoft.com/refdoc/xChilkatMailManRef.html 

El soporte es constante:

https://cknotes.com/tag/smtp/ 

Espero que te sirva mi aportación,

saludos,

David

[integral]

Que tal Amigo :

Gracias por tus comentarios y sugerencias. Estuve leyendo la variada información que existe... 

Te comento que hace algunos años descargue el formulario de la imagen y en ese entonces tuve problemas con la configuración. Y decidí dejarlo de lado.

Hoy con un poco mas de experiencia en la programación decidí enfrentar el problema y buscar la solución.

Pude realizar la configuración de forma correcta. Y resulto no ser tan difícil como parecía.

Logre hacer el primer envió de prueba de manera satisfactoria.

Ver imagen...

 

Tema Resuelto.

Hasta la próxima

PD : Aqui les dejo el link si desean descargar el formulario. https://comunidadvfp.blogspot.com/2003/10/enviar-y-leer-correo-con-outlook-desde.html

Atte.,

Integral

[José Antonio Peña Martínez]

Gracias Integral, excelente aporte de Luis Maria Guayán ... Saludos!

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/f4099354-8e08-42c8-84fe-62d02753f1dfn%40googlegroups.com.

--

Desarrollo de Sistemas TecnoPro

José Antonio Peña

Saludos!

[José Antonio Peña Martínez]

En este ejemplo, como se agregan los archivos a enviar (adjuntos)

*----------------------------------------------
* Ejemplos de Outlook
*----------------------------------------------

*----------------------------------------------
* Enviar un mail
* AUTOR: LMG
*----------------------------------------------
LOCAL lcPerfil AS CHARACTER, lcContrasenia AS CHARACTER , ;
   lcDestinatario AS CHARACTER, lcTema AS CHARACTER , ;
   lcCuerpo AS CHARACTER
LOCAL loOutlook AS "Outlook.Application", ;
   loNameSpace AS OBJECT, loMailItem AS OBJECT
#DEFINE LF_CR CHR(10)+CHR(13)

*-- Datos del Mail
lcPerfil = "MiPerfil"
lcContrasenia = "mypassword"
lcDestinatario = "pru...@portalfox.com"
lcTema = "Prueba: " + TTOC(DATETIME())
lcCuerpo = "Prueba enviando un mail desde Visual FoxPro." + LF_CR
lcCuerpo = lcCuerpo + "Saludos." + LF_CR

*-- Creo objetos Outlook y NameSpace
loOutlook = CREATEOBJECT("Outlook.Application")
loNameSpace = loOutlook.GetNameSpace("MAPI")

*-- Ejecuto los métodos
loNameSpace.Logon(lcPerfil , lcContrasenia)
loMailItem = loOutlook.CreateItem(0)
loMailItem.Recipients.ADD(lcDestinatario)
loMailItem.Subject = lcTema
loMailItem.Body = lcCuerpo
loMailItem.Send
loNameSpace.Logoff

loNameSpace = .NULL.
loOutlook = .NULL.
*----------------------------------------------
* Fin Ejemplos de Outlook
*----------------------------------------------

Saludos!

El sáb, 9 dic 2023 a las 13:17, integral (<integral...@hotmail.com>) escribió:

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/f4099354-8e08-42c8-84fe-62d02753f1dfn%40googlegroups.com.

[integral]

Que tal Amigos :

En relacion al formulario Outlook funciona bien para el envió de correos con archivos adjuntos.

Para hacer mas rápida la digitación de las cuentas de correo. Decidí establecer una pequeña rutina de autocompletar para los controles TextBox donde se deba digitar

los correos. Con tan solo digitar el primer digito de la cuenta aparece el correo que deseamos. 

El siguiente código aun falta mejorarlo.  Cuando se repiten las iniciales de las cuentas de correo muestra tan solo la primera.  

Aqui el codigo : Evento InteractiveChange

InInsercionp = This.SelStart
lcBuscarstr = Substr(LOWER(This.value),1,InInsercionp)

IF !EMPTY(lcBuscarstr)          
   SELECT Correos                
   SET ORDER TO Nom_Correo    
   IF SEEK(lcBuscarstr)
      THIS.Value = Email        
      regsearh = RECNO()
   ELSE
      THIS.VALUE = lcBuscarstr
   ENDIF
   =INSMODE(.F.)
ELSE
*
ENDIF

Si Algún colega  desea mejorarlo. Luego pueda compartirlo...

Saludos,

Integral

[Francisco Aracil Alarcón (Faneka1973)]

Buenas a todos, por no abrir otro hilo meto la pregunta en este ya que esta relacionado con el envío de correos.

Recientemente nos ha surgido el problema con el Outlook LTSC 2021, al enviar desde VFP9 salta un error: 

Código de error OLE: xxxxxx: El parámetro no es correcto. 

Nuestro ERP esta funcionando en muchos clientes y por lo visto este en concreto se ha instalado esta versión, nosotros en la oficina lo hemos instalado y efectivamente no deja enviar con .send(),  salta el error, el envío se hace mediante la automatización con CREATEOBJECT('outlook.application'). 

Si alguien a tenido este problema y pudo arreglarlo le estaría agradecido. Nosotros seguiremos investigando si damos con la solución lo explicare por aquí.

Gracias.

Saludos.

[integral]

Amigo :

Te comento 

Hace unas semanas tuve problemas con el Excel LTSC 2021, un formulario que funcionaba perfectamente con el Excel 2019 al cambiar de versión comenzó a presentar algunos errores extraños en la codificación.

Parece ser desde mi punto de vista que esta versión LTSC 2021 de Office es mas estricta con la sintaxis y configuración que versiones anteriores. 

Al final tuve que instalar nuevamente la versión Office 2019

Ahora bien  te dejo el siguiente link donde tocan el tema de envió de correos desde VFP

https://groups.google.com/g/publicesvfoxpro/c/s3bqlQZDx7w

PD : Te sugiero que vuelvas a realizar la configuración de las cuentas de correo con el Outlook

Saludos,

Integral

[J. Enrique Ramos Menchaca]

Mandame tu código y lo pruebo, yo tengo instalada esa versión. No utilizo VFP 9, para mandar correos pero con gusto lo pruebo.

[Francisco Aracil Alarcón]

Al final parece que lo han solucionado abriendo el mensaje y luego enviándolo, si lo envían sin abrir con esta versión falla. Mañana se va a implantar en el cliente a ver si allí también funciona de esta forma.

Gracias por el comentario integral.

Saludos.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/cb207fb2-c083-4f9d-8c9c-10baf83aeacdn%40googlegroups.com.

--