Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

      if lTestMail
         cSubject := "Meine Email " + " Zeit: " + Time() + "  Datum: " + dtoc(date())
         if fSendeFile(cSubject, cDatei, cMyVerzeichnis, cWas, lDemo)
            msgbox("Email konnte verschickt werden ")
         else
            if file(cMyVerzeichnis + "email.log")
               msgbox(memoread(cMyVerzeichnis + "email.log"))  //email.log wird vom logwriter erstellt / geändert
            endif
         endif
      endif

Code: Alles auswählen

/* Klasse für das Schreiben der Logdatei wenn ein Fehler auftritt, bzw. auch wenn alles glatt läuft  */
CLASS LogWriter
   VAR lIsError
   VAR aMessage
   VAR cLogFile

 EXPORTED:

   INLINE METHOD init( cLogFile )
      ::cLogFile := cLogFile
      ::aMessage := {}
      ::lIsError := .F.
   RETURN


   INLINE METHOD write( cMsg )
      AAdd( ::aMessage, cMsg )
   RETURN self


   INLINE METHOD logError( cMsg )
      ::lIsError := .T.
      ::write( cMsg )
   RETURN self


   INLINE METHOD isError
   RETURN ::lIsError


   INLINE METHOD writeLogFile
      LOCAL nHandle

      IF .NOT. FExists( ::cLogFile )
         nHandle := FCreate( ::cLogFile )
      ELSE
         nHandle := FOpen( ::cLogFile )
         FSeek( nHandle, 0, FS_END )
      ENDIF

      AEval( ::aMessage, {|cMsg| FWrite( nHandle, cMsg + CRLF ) } )
      FClose( nHandle )
   RETURN self

ENDCLASS

Code: Alles auswählen

if empty(oSmtpClient := SMTPClient():new(cMailServer,nPort,, oLog, 2 ))
    Fehler
    return .f.
endif

Code: Alles auswählen

     IF .NOT. oSmtpClient:connect(cLoginName, cPasswort)
      oLog:logError( ERR_MSG_CONNECTION )