HMGforum.com

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

Code: Select all

.T. /* lPopAuth */,;
.F. /* lTLS */,;

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

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

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