Bug in TMail [Fixed]

[Enrico Maria Giordano]

In TMail, method Activate, there is

Code: Select all  Expand view  RUN

cCurPath = CurDrive() + ":\" + CurDir()

But this doesn't work when the current path is a network one (ie. \\myserver\myfolder).

EMG

[Antonio Linares]

How to retrieve the current path when it is a network one ?

[Rick Lipkin]

Enrico

This code is not especially elegant .. and it assumes the .exe is located in the drive or unc you wish to resolve.

Rick Lipkin

Code: Select all  Expand view  RUN

// where .exe started from is default directory //

cFILE  := GetModuleFileName( GetInstance() )
nSTART := RAT( "\", cFILE )
cDEFA  := SUBSTR(cFILE,1,nSTART-1)

SET DEFA to ( cDEFA )

[Enrico Maria Giordano]

How to retrieve the current path when it is a network one ?

Something like:

Code: Select all  Expand view  RUN

IF CurDrive() = "\"
    cCurPath = CurDir()
ELSE
    cCurPath = CurDrive() + ":\" + CurDir()
ENDIF

EMG

[Enrico Maria Giordano]

Enrico

This code is not especially elegant .. and it assumes the .exe is located in the drive or unc you wish to resolve.

Rick Lipkin

Code: Select all  Expand view  RUN

// where .exe started from is default directory //

cFILE  := GetModuleFileName( GetInstance() )
nSTART := RAT( "\", cFILE )
cDEFA  := SUBSTR(cFILE,1,nSTART-1)

SET DEFA to ( cDEFA )

Better fix TMail.

EMG

[Antonio Linares]

Enrico,

Here you have your changes, please try them

Included for FWH 18.02

Code: Select all  Expand view  RUN

METHOD Activate() CLASS TMail

   local cCurPath

   if ::nRetCode != -1
      IF CurDrive() = "\"
         cCurPath = CurDir()
      ELSE
         cCurPath = CurDrive() + ":\" + CurDir()
      ENDIF

      ::nRetCode = MAPISendMail( ::cSubject, ::cNoteText, ::cMsgType,;
                   DToS( ::dDate ) + " " + ::cTime,;
                   ::cConversationID, ::lReceipt, ::lFromUser,;
                   ::aOrigin, ::aRecipients, ::aFiles )
      lChDir( cCurPath )
   else
      MsgStop( "Error initializing mail" )
   endif

return nil

[Enrico Maria Giordano]

It doesn't work. This is look as the right way:

Code: Select all  Expand view  RUN

METHOD Activate() CLASS TMail

   local cCurPath

   // ::nRetCode = MAPILogOn()

   if ::nRetCode != -1
      if CurDrive() = "\"
         cCurPath = "\" + CurDir()
      else
         cCurPath = CurDrive() + ":\" + CurDir()
      endif

      ::nRetCode = MAPISendMail( ::cSubject, ::cNoteText, ::cMsgType,;
                   DToS( ::dDate ) + " " + ::cTime,;
                   ::cConversationID, ::lReceipt, ::lFromUser,;
                   ::aOrigin, ::aRecipients, ::aFiles )
      lChDir( cCurPath )
   else
      MsgStop( "Error initializing mail" )
   endif

return nil

EMG

[Antonio Linares]

many thanks