ENVIAR UN EMAIL

HMG en Español

Moderator: Rathinagiri

User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

ENVIAR UN EMAIL

Post 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..!!
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: ENVIAR UN EMAIL

Post 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
Attachments
Email_Sample.zip
(3.21 KiB) Downloaded 272 times
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

Re: ENVIAR UN EMAIL

Post by SALINETAS24 »

Yeeep.., amic Mustafa.., moltes gracies.
Lo pruebo y te te digo..
y feliz any nau!!!
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

Re: ENVIAR UN EMAIL

Post by SALINETAS24 »

Bueno, primera prueba realizada con el CDOsys.rar bajo WINXP... y error
Pantalla_error.PNG
Pantalla_error.PNG (12.59 KiB) Viewed 3828 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!!
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

Re: ENVIAR UN EMAIL

Post 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!!!
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: ENVIAR UN EMAIL

Post 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
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

Re: ENVIAR UN EMAIL

Post 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
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

Re: ENVIAR UN EMAIL

Post 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
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: ENVIAR UN EMAIL

Post 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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

Re: ENVIAR UN EMAIL

Post 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.
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
Post Reply