HMGforum.com

Code: Select all

@echo off
cls
set path=c:\hmg.3.4.1\harbour\bin;c:\hmg.3.4.1\mingw\bin
hbmk2 test.prg hbssl.hbc hbtip.hbc 
pause

Code: Select all

REQUEST __HBEXTERN__HBSSL__
*----------------------------------------------------------------------*
Function Main
*----------------------------------------------------------------------*

	SETMODE(25,80)

	SETCURSOR(0)

	SETCOLOR('W+/B')

	CLS

	@ 0  , 0 SAY REPLICATE( '-', 80 )
	@ 1  , 1 SAY 'MAIL TEST'
	@ 2  , 0 SAY REPLICATE( '-', 80 )
	@ 22 , 0 SAY REPLICATE( '-', 80 )
	@ 23 , 1 SAY 'STATUS: WAITING'

	@ 24 , 0 SAY REPLICATE( '-', 80 )

	@ 06, 22 SAY 'OPTIONS'

	@ 08, 22 SAY '1. SEND'

	@ 12, 22 SAY 'ESC. EXIT'

	DO WHILE .T.

		K := INKEY(0.9)

		IF	K == 49

			cTO	:= 'mail.box.hmg@gmail.com'
			cBody	:= 'Body!' 
			cSubject:= 'Subject!'

			SEND ( cTO , cSubject , cBody )

		ELSEIF	K == 27

			QUIT

		ENDIF

	ENDDO

RETURN

*----------------------------------------------------------------------*
PROCEDURE SEND ( cTO , cSubject , cBody )
*----------------------------------------------------------------------*

	IF ! tip_SSL()
		ALERT ( "ERROR SSL" )
		RETURN
	ENDIF

	@ 23 , 1 SAY 'STATUS: STARTING ' + DTOC(DATE()) + ' ' + TIME()

	cFrom		:= "your.user.id@gmail.com"            
	cPassword	:= "your.password"        

	R := hb_SendMail(  "smtp.gmail.com",  465,	;
		cFrom,					;
		cTo,					;
		NIL /* CC */,				;
		{} /* BCC */,				;
		cBody,					;
		cSubject,				;
		NIL /* attachment */,			;
		cFrom,					;
		cPassword,				;
		"",					;
		NIL /* nPriority */,			;
		NIL /* lRead */,			;
		.T. /* lTrace */,			;
		.F.,					;
		NIL /* lNoAuth */,			;
		NIL /* nTimeOut */,			;
		NIL /* cReplyTo */,			;
		.T. )

	IF R
		@ 23 , 1 SAY 'STATUS: SEND OK    ' + DTOC(DATE()) + ' ' + TIME() + SPACE(40)
	ELSE
		@ 23 , 1 SAY 'STATUS: SEND ERROR ' + DTOC(DATE()) + ' ' + TIME() + SPACE(40)
	ENDIF

RETURN