Code: Select all
#SingleInstance, force
FileSelectFile, currentfile,,%A_Desktop%, Datei auswählen..., *.ps5
if (currentfile = "")
{
SoundPlay, *16
MsgBox, 16, Fehler!,Sie haben keine Datei ausgewählt.
return
}
Loop, %currentfile%
currentpath := A_LoopFileDir
InputBox, ausbuchen_name, PS4000 Ablage, Für wen wird die Sicherung ausgebucht?,,,150
if ausbuchen_name =
MsgBox,, Fehler!, Sie haben keinen Namen angegeben, bitte erneut versuchen.
else
{
FileDelete, %currentPath%\*übergeben*.ps5
FormatTime, CurrentDateTime,, yyyy-MM-dd_HH-mm
FileAppend, , %currentPath%\%CurrentDateTime% ACHTUNG! Projekt übergeben an %ausbuchen_name%.ps5
if ErrorLevel
MsgBox,, Fehler!, Achtung, es wurde keine Datei erzeugt!
else
{
SplashTextOn,,25, Status, Datei wurde erzeugt.
Sleep, 750
SplashTextOff
Run, OUTLOOK.EXE /c ipm.note /a %currentfile%
Gui, Destroy
}
currentfile :=""
currentPath :=""
ausbuchen_name :=""
}
return
Code: Select all
#SingleInstance, force
currentfile = C:\Users\%A_UserName%\Desktop\test.txt
Run, OUTLOOK.EXE /c ipm.note /a %currentfile%