FiveTech Support Forums

#include "fivewin.ch" //
#INCLUDE "wcolors.CH"
#include "common.ch"

#DEFINE HELP_FINDER
#DEFINE HKEY_LOCAL_MACHINE      2147483650
#DEFINE INTERNET_FLAG_PASSIVE   0x08000000



PROCEDURE main

    LOCAL cSndTo := "TimStone@masterlinksoftware.com"
    LOCAL SndFile := ""
    LOCAL cSubj := "Test of email system"
    LOCAL cText := "It would be nice for this to work."
    PRIVATE oWnd

        DEFINE WINDOW oWnd TITLE "Test ASW Email" FROM 0,0 TO 400, 600 PIXEL

        SET MESSAGE OF oWnd TO " " 2007 NOINSET DATE KEYBOARD

        ACTIVATE WINDOW oWnd ON INIT    ASWSend( cSndTo, SndFile, cText, cSubj )

RETURN NIL




FUNCTION ASWSend( MailTo, cSndFile, cText, cSubj )

    // Declare LOCAL variables
    LOCAL oInit, oMail
    LOCAL mailname, mailself, mailuser, mailpass, mailport, lreceipt := .F., lUseMLS := .F.
    LOCAL cFrom

    // Open Config File and get email setup information
    mailname := "mail.masterlinksoftware.com"
    mailself := "timstone@masterlinksoftware.com"
    mailuser := "c10000@masterlinksoftware.com"
    mailpass := "drmls82"
    mailport := 587
    mailauth := .T.
    cSender := ALLTRIM( mailuser )
    cHost := ALLTRIM( mailname )
    cMailTo := ALLTRIM( MailTo )
    aFiles := { cSndFile }

    // initialize sockets (or nothing will happen) - it's a quirk in GetHostByName(), not TSmtp
    oInit := TSmtp():New( cHost, mailport, mailauth , mailuser, mailpass )
    // now let's go for our socket
    oMail := TSmtp():New( cHost, mailport, mailauth , mailuser, mailpass )

    oMail:cReplyTo := mailself
    oMail:nGMT := -8 // Pacific Standard Time (GMT -08:00) - Adjust this to your own Time Zone!

    // Provide for a delay
    oMail:nDelay := 2

    // Create a log file
    oMail:oSocket:lDebug := .T.
    oMail:oSocket:cLogFile := "smtp.log"

    // Now connect to host
    oMail:bConnecting := {|| oWnd:SetMsg( "Connecting to " + cHost + " (" + oMail:cIPServer + ;
        ") and waiting for response..." ) }
    oMail:bConnected := {|| oWnd:SetMsg( "Connected and sending mail and attachments..." ) }
    oMail:bDone := { || oWnd:SetMsg( "Message sent successfully" ) }
    oMail:bFailure := { || oMail:nStatus := 7 }

    // Complete message and send
    cMsg := "Thank You"
    oMail:SendMail( cSender, { cMailTo }, cText, cSubj, aFiles, {}, {}, .F. , NIL )

    oInit:end()
    IF oMail <> nil
        oMail:End()
    ENDIF

    MsgInfo( "Finished" )

RETURN NIL

   if( wLen < 10000 )  // socket errors = 10000 + ...
      hb_storvclen( ( char * ) buffer, wLen, 2 );
   else
      hb_storvclen( "", 0, 2 );

    // oInit := TSmtp():New( cHost, mailport, mailauth , mailuser, mailpass )

02/27/10 00:32:46: Connect  Socket handle:       240    
02/27/10 00:32:46: Write    Socket handle:       240    
02/27/10 00:32:48: Read Socket handle:       240    
02/27/10 00:32:48: 220-phoenix.lunarpages.com ESMTP Exim 4.69 #1 Fri, 26 Feb 2010 15:32:47 -0800 
220-We do not authorize the use of this system to transport unsolicited, 
220 and/or bulk e-mail.
    
02/27/10 00:32:48: Read Socket handle:       240    
02/27/10 00:32:48: 250 phoenix.lunarpages.com Hello 253.199.222.87.dynamic.jazztel.es [87.222.198.242]
    
02/27/10 00:32:49: Read Socket handle:       240    
02/27/10 00:32:49: 503 AUTH command used when not advertised

#ifdef __XHARBOUR__

// Keep this C code here so only xHarbour uses it

#pragma BEGINDUMP

//char * hb_parc( int iParam, ... );
//ULONG  hb_parclen( int iParam, ... );
//int    hb_parni( int iParam, ... );
//LONG   hb_parnl( int iParam, ... );
//int    hb_parl( int iParam, ... );
//void   hb_storc( const char * szText, int iParam, ... );
//void   hb_storclen( const char * szText, ULONG ulLength, int iParam, ... );
//void   hb_storl( int iLogical, int iParam, ... );
//void   hb_storni( int iValue, int iParam, ... );
//void   hb_stornl( LONG lValue, int iParam, ... ); 
//void   hb_stords( const char * szDate, int iParam, ... );
//void   hb_stornd( double dValue, int iParam, ... );

char * hb_parvc( int iParam, int iIndex )
{
   return ( char * ) hb_parc( iParam, iIndex );
}   

ULONG hb_parvclen( int iParam, int iIndex )
{
   return hb_parclen( iParam, iIndex );
} 

int hb_parvni( int iParam, int iIndex )
{
   return hb_parni( iParam, iIndex );
}  

long hb_parvnl( int iParam, int iIndex )
{
   return hb_parnl( iParam, iIndex );
}  

BOOL hb_parvl( int iParam, int iIndex )
{
   return hb_parl( iParam, iIndex );
}  

void hb_storvc( char * szText, int iParam, int iIndex )
{
   hb_storc( szText, iParam, iIndex );
}   

void hb_storvclen( char * szText, ULONG ulLength, int iParam )
{
   hb_storclen( szText, ulLength, iParam );
}   

void hb_storvl( BOOL bValue, int iParam, int iIndex )
{
   hb_storl( bValue, iParam, iIndex );
}   

void hb_storvnl( LONG lValue, int iParam, int iIndex )
{
   hb_stornl( lValue, iParam, iIndex );
}  

void hb_storvni( int iValue, int iParam, int iIndex )
{
   hb_storni( iValue, iParam, iIndex );
} 

void hb_storvds( char * szDate, int iParam, int iIndex )
{
   hb_stords( szDate, iParam, iIndex );
}     

void hb_storvnd( double dValue, int iParam, int iIndex )
{
   hb_stornd( dValue, iParam, iIndex );
}     

#pragma ENDDUMP

#endif