enchiriadis/DEVONthink-Belegversand-Automatisation
Public Access
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

show_mail_templates unterscheidet jetzt zwischen Aufruf aus dem Menü autonom) oder Aufruf auf _belegversand.applescript. Probelm danach: In _belegversand wird show_mail_templates entweder als *.scpt (kompiliert) oder *.applescript (Textdatei) aufgerufen. Dateiendungen müssen demnach angepasst werden. Daher Einführung der neuen Funktione on compileAllScripts(basePath) in der Datei _belegversand_setup.applescript.

Browse Source
This commit is contained in:
enchiriadis
2026-08-15 20:14:34 +02:00
parent 49291fc2d3
commit 7acdfe8927
4 changed files with 186 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Helpers/scripts/_belegversand.applescript
+20 -9
View File
@@ -22,10 +22,16 @@ property defaultWriteDebugLog : false
property defaultMailBodyFolderName : "mail_vorlagen"
property defaultMailBodyRecordName : "belegversand"
property defaultDryRunPreviewPath : "/tmp/DT-Belegversand-preview.txt"
property appVersion : "1.4"
property basePath : "/Library/Application Scripts/com.devon-technologies.think/Menu/Belegversand"
property configGroupName : "_config"
property configRecordName : "belegversand.conf"
property debugLogPath : "/tmp/DT-Belegversand-debug.log"
property windowTitle : "Belegversand, Vers. " & appVersion
property cfgConfigRecordUUID : missing value
property cfgMailToDefault : missing value
property cfgMailCcToDefault : missing value
@@ -505,19 +511,24 @@ on loadConfig()
end loadConfig
on runTemplateSelector()
set basePath to (do shell script "echo ~") & "/Library/Application Scripts/com.devon-technologies.think/Menu/Belegversand_1-4"
set basePath to (do shell script "echo ~") & basePath
set scriptPath to basePath & "/Helpers/show_mail_templates.scpt"
my writeDebug("Versuche Template-Script zu laden: " & scriptPath)
try
set loadedScript to load script (POSIX file scriptPath as alias)
my writeDebug("Template-Script geladen, starte jetzt...")
set templateResult to run loadedScript
my writeDebug("Template-Script fertig. Rueckgabe: '" & templateResult & "'")
set standaloneMode of loadedScript to false
-- DEBUG
-- display dialog "standaloneMode gesetzt auf: false" buttons {"OK"}
set templateResult to selectTemplate() of loadedScript
-- DEBUG
-- display dialog "templateResult: " & templateResult buttons {"OK"}
return templateResult
on error errMsg
my writeDebug("FEHLER in runTemplateSelector: " & errMsg)
display dialog "FEHLER: " & errMsg buttons {"OK"}
return ""
end try
end runTemplateSelector
@@ -838,7 +849,7 @@ on run
if (count of toSend) is 0 then error "Alle ausgewählten Belege sind bereits als versendet markiert und werden übersprungen."
set drChoice to button returned of (display dialog "Modus waehlen:" buttons {"Dry Run", "Senden (Entwurf erstellen)", "Abbrechen"} default button "Dry Run")
set drChoice to button returned of (display dialog windowTitle & return & return & "Modus waehlen:" buttons {"Dry Run", "Senden (Entwurf erstellen)", "Abbrechen"} default button "Dry Run")
if drChoice is "Abbrechen" then
my writeDebug("User hat Abbrechen geklickt")
@@ -867,7 +878,7 @@ on run
set previewPath to my writeDryRunPreviewFile(toSend, theTo)
set dryRunText to my dryRunSummaryText(toSend, previewPath)
set dryRunChoice to button returned of (display dialog dryRunText buttons {"OK", "Liste im Finder zeigen"} default button "OK")
set dryRunChoice to button returned of (display dialog windowTitle & return & return & dryRunText buttons {"OK", "Liste im Finder zeigen"} default button "OK")
if dryRunChoice is "Liste im Finder zeigen" then
my showDryRunPreviewInFinder(previewPath)
end if