a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
51 lines
922 B
Plaintext
51 lines
922 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Copyright 2009 Viktor Szakats (harbour syenar.net)
|
|
* www - http://harbour-project.org
|
|
*/
|
|
|
|
#require "hbssl"
|
|
#require "hbtip"
|
|
|
|
REQUEST __HBEXTERN__HBSSL__
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE Main( cFrom, cPassword, cTo )
|
|
|
|
IF ! tip_SSL()
|
|
? "Error: Requires SSL support"
|
|
RETURN
|
|
ENDIF
|
|
|
|
hb_default( @cFrom , "<myname@gmail.com>" )
|
|
hb_default( @cPassword, "<mypassword>" )
|
|
hb_default( @cTo , "addressee@domain.com" )
|
|
|
|
? hb_SendMail( ;
|
|
"smtp.gmail.com", ;
|
|
465, ;
|
|
cFrom, ;
|
|
cTo, ;
|
|
NIL /* CC */, ;
|
|
{} /* BCC */, ;
|
|
"test: body", ;
|
|
"test: subject", ;
|
|
NIL /* attachment */, ;
|
|
cFrom, ;
|
|
cPassword, ;
|
|
"", ;
|
|
NIL /* nPriority */, ;
|
|
NIL /* lRead */, ;
|
|
.T. /* lTrace */, ;
|
|
.F., ;
|
|
NIL /* lNoAuth */, ;
|
|
NIL /* nTimeOut */, ;
|
|
NIL /* cReplyTo */, ;
|
|
.T. )
|
|
|
|
RETURN
|