Loading ...
Sorry, an error occurred while loading the content.
 

[NTB] Re: Problem with Mapi

Expand Messages
  • Wolfgang Frisch
    ... Hi jody here it is: H= Versand incl Ads ^!clip Datei speichern/lfd ^!SetCursor 1:1 ^!Select EOL ^!Set %ADS%=^$GetSelection$ ^!DeleteLine ^!SetCursor 1:1
    Message 1 of 7 , Apr 2, 2000
      At 02.04.00 13:21 , you wrote:
      >Send your Clip to the Clips list or to me private eMail and I'll
      >take a look.

      Hi jody

      here it is:


      H="Versand incl Ads"
      ^!clip "Datei speichern/lfd"
      ^!SetCursor 1:1
      ^!Select EOL
      ^!Set %ADS%=^$GetSelection$
      ^!DeleteLine

      ^!SetCursor 1:1
      ^!Select EOL
      ^!Set %subject%=^$GetSelection$
      ^!DeleteLine
      ^!Jump Text_end
      ^!set %Sp%=^$GetCol$
      ^!if ^%Sp% = 1 Skip
      ^!InsertText ^%NL%
      ^!InsertText ^[yyyy-mm-dd:hhnn^] ^%NL%
      ^!insertText ^%file% ^%NL% ^%NL%

      ^!Email ^%ADS%;^%subject%;+
      ;Quittung
      ^!Jump Text_start
      ^!InsertText =======> Msg erfasst am ^[yyyy-mm-dd:hhnn^] ^%NL%
      ^!InsertText ^%ADS% ^%NL%
      ^!InsertText ^%subject% ^%NL%
      ^!save
      ^!FocusApp Eudora Pro *


      +++++++++++++++++++++++++++++++

      it works now. But maybe, or better: I am sure, there is something to
      straighten, cleanup, streamline ... :)

      to explain some German expressions:

      ^!clip "Datei speichern/lfd"
      it's another clip saving the file by counting forward:

      H="Datei speichern/lfd"
      ;^!SetIniFile c:\prog\util\notetab pro\notepro.ini
      ;^!set %FName%=^$GetDocName$
      ;^!IfSame ^$StrCopy("^%FName%";1;1)$ "D" ^!GoTo Label1
      ^!set %N%=^$GetValue(Document:Number)$
      ^!Inc %N%
      ^!Set %f%="000000"
      ^!append %f%=^%N%
      ^!set %file%="D"
      ^!append %file%=^$StrCopyRight("^%F%";8)$
      ^!save as c:\lfd2\^%file%.txt
      ;^!renamedoc ^%file%.txt
      ^!SaveValue Document:Number=^%N%
      ^!Goto end
      :Label1
      ^!save
      :end


      "Msg erfasst" means that I made the msg and forwarded it to Eudora that time.

      thanks.

      cu
      wf
    Your message has been successfully submitted and would be delivered to recipients shortly.