enviar correo electronico / send eMail

HMG en Español

Moderator: Rathinagiri

User avatar
CarlosRD
Posts: 63
Joined: Thu Jan 31, 2013 9:20 pm
Location: Orizaba, México
Been thanked: 1 time

enviar correo electronico / send eMail

Post by CarlosRD » Fri Jun 28, 2013 9:00 pm

hola a todos:

tengo este codigo que copie de un post de gregory filatov, pero no me funciona. alguien me puede decir por que?
se compila sin problema y aparentemente funciona bien, pero me dice "Correo NO enviado"

hi all:

i have this gregory filatov's code, but it does not work to me. can someone help me?
it works apparently with out problem but the final result is "UNSENT MAIL"

saludos / regards.

Code: Select all

#include "hmg.ch"

Function Main()

set century on
set date ital

   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 200 ;
      HEIGHT 200 ;
      MAIN;
      TITLE 'Button Test'


      @ 30,70 BUTTON Button_1 WIDTH 50 HEIGHT 50 ACTION ENVIARCORREO()

   END WINDOW

   CENTER WINDOW Form_1

   ACTIVATE WINDOW Form_1

Return

   
FUNCTION ENVIARCORREO()   
   cSMTPServer   := "smtp.smartnext.com"
   cPopServer    := "mail.smartnext.com"
   cFrom         := "facturacion@zuca.com.mx"
   cTo           := "creydav@gmail.com"
   cSMTPPassWord := "micontrasena"

// hb_SendMail( cServer, nPort, cFrom, xTo, xCC, xBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer, nPriority, lRead, bTrace, lPopAuth, lNoAuth, nTimeOut, cReplyTo, lTLS, cSMTPPass, cCharset, cEncoding )

   MsgInfo( iif(hb_SendMail( cSMTPServer,;
                  NIL,;
                  cFrom,;
                  cTo,;
                  NIL /* CC */,;
                  NIL /* BCC */,;
                  "test: body",;
                  "test: subject",;
                  NIL /* attachment */,;
                  cFrom,;
                  cSMTPPassword,;
                  cPopServer,;
                  NIL /* nPriority */,;
                  NIL /* lRead */,;
                  .F. /* lTrace */,;
                  .T. /* lPopAuth */,;
                  .F. /* lNoAuth */,;
                  NIL /* nTimeOut */,;
                  NIL /* cReplyTo */,;
                  .F. /* lTLS */,;
                  cSMTPPassWord ), "Correo enviado satistactoriamente", "Correo NO enviado"), "Resultado" )
				  
RETURN
Todo en el Nombre de Jesus / All in the name of Jesus
Carlos RD

jucar_es
Posts: 75
Joined: Thu Nov 13, 2008 11:12 pm

Post by jucar_es » Fri Jun 28, 2013 10:10 pm

Buenas tardes

adjunto mi ejemplo para envio de emails

a mi me funciona

espero le sirva
Attachments
PMAIL.ZIP
(16.06 KiB) Downloaded 311 times

User avatar
danielmaximiliano
Posts: 2010
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 38 times
Been thanked: 10 times
Contact:

Post by danielmaximiliano » Fri Jun 28, 2013 10:27 pm

Hola Carlos :
Si es cliente de http://www.smartnext.com/soporte/ , consulte ahi si en servidor SMTP necesita autentificación
o si tambien nesecita tanspoerte seguro SSL

Code: Select all

.T. /* lPopAuth */,;
.F. /* lTLS */,;
va a tener que jugar con estos dos parametros para el envio de email.


aqui tiene una ayuda para en envio de email mediante Harbour : http://hmgforum.com/viewtopic.php?f=9&t=2559

aqui CDOSYS : http://hmgforum.com/viewtopic.php?f=24&t=2361

para transporte seguro necesita instalar OpenSSL.
tiene las 2 versiones
1) x86 y x64
2) Desarrollo y Light
recomiendo instalar Light. http://slproweb.com/products/Win32OpenSSL.html
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
CarlosRD
Posts: 63
Joined: Thu Jan 31, 2013 9:20 pm
Location: Orizaba, México
Been thanked: 1 time

Post by CarlosRD » Mon Jul 01, 2013 3:12 pm

thanks jucar, daniel

i need by request in my job, to create emails in OUTLOOK, anybody know where can i get OLE info (instructions)?

*************

gracias jucar, daniel

necesito por requerimientos en mi trabajo, crear emails en OUTLOOK, alguien sabe en donde puedo conseguir informacion de OLE-OUTLOOK???

gracias, saludos / thanks, regards
Todo en el Nombre de Jesus / All in the name of Jesus
Carlos RD

User avatar
Rathinagiri
Posts: 5105
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 95 times
Been thanked: 107 times
Contact:

Post by Rathinagiri » Mon Jul 01, 2013 3:28 pm

This is from Harbour contrib folder hbwin

Code: Select all

STATIC PROCEDURE Exm_MSOutlook2()

   LOCAL oOL, oLista, oMail
   LOCAL i

   IF ( oOL := win_oleCreateObject( "Outlook.Application" ) ) != NIL

      oMail := oOL:CreateItem( 0 /* olMailItem */ )

      FOR i := 1 TO 10
         oMail:Recipients:Add( "Contact" + hb_ntos( i ) + ;
            "<contact" + hb_ntos( i ) + "@server.com>" )
      NEXT

      oLista := oOL:CreateItem( 7 /* olDistributionListItem */ )
      oLista:DLName := "Test with distribution list"
      oLista:Display( .F. )
      oLista:AddMembers( oMail:Recipients )
      oLista:Save()
      oLista:Close( 0 )
   ELSE
      ? "Error. MS Outlook not available.", win_oleErrorText()
   ENDIF

   RETURN
This is from an example from a web site for powerbuilder. I think it can be converted to Harbour easily.

Code: Select all

Creating and Sending a New Mail Item
Create an OLEObject and connect to Outlook. Use the following code to send a mail item. The argument to the 'CreateItem' function specifies the type of item that is going to be created.
'0' Mail Item
'1' Appointment
'2' Contact
'3' Task

OLEObject ole_item, ole_attach
//Creates a new mail Item
ole_item = ole_outlook.CreateItem(0)
//Set the subject line of message
ole_item.Subject = "A new attachement for you"
//Body of mail message
ole_item.Body = "Here is a new attachment for you :"+Char(13)
//Recipient(s) Use a semicolon to separate multiple recipients
ole_item.To = "MaheshThatavarthi"
ole_attach = ole_item.Attachments
ole_attach.add(complete path of the file)
ole_item.Display //displays the message
ole_item.Send //sends the message
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.

User avatar
CarlosRD
Posts: 63
Joined: Thu Jan 31, 2013 9:20 pm
Location: Orizaba, México
Been thanked: 1 time

Post by CarlosRD » Tue Jul 02, 2013 7:44 pm

Thanks Rathinagiri:

Taking your sample code, and with some modifications I got this simple sample to send emails with Outlook 2007. You can add recipients through a routine and also attachments.
With Outlook 2007, you need to open it using the "execute file" first of all, I think it's a bug that has the OL-2007.
Hope this helps HMG community. Greetings.

************************************

Gracias Rathinagiri:

Tomando como base su codigo, y con algunas modificaciones, he conseguido este ejemplo para enviar correos con Outlook 2007. Puede agregar destinatarios y archivos adjuntos por medio de una rutina.
Con Outlook 2007, es necesario primero abrirlo, creo que por un error del propio Outlook.
Espero que esto sirva a la comunidad HMG. Saludos.

Code: Select all

#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
Todo en el Nombre de Jesus / All in the name of Jesus
Carlos RD

User avatar
Rathinagiri
Posts: 5105
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 95 times
Been thanked: 107 times
Contact:

Post by Rathinagiri » Tue Jul 02, 2013 8:17 pm

Wow! That is so great. Thanks a lot Carlos.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.

EduardoLuis
Posts: 494
Joined: Tue Jun 04, 2013 6:33 pm
Location: Argentina
Been thanked: 22 times

Post by EduardoLuis » Tue Sep 10, 2013 1:02 pm

Hi Friends:

I'm developing a system for a friend who needs that some files must be sent attached with a mail.-
I use a routine that lets him insert any text as body message, but he needs to send attached several (up to 5) pdf document with the mail.- As he use only MSIMN with pop3 adreess i can't use latest version for outlook 2007.-
I've check for information about it, but i can't find anything to solve the problem.-
If someone could help me.-
With regards. Eduardo

Hola Amigos:

Estoy desarrollando un sistema para un amigo que necesita enviar archivos adjuntos con su mail.-
Yo utilicé una rutina que le permite ingresar largos textos en el cuerpo del mensaje, pero lo que el necesita es adjuntar (hasta 5) archivos pdf conjuntamente con el mail.- Como el utiliza unicamente MSIMN con casillas POP3, no pude utilizar la ultima versión para Outlook 2007.-
He chequeado por información sobre el tema, pero no encontré nada que me permitiera resolver el problema, Si alguien puede orientarme, lo agradezco.-
Cordialmente. Eduardo
Attachments
send_mail.zip
(1.23 KiB) Downloaded 101 times

User avatar
danielmaximiliano
Posts: 2010
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 38 times
Been thanked: 10 times
Contact:

Post by danielmaximiliano » Tue Sep 10, 2013 1:08 pm

Hola Eduardo :

Hace tiempo se hicieron varios topicos sobre envio de Email.
hay rutinas basadas en Sendmail() otras sobre CDOsys de Microsoft pero todas ellas necesitan de la libreria OpenSSL.

aca tenes algo funcional que puede ser mejorada :http://hmgforum.com/viewtopic.php?f=9&t ... =incomming
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

EduardoLuis
Posts: 494
Joined: Tue Jun 04, 2013 6:33 pm
Location: Argentina
Been thanked: 22 times

Post by EduardoLuis » Tue Sep 10, 2013 5:36 pm

Hi Dany:

I've test some time ago your suggestion, but it don't solve my problem.-
Thanks again.-
Eduardo

Hola Dany:

Hace tiempo testeé ese ejemplo, pero con él no pude resolver el problema.-
Gracias de todos modos.-
Eduardo

Post Reply

Who is online

Users browsing this forum: No registered users and 2 guests