Hallo Leute,
ist es möglich folgendes zu erreichen:
Wenn sich im Taskmanager unter Anwendungen der Task "eKlimax - Kunde:xxxxxxx" steht und Status "Keine Rückmeldung" auf "Wird ausgeführt" ändert, eine MsgBox erscheint: "FERTIG".
Hinter dem Kunde die xxxxxx da könnte von Kunden zu Kunde anders sein, aber am Amfang steht es immer eKlimax - Kunde
Besten Dank im Voraus!
Viele Grüße,
Dino
Hallo Leute,
mit diesen Codeabschnitt bekomme ich MsgBox, falls das Programm bereits installiert ist, um zu entscheiden, ob dieser deinstalliert werden soll und danach neu installiert (neue Version) werden.
[autoit];~ Schritt 1: Prüfen, ob der angemeldete User Admin auf dem Rechner ist. Wenn ja, dann Sprung zum Schritt 2.
;~ Wenn nicht die MsgBox ausgeben: Sie müssen Administrator sein um dieses Programm fortzusetzen!. Dann der Abbruch der Installation.
If Not IsAdmin() Then Exit MsgBox(64, "Kein Recht!", "Sie müssen Administrator sein um dieses Programm fortzusetzen!")
;~ Schritt 2: Wenn der User Admin Rechte hat, prüfen ob ob der Zeichencode von MicroStation V8i in Registry vorhanden ist
Local $RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{57F5CC1D-2E00-4008-8CEC-EFE61B2E58AE}"
Local $IsInstalled = RegRead($RegKey, "DisplayName")
;~ a) Wenn dieses Zeichencode in der Registry nicht vorhanden ist, dann die Installation des Programms starten.
If $IsInstalled = "" Then
Installieren()
;~ b) Wenn der Zeichencode in der Registry vorhanden ist, dann die MsgBox ausgeben: Das Programm ist bereits installiert. Soll es neuinsalliert werden? JA / NEIN
Else
If MsgBox(36, "Neuinstallation?", "Das Programm ist bereits installiert. Soll es neuinsalliert werden?") = 6 Then
;~ Wenn JA, dann diesen UninstallString ausführen.
RunWait('msiexec /x {57F5CC1D-2E00-4008-8CEC-EFE61B2E58AE} /qn /norestart')
DirRemove(@ProgramFilesDir & $InstallDir , 1)
;~ Und nach der Deinstallation, die Installation des Programms starten.
Installieren()
Else
;~ Wenn NEIN, dann die MsgBox ausgeben: "Abbruch der Installation"
MsgBox(64, "Abbruch!", "Abbruch der Installation")
EndIf
EndIf
Das funktioniert prima.
Jetzt habe ich einige Computer, wo evtl. noch eine vorherige Version installiert ist.
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9098507F-E0EA-4904-9C56-14DCD222C15D}"
Was muss ich im Code ändern, damit die beiden Versionen geprüft werden, ob diese installiert sind. Beide sollen deinstalliert werden, bevor die Funktion "Installieren" gestartet wird.
Ich habe es so probiert, leider ohne Erfolg:
;~ Schritt 1: Prüfen, ob der angemeldete User Admin auf dem Rechner ist. Wenn ja, dann Sprung zum Schritt 2.
;~ Wenn nicht die MsgBox ausgeben: Sie müssen Administrator sein um dieses Programm fortzusetzen!. Dann der Abbruch der Installation.
If Not IsAdmin() Then Exit MsgBox(64, "Kein Recht!", "Sie müssen Administrator sein um dieses Programm fortzusetzen!")
;~ Schritt 2: Wenn der User Admin Rechte hat, prüfen ob ob der Zeichencode von MicroStation V8i in Registry vorhanden ist
Local $RegKey1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{57F5CC1D-2E00-4008-8CEC-EFE61B2E58AE}"
Local $RegKey2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9098507F-E0EA-4904-9C56-14DCD222C15D}"
Local $IsInstalled1 = RegRead($RegKey1, "DisplayName")
Local $IsInstalled2 = RegRead($RegKey2, "DisplayName")
;~ a) Wenn dieses Zeichencode in der Registry nicht vorhanden ist, dann die Installation des Programms starten.
If $IsInstalled1 = "" or $IsInstalled2 = "" Then
Installieren()
;~ b) Wenn der Zeichencode in der Registry vorhanden ist, dann die MsgBox ausgeben: Das Programm ist bereits installiert. Soll es neuinsalliert werden? JA / NEIN
Else
If MsgBox(36, "Neuinstallation?", "Das Programm ist bereits installiert. Soll es neuinsalliert werden?") = 6 Then
;~ Wenn JA, dann diesen UninstallString ausführen.
RunWait('msiexec /x {57F5CC1D-2E00-4008-8CEC-EFE61B2E58AE} /qn /norestart')
RunWait('msiexec /x {9098507F-E0EA-4904-9C56-14DCD222C15D} /qn /norestart')
DirRemove(@ProgramFilesDir & $InstallDir , 1)
;~ Und nach der Deinstallation, die Installation des Programms starten.
Installieren()
Else
;~ Wenn NEIN, dann die MsgBox ausgeben: "Abbruch der Installation"
MsgBox(64, "Abbruch!", "Abbruch der Installation")
EndIf
EndIf
Besten Dank im Voraus!
Viele Grüße,
Dino
Hallo Leute,
ich habe in einer INI-Datei die Computernamen eingetragen.
[Computer]
Andrea=05PC1921
Thomas=05PC1985
Nicole=05PC1854
Folgendes möchte ich erreichen:
Unter C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\CAD-Updater.lnk
soll die Verknüpfung "CAD-Updater.lnk" gelöscht werden. Danach soll die Verknüpfung von G:\Server\CAD-Updater.lnk dahin kopiert werden.
Vorher abfragen, ob der Nutzer, der das Script ausführt, administrative Rechte hat.
Wenn der Computer aus ist, überspringen und zu nächsten Computer springen.
In ScriptDir eine LOG-Datei erstellen, in der es drin steht, wo es geklappt hat und wo nicht (keine Adminrechte oder PC nicht eingeschaltet).
Ist dies möglich, falls ja, wie mache ich das?
Besten Dank im Voraus!
Viele Grüße,
Dino
Funktioniert 
Danke Stefan 
#include <file.au3>
$start = "G:\ustation_admin_XM\user_config"
;lies Verzeichnisse in Array
$arfolder = _FileListToArray ($start, "*", 2)
;Schleife über Array
For $i = 1 To $arfolder [0]
FileCreateShortcut("C:\Programme\MicroStationXM\MicroStation\ustation.exe","G:\ustation_admin_XM\user_profil\" & "MicroStation XM " & $arfolder [$i] & ".lnk","C:\Programme\MicroStationXM\MicroStation\", "-wu" & $arfolder [$i], "Userprofil", "C:\Programme\MicroStationXM\MicroStation\ustation.exe", "", "", @SW_MINIMIZE)
Next
Hallo Leute,
ich möchte ca. 50 Verknüpfungen via AutoIT anlegen.
file: C:\Programme\MicroStationXM\MicroStation\ustation.exe
lnk: G:\ustation_admin_XM\user_profil\ + MicroStation XM + Leerzeichen + Ordnername
workdir: C:\Programme\MicroStationXM\MicroStation
args: -wu + Ordnername
desc: Userprofil
icon: C:\Programme\MicroStationXM\MicroStation\ustation.exe
Ordnername = Im Pfad G:\ustation_admin_XM\user_config habe ich ca. 50 Ordner
So funktioniert es mit einem Verknüpfung:
[autoit]FileCreateShortcut("C:\Programme\MicroStationXM\MicroStation\ustation.exe","G:\ustation_admin_XM\user_profil\" & "MicroStation XM Dino.lnk","C:\Programme\MicroStationXM\MicroStation\","-wuDino", "Userprofil", "C:\Programme\MicroStationXM\MicroStation\ustation.exe", "", "", @SW_MINIMIZE)
[/autoit]Wie mache ich das bitte ?
Besten Dank im Voraus.
Viele Grüße,
Dino
Vielen Dank an Alle 
Hallo BugFix,
die Datei kann auch geschlossen sein.
Zwei Mal Enter, weil ich Inhalte verschiedener Artikel kopiere. Die TXT-Datei importiere ich hinterher im Excel, dann kann ich besser sehen bis wohin geht welcher Artikel. Einfach wegen Übersichtlichkeit.
Dein Ansatz werde ich testen.
VG,
Dino
Klasse
jetzt weiß nicht, ob es die Möglichkeit gibt, nachdem Einfügen imemer zwei Mal Enter zu drücken, damit ich es als Abschnitte sehe.
Oscar ist nicht online, vielleicht habt ihr die Idee 
Besten Dank!
Hallo Leute,
ich habe eine TXT-Datei unter C:\Tools\Zwischenablage.txt gespeichert und geöffnet.
Gibt es die Möglichkeit mit AutoIT die Zwischenablage zu überwachen und folgendes zu machen:
1. Nur wenn die Datei C:\Tools\Zwischenablage.txt geöffnet ist, die Inhalte der Zwischenablage in die txt-Datei (ohne diese im Vodergrund zu bringen) einzufügen.
2. Nach dem Einfügen zwei Mal (Enter - Return) und weiter die Zwischenablage überwachen....
Besten Dank im Voraus!
Viele Grüße,
Dino
1 und 3 sind OK
zu 2: ERROR: _ArraySort(): undefined function.
_ArraySort($section, 0, 0, 0, 0)
Gesamtcode:
#include <GUIConstantsEx.au3>
#include <Inet.au3>
Global $section, $combodata
$section = IniReadSection("Email.ini", "Emails")
Dim $Checkbox[$Section[0][0]+1]
_ArraySort($section, 0, 0, 0, 0)
$Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*20+290)
For $i = 1 To $Section[0][0]
$Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*20, 190, 25)
Next
$label1 = GUICtrlCreateLabel("_________________________________________________________________", 5, (Mod($section[0][0], 2) +Round($i/2) - 1)*20 +4, 390, 25)
$label2 = GUICtrlCreateLabel("Betreff:", 5, 18 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 35 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetBkColor(-1, 0xFFFFE1)
$label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 78 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 100)
GUICtrlSetBkColor(-1, 0xFFFFE1)
$label3 = GUICtrlCreateLabel("Empfänger:", 5, 213 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 5, 230 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Button1 = GUICtrlCreateButton("Standards speichern", 5, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 150, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("ini öffnen", 170, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 90, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Email senden", 275, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 120, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xC0DCC0)
GUISetState(@SW_SHOW)
;~ $Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*20+280)
;~ For $i = 1 To $Section[0][0]
;~ $Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*20, 190, 25)
;~ Next
;~ $label2 = GUICtrlCreateLabel("Betreff:", 5, 20 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
;~ GUICtrlSetColor(-1, 0x1B79D9)
;~ $Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 40 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
;~ $label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 75 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
;~ GUICtrlSetColor(-1, 0x1B79D9)
;~ $Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 100)
;~ $label3 = GUICtrlCreateLabel("Empfänger:", 5, 205 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
;~ GUICtrlSetColor(-1, 0x1B79D9)
;~ $Input2 = GUICtrlCreateInput("", 5, 220 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
;~ $Button1 = GUICtrlCreateButton("Standards speichern", 5, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
;~ $Button2 = GUICtrlCreateButton("Email senden", 135, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 130, 25)
;~ $Button3 = GUICtrlCreateButton("ini öffnen", 270, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
;~ GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox[1] To $Checkbox[$Section[0][0]]
$emails = ""
For $i = 1 To $Section[0][0]
If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
$emails &= $Section[$i][1] & "; "
EndIf
Next
Guictrlsetdata($Input2, $emails)
Case $Button1
IniWrite("Email.ini", "Standards", "Betreff", GUICtrlRead($Input1))
IniWrite("Email.ini", "Standards", "Nachricht", StringReplace(GUICtrlRead($Edit1), @CRLF, " |@CRLF| "))
Case $Button2
_INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1))
WinWaitActive("[CLASS:rctrl_renwnd32]")
Send("^{End}")
Send("{ALTDOWN}h{ALTUP}s")
WinActive("classname=Net UI Tool Window","")
Send("{ENTER}")
sleep(500)
Send("!s")
Case $Button3
Shellexecute(@ScriptDir & "\Email.ini")
EndSwitch
WEnd
*g* bald haben wir echt nen email client zusammen
1. Ich habe die Abstandsgröße geändert, aber oberhalb des $label1 sind jetzt mindestens 5cm freien Platz. Ich habe 5 + (Round($i/2) - 1)*30 in 5 + (Round($i/2) - 1)*20 ersetzt. Richtig?
2. wo genau muss ich _ArraySort einfügen?
3. Ich habe noch ein Button3 eingefügt, und damit die Email.ini zu öffnen. Fehlt mir der Aufruf der Email.ini Datei.
Noch diese drei Punkte und dann sind wir fertig mit ESC (E-Mail-Schnitzel-Client) 
Aktuelle Datei:
#include <GUIConstantsEx.au3>
#include <Inet.au3>
Global $section, $combodata
$section = IniReadSection("Email.ini", "Emails")
Dim $Checkbox[$Section[0][0]+1]
$Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*30+290)
For $i = 1 To $Section[0][0]
$Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*20, 190, 25)
Next
$label1 = GUICtrlCreateLabel("_________________________________________________________________", 5, (Mod($section[0][0], 2) +Round($i/2) - 1)*30 - 5, 390, 25)
$label2 = GUICtrlCreateLabel("Betreff:", 5, 18 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 35 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetBkColor(-1, 0xFFFFE1)
$label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 78 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 100)
GUICtrlSetBkColor(-1, 0xFFFFE1)
$label3 = GUICtrlCreateLabel("Empfänger:", 5, 213 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 5, 230 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Button1 = GUICtrlCreateButton("Standards speichern", 5, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 150, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("e-Mail.ini", 170, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 90, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Email senden", 275, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 120, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xC0DCC0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox[1] To $Checkbox[$Section[0][0]]
$emails = ""
For $i = 1 To $Section[0][0]
If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
$emails &= $Section[$i][1] & "; "
EndIf
Next
Guictrlsetdata($Input2, $emails)
Case $Button1
IniWrite("Email.ini", "Standards", "Betreff", GUICtrlRead($Input1))
IniWrite("Email.ini", "Standards", "Nachricht", StringReplace(GUICtrlRead($Edit1), @CRLF, " |@CRLF| "))
Case $Button2
_INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1))
WinWaitActive("[CLASS:rctrl_renwnd32]")
Send("^{End}")
Send("{ALTDOWN}h{ALTUP}s")
WinActive("classname=Net UI Tool Window","")
Send("{ENTER}")
sleep(500)
Send("!s")
EndSwitch
WEnd
VG,
Dino
Hallo Schnitzel jetzt passt es
zwei Fragen noch:
1. Wenn der Abstand zwischen angezeigten e-Mail Adresssen kleiner werden soll (*20), wo muss ich dies alles anpassen damit bei neuhinzufügten e-Mails sich die Fenstergröße weiterhin automatisch anpasst?
2. Lassen sich die Namen (die aus Email.ini gelesen werden) in GUI automatisch alphabetisch anzeigen?
Besten Dank!
Viele Grüße,
Dino
Hallo Schnitzel,
in Outlook 2007 lässt sich die Signatur mit tastenkombination ALT+H+S+Enter. Durchs ausprobieren gefunden 
Die Signatur wird aber vor dem Text aus Edit1 eingefügt und nicht am Ende.
Wie springt man zu Ende, nachdem der Nachrichtentext in der e-Mail eingefügt ist, damit dann die Signatur eingefügt werden kann?
#include <GUIConstantsEx.au3>
#include <Inet.au3>
Global $section, $combodata
$section = IniReadSection("Email.ini", "Emails")
Dim $Checkbox[$Section[0][0]+1]
$Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*30+290)
For $i = 1 To $Section[0][0]
$Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*30, 190, 25)
Next
$label1 = GUICtrlCreateLabel("_________________________________________________________________", 5, (Mod($section[0][0], 2) +Round($i/2) - 1)*30 - 5, 390, 25)
$label2 = GUICtrlCreateLabel("Betreff:", 5, 20 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 35 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
$label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 80 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 100)
$label3 = GUICtrlCreateLabel("Empfänger:", 5, 215 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input2 = GUICtrlCreateInput("", 5, 230 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
$Button1 = GUICtrlCreateButton("Standards speichern", 5, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 190, 25)
$Button2 = GUICtrlCreateButton("Email senden", 205, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 190, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox[1] To $Checkbox[$Section[0][0]]
$emails = ""
For $i = 1 To $Section[0][0]
If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
$emails &= $Section[$i][1] & "; "
EndIf
Next
Guictrlsetdata($Input2, $emails)
Case $Button1
IniWrite("Email.ini", "Standards", "Betreff", GUICtrlRead($Input1))
IniWrite("Email.ini", "Standards", "Nachricht", StringReplace(GUICtrlRead($Edit1), @CRLF, " |@CRLF| "))
Case $Button2
_INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1) & @CRLF & @CRLF)
WinWaitActive("[CLASS:rctrl_renwnd32]")
Send("{ALTDOWN}h{ALTUP}s")
WinActive("classname=Net UI Tool Window","")
Send("{ENTER}")
EndSwitch
WEnd
VG,
Dino
Aud Netzwerkordner auch getestet und alles
besten Dank
Hallo Schnitzel,
ich habe nur eine Signatur und diese heißt "usr".
Bei mir wird diese nicht eingefügt. Ich habe Outllok 2007. Ist evtl. der Shortcut anders?
VG,
Dino
es war mein fehler, der pfad war falsch
Lokal funktioniert es, werde es morgen (heute) auf dem Server testen...
Hallo BugFix,
keine Datei wurde schreibgeschützt 
Hallo BugFix,
es sind doch nicht die Dateien schreibgeschützt. Die Dateien, die ich geprüft habe, waren vorher schon "zu Fuß" auf Schreibschutz gesetzt.
Es werden nur die Ordner schreibgeschützt.
Lösung ?
Vg,
Dino
