I was a nice boy a did not disturb you for a long time... But now I have a problem I was not able to fix myself.
With the following script I confirm to a client that my bank has confirmed his payment an that the book he has ordered will be mailed the next day. This process is initialized by clicking on a specific mail and then going to the menu "any script run on selected". This confirmation mail is moved to the "confirmation directory" (=Korrespondenz\Debitoren\Alle_Rechnungen\Zahlungsvollzugbestätigung). What I was not able to achieve is that the mail I used to initialize this process is moved to the folder Korrespondenz\Debitoren\Rechnungen\Voroausbezahlt
Can you tell me how to procede?
Thank you
ente
External $userdata1 "Choose a character to quote message with:" ">"
{### Reply to Mail from ABC with Template
{----------
{v1.0 - 2002.02.11 - Roger Leemann / Götz Perll
{ Copy of "Reply with Template"
{----------
{ This script will reply to a message from a saved template
{ Usage: not suitable for automatic use; use only on demand.
{ Initialize user settings: }
External $userdata1 "Choose a character to quote message with:" ">"
External $userfile1 "Create body template" "Zahlungs_Eingang.txt"
CreateMessage %m
ReadHeader $a Subject %message
AddStrings $subject "Zahlung eingegangen für: "
AddStrings $subject $a
SetHeader %m Subject $subject
{ OpenBody $Body $userfile1
{ ReadHeader $From From %message
{ AddTo %m $From
OpenBody $Body $userfile1
ReadHeader $To To %message
AddTo %m $To
{ If template file exists load it }
FileExists &F $userfile1
if &F then UseBody
{ Otherwise, use a blank template }
Set $a "MESSAGE BODY TEMPLATE CURRENTLY NOT SET"
AppendBody $a " "
AppendBody $a " "
AppendBody $a "To use this script, please setup a default message body template:"
AppendBody $a " "
AppendBody $a " press F9 to open Filters and Scripts window, then click on Setup Script."
AppendBody $a " From the drop down box select script \"Reply with Template\"."
AppendBody $a " Click on the Create Body Template button to create a template."
AppendBody $a " When done, just click on File, Save."
goto Edit
:UseBody
set $a $Body
:Edit
ReadBody $b %message
{v1.0 delete certain lines with information that the adresseee shouldn't see
set #ll -1
LocateLine #ll "Sehr geehrte" $b
if #ll > -1 then DL1
goto CONT

DeleteLine $b #ll 45
:CONT
QuoteBody $b $UserData1
AppendBody $a " "
AppendBody $a $b
AssignBody %m $a
AppendSignature %m
EditMessage %m
{SaveMessage %m "Korrespondenz\Debitoren\Alle_Rechnungen\Zahlungsvollzugbestätigung.mbx"
MarkMessage %message 7
{DeleteMessage %message