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 (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.