HI @all,
ich hab mal aus lw ein kleines Script geschrieben, das eine E-Mail-Sigantur erstellt.
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#NoTrayIcon
$Form1 = GUICreate("E-Mail Signaturersteller", 562, 418, 192, 124)
$Combo1 = GUICtrlCreateCombo("", 8, 80, 241, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$Label1 = GUICtrlCreateLabel("Signaturersteller", 8, 8, 181, 31)
GUICtrlSetFont(-1, 18, 400, 0, "Arial")
$Label2 = GUICtrlCreateLabel("Ihr Gruß", 8, 56, 58, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("Ihr Name", 8, 120, 66, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("", 8, 144, 241, 21)
$Label4 = GUICtrlCreateLabel("Sonstiges (Adresse, Telefon, etc.)", 8, 184, 239, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Edit1 = GUICtrlCreateEdit("", 8, 208, 241, 121, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Signatur erstellen", 8, 368, 243, 41, $WS_GROUP)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Checkbox1 = GUICtrlCreateCheckbox("Als Textdatei speichern", 8, 344, 225, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Edit2 = GUICtrlCreateEdit("", 272, 80, 273, 209, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
$Label5 = GUICtrlCreateLabel("Ihre Signatur", 272, 56, 91, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Button2 = GUICtrlCreateButton("Kopieren", 440, 296, 107, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
GUICtrlSetState($Button2,$GUI_DISABLE)
GUICtrlSetData($Combo1,"Mit freundlichen Grüßen|Viele Grüße|Liebe Grüße","Mit freundlichen Grüßen")
GUICtrlSetData($Input1,@UserName)
While 1
[/autoit] [autoit][/autoit] [autoit]$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Edit2, "")
$Name = GUICtrlRead($Input1)
$Adresse = GUICtrlRead($Edit1)
$Gruss = GUICtrlRead($Combo1)
$file = FileOpen(@TempDir & "sig.txt", 2)
FileWriteLine($file, $Gruss)
FileWriteLine($file, $Name)
FileWriteLine($file, "")
FileWriteLine($file, $Adresse)
FileWriteLine($file, "----------------------------------------------------------")
$inhalt = FileRead(@TempDir & "sig.txt")
_GUICtrlEdit_AppendText($Edit2, $inhalt)
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
$pfad = FileSaveDialog("Signatur abspeichern", @DesktopDir, "Textdateien (*.txt)", 2, "E-Mail Signatur.txt")
$txtfile = _GUICtrlEdit_GetText($Edit2)
If FileExists($pfad) Then FileDelete($pfad)
FileWrite($pfad, $txtfile)
EndIf
GUICtrlSetState($Button2,$GUI_ENABLE)
Case $Button2
ClipPut($inhalt)
EndSwitch
WEnd
Bin offen für Rückmeldungen aller Art., aber nicht vergessen: Anfänger
EDIT:
Frohe Ostern