ENVIAR UN EMAIL

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
SALINETAS24
Posts: 272
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 6 times
Been thanked: 12 times

ENVIAR UN EMAIL

Post by SALINETAS24 » Sun Dec 30, 2018 11:15 am

Hola, he estado leyendo por el foro y estoy un poco perdido.
Necesito poder enviar un email con un fichero adjunto.
He visto una rutina en el foro para OUTLOOK, muy sencilla.
¿ Me podéis indicar como hacerlo para enviar desde Gmail y Hotmail.?
Muchas gracias.


#include "hmg.ch"

Function Main()

DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 400 ;
MAIN;
TITLE 'Enviar correo con Outlook'


@ 30,70 BUTTON Button_1 CAPTION "enviar" ACTION ENVIARCORREO()

END WINDOW

CENTER WINDOW Form_1

ACTIVATE WINDOW Form_1

Return


FUNCTION ENVIARCORREO()

execute file "\program files\microsoft office\office12\outlook.exe"
oOutLook := CreateObject("Outlook.Application")

oMail := oOutLook:CreateItem(0)

oRecip := oMail:Recipients
oRecip:Add( "creydav@gmail.com" )
oRecip:Add( "facturacion@zuca.com.mx" )

oAdjunto:=oMail:Attachments
oAdjunto:Add( "c:\saz\rc8001.pdf" )
oAdjunto:Add( "c:\saz\rc8001.xml" )

oMail:Subject := "Asunto"
oMail:Body := "Cuerpo de la prueba"
oMail:Send()

RETURN
Feliz año nuevo a todos..!!

User avatar
mustafa
Posts: 779
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 107 times
Contact:

Post by mustafa » Sun Dec 30, 2018 12:52 pm

Hola amic:
Bones Festes i millor any nou 2019
Te mando un sample muy escueto del magnifico trabajo
del compañero "danielmaximiliano" --> CDOsys.rar
http://www.hmgforum.com/viewtopic.php?f ... hilit=mail

El sample que te mando está probado con gmail y yahoo
y está funcionando.
Tambien mi sample esta basado en el mismo sistema

Screenshot_Captura_New_2018.zip
http://www.hmgforum.com/viewtopic.php?f ... s&start=50
Saludos
Una abraçada
Mustafa
*-------------------------------------------------Google -------------------------------------------*
Hi friend
Happy holidays and best new year 2019
I send you a very concise sample of the magnificent work
of the companion "danielmaximiliano" -> CDOsys.rar
http://www.hmgforum.com/viewtopic.php?f ... hilit=mail

The sample that I send you is tested with gmail and yahoo
and it is working.
Also my sample is based on the same system

Screenshot_Captura_New_2018.zip
http://www.hmgforum.com/viewtopic.php?f ... s&start=50
Regards
Mustafa
Attachments
Email_Sample.zip
(3.21 KiB) Downloaded 39 times

User avatar
SALINETAS24
Posts: 272
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 6 times
Been thanked: 12 times

Post by SALINETAS24 » Sun Dec 30, 2018 8:13 pm

Yeeep.., amic Mustafa.., moltes gracies.
Lo pruebo y te te digo..
y feliz any nau!!!

User avatar
SALINETAS24
Posts: 272
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 6 times
Been thanked: 12 times

Post by SALINETAS24 » Sun Dec 30, 2018 8:42 pm

Bueno, primera prueba realizada con el CDOsys.rar bajo WINXP... y error
Pantalla_error.PNG
Pantalla_error.PNG (12.59 KiB) Viewed 322 times
Le he aplicado también (por probar) unas modificaciones que se indicaban en el mismo foro.., y "siquieres arros Catalina"....

Voy a probar el tuyo.. amigo y te digo!!

User avatar
SALINETAS24
Posts: 272
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 6 times
Been thanked: 12 times

Post by SALINETAS24 » Mon Dec 31, 2018 6:58 am

Hola... Mustafa.. tengo el mismo problema. Desconozco el origen del error, creo que tiene que ver con algun tema de seguridad... en fin.
Haremos alguna prueba y ya te dire
Un saludo amic!!!

User avatar
mustafa
Posts: 779
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 107 times
Contact:

Post by mustafa » Mon Dec 31, 2018 2:20 pm

Te he mandado un mensaje desde el mismo código que mande " Email_Sample.zip" ,
curiosamente me ha dado el mismo Error que tu estás aportando , usando mi cuenta
de correo la he remplazado por otra de gmail que no estoy utilizando habitualmente
y esta vez parece que ha funcionado OK! , mira tu correo ? haber si ha llegado.

Creo que puede ser un tema de seguridad, he estado haciendo pruebas mandándome Mails con las
dos cuentas de gmail que tengo y no me ha dado ningún problema y he mandado otro Mail desde
mi cuenta a otra distinta de Yahoo y ha llegado perfecto.
Ya me contaras
Saludos
Mustafa

User avatar
SALINETAS24
Posts: 272
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 6 times
Been thanked: 12 times

Post by SALINETAS24 » Mon Dec 31, 2018 5:38 pm

Yeeep.., efectivamente es un sistema de seguridad. Para Gmail hay que buscar una opción que dice algo así "Permitir el acceso a cuentas desde aplicaciones poco seguras" y activarlo.
En principio yo no la encontraba por ninguna parte, pero lo que hice fue en CONFIGURACIÓN.., la opción CUENTA, pulse en "más información" y aparece una ventana de ayuda.., teclee "aplicación" y entonces apareciose la opción... funciona de maravilla.
Ahora voy a probar con HOTMAIL ...
MUCHAS GRACIAS MUSTAFA.., eres una máquina.
.., y feliz año nuevo

Post Reply