Page 1 of 2

ENVIAR UN EMAIL

Posted: Sun Dec 30, 2018 11:15 am
by SALINETAS24
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..!!

Re: ENVIAR UN EMAIL

Posted: Sun Dec 30, 2018 12:52 pm
by mustafa
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

Re: ENVIAR UN EMAIL

Posted: Sun Dec 30, 2018 8:13 pm
by SALINETAS24
Yeeep.., amic Mustafa.., moltes gracies.
Lo pruebo y te te digo..
y feliz any nau!!!

Re: ENVIAR UN EMAIL

Posted: Sun Dec 30, 2018 8:42 pm
by SALINETAS24
Bueno, primera prueba realizada con el CDOsys.rar bajo WINXP... y error
Pantalla_error.PNG
Pantalla_error.PNG (12.59 KiB) Viewed 3827 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!!

Re: ENVIAR UN EMAIL

Posted: Mon Dec 31, 2018 6:58 am
by SALINETAS24
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!!!

Re: ENVIAR UN EMAIL

Posted: Mon Dec 31, 2018 2:20 pm
by mustafa
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

Re: ENVIAR UN EMAIL

Posted: Mon Dec 31, 2018 5:38 pm
by SALINETAS24
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

Re: ENVIAR UN EMAIL

Posted: Thu Apr 11, 2019 12:25 pm
by SALINETAS24
Hola a todos, a ver si me podéis ayudar sobre dos cuestiones.

1/ Como puedo enviar un mismo email a varios destinatarios.
2/ Como puedo enviar un email con Copia (cc) a otro destinatario.

Code: Select all

loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
     :Configuration := loCfg
     :From          := ALLTRIM( XcFrom )        
     :To            := ALLTRIM( XcTo)           // -> SE PUEDEN SEPARAR POR COMAS LOS DESTINATARIOS..?
     :Subject       := ALLTRIM( XcsunTo )       
     :TextBody      := ALLTRIM( Xcontent ) 
     :AddAttachment( cFileNameY )               
     :AddAttachment( cFileNameQ )              

:Send()         	

ENDWITH 
Muy agradecido y vemos con una cervecita

Re: ENVIAR UN EMAIL

Posted: Thu Apr 11, 2019 1:34 pm
by danielmaximiliano
SALINETAS24 wrote: Thu Apr 11, 2019 12:25 pm 1/ Como puedo enviar un mismo email a varios destinatarios.
2/ Como puedo enviar un email con Copia (cc) a otro destinatios
Hola debes agregar al cuerpo del mensaje lo siguiente

:To = "user1@mail.com, user2@mail.com"
:Cc = "user3@mail.com"
:Bcc = "user4@mail.com"

Varios destinatarios pueden ir en :To = "x" , "y" , "z"
Copia en :Cc
Copia oculta en :Bcc

Re: ENVIAR UN EMAIL

Posted: Thu Apr 11, 2019 4:10 pm
by SALINETAS24
Muchas gracias Daniel.., funciona muy bien.
En el caso de que el servidor sea OUTLOOK, me puedes indicar lo mismo.
Agradecido de antemano.