Outlook und AutoIT

1. offizieller Beitrag

    Hallo. Ich bräuchte wieder eure Hilfe.

    Zu meinem Vorhaben:
    Man wählt die Personen, die eine gemeinsame Mail bekommen. Es sind die Azubis unserer Firma, die auch ab und zu die Abteilung wechseln.
    Wer das Script ausführt erkennt schnell, dass "Gruppen" vordefiniert sind, man aber die definierten Personen hinzufügen kann und auch wieder abwählen.
    Wenn man auf weiter klickt, soll in der Liste(Listbox) die Personen zur Übersicht nochmal ausgelistet werden.
    Dadrunter ist dann ein EditorFeld zum Eingeben der Mailnachricht.
    Dann senden, fertig. :thumbup:

    Das ist das Script soweit. Die Lösung nach meinem Wissensstand. Aber ich ahne eine massive Umstrukturierung, nach euren Antworten. :pinch:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("MustDeclareVars", 1)

    [/autoit] [autoit][/autoit] [autoit]

    Dim $Form1, $Group1, $Group2, $Radio1, $Radio2, $Radio3, $Checkbox4, $Checkbox5, $Checkbox6
    Dim $Checkbox7, $Checkbox8, $Checkbox9, $Checkbox10, $Checkbox11, $Checkbox12, $Checkbox13, $Checkbox14
    Dim $Checkbox15, $Checkbox16, $Checkbox17,$Checkbox18, $Checkbox19, $Checkbox20, $Button1, $Button2
    Dim $Button3, $Button4, $Checkbox1, $Checkbox2, $Checkbox3, $Pic1, $Edit1, $Button4, $List1, $ListInhalt
    Dim $Button5, $Button6, $nMsg

    [/autoit] [autoit][/autoit] [autoit]

    $Form1 = GUICreate("Automatischer Mailversand", 386, 546, 201, 134)
    GUISetBkColor(0xFFFFFF)

    [/autoit] [autoit][/autoit] [autoit]

    ;Kopf
    $List1 = GUICtrlCreateList("", 16, 128, 353, 40)
    GUICtrlSetState($List1, $GUI_HIDE)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group1 = GUICtrlCreateGroup(" Gruppenauswahl ", 16, 112, 353, 57)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Radio1 = GUICtrlCreateRadio("Vertrieb", 32, 136, 73, 17)
    $Radio2 = GUICtrlCreateRadio("Software", 160, 136, 73, 17)
    $Radio3 = GUICtrlCreateRadio("Technik", 286, 136, 73, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Pic1 = GUICtrlCreatePic("C:\Bild.jpg", 16, 12, 386, 92)

    [/autoit] [autoit][/autoit] [autoit]

    $Edit1 = GUICtrlCreateEdit("", 16, 176, 353, 300)
    GUICtrlSetState($Edit1, $GUI_HIDE)
    $Group2 = GUICtrlCreateGroup(" Zielpersonen ", 16, 176, 353, 361)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    ;linke Seite
    $Checkbox1 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 200, 120, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 224, 120, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 248, 120, 17)
    $Checkbox4 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 272, 120, 17)
    $Checkbox5 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 296, 120, 17)
    $Checkbox6 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 320, 120, 17)
    $Checkbox7 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 344, 120, 17)
    $Checkbox8 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 368, 120, 17)
    $Checkbox9 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 392, 120, 17)
    $Checkbox10 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 32, 416, 120, 17)
    ;rechte Seite
    $Checkbox11 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 208, 200, 120, 17)
    $Checkbox12 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 208, 224, 120, 17)
    $Checkbox13 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 208, 248, 120, 17)
    $Checkbox14 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 208, 272, 120, 17)
    $Checkbox15 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 208, 296, 120, 17)
    $Checkbox16 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 208, 320, 120, 17)
    $Checkbox17 = GUICtrlCreateCheckbox("Xxxxx Xxxxx", 208, 344, 120, 17)
    $Checkbox18 = GUICtrlCreateCheckbox("", 208, 368, 113, 17)
    GUICtrlSetState($Checkbox18, $GUI_DISABLE)
    $Checkbox19 = GUICtrlCreateCheckbox("", 208, 392, 113, 17)
    GUICtrlSetState($Checkbox19, $GUI_DISABLE)
    $Checkbox20 = GUICtrlCreateCheckbox("", 208, 416, 113, 17)
    GUICtrlSetState($Checkbox20, $GUI_DISABLE)
    ;Fussteil
    $Button1 = GUICtrlCreateButton("alle wählen", 32, 464, 100, 25, 0)
    GUICtrlSetCursor (-1, 0)
    $Button2 = GUICtrlCreateButton("alle abwählen", 32, 496, 100, 25, 0)
    GUICtrlSetCursor (-1, 0)
    $Button3 = GUICtrlCreateButton("weiter...", 280, 504, 73, 25, 0)
    GUICtrlSetCursor (-1, 0)
    $Button4 = GUICtrlCreateButton("senden...", 280, 504, 73, 25, 0)
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetState($Button4, $GUI_HIDE)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    $ListInhalt = 0

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

    [/autoit] [autoit][/autoit] [autoit]

    Case $Radio1
    ;linke Seite
    GUICtrlSetState($Checkbox1, $GUI_CHECKED)
    GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox3, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox4, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox5, $GUI_CHECKED)
    GUICtrlSetState($Checkbox6, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox7, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox8, $GUI_CHECKED)
    GUICtrlSetState($Checkbox9, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox10, $GUI_CHECKED)
    ;rechte Seite
    GUICtrlSetState($Checkbox11, $GUI_CHECKED)
    GUICtrlSetState($Checkbox12, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox13, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox14, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox15, $GUI_CHECKED)
    GUICtrlSetState($Checkbox16, $GUI_CHECKED)
    GUICtrlSetState($Checkbox17, $GUI_CHECKED)
    ;GUICtrlSetState($Checkbox18, $GUI_CHECKED)
    ;GUICtrlSetState($Checkbox19, $GUI_CHECKED)
    ;GUICtrlSetState($Checkbox20, $GUI_CHECKED)

    Case $Radio2
    ;linke Seite
    GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox3, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox4, $GUI_CHECKED)
    GUICtrlSetState($Checkbox5, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox6, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox7, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox8, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox9, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox10, $GUI_UNCHECKED)
    ;rechte Seite
    GUICtrlSetState($Checkbox11, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox12, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox13, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox14, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox15, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox16, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox17, $GUI_UNCHECKED)
    ;GUICtrlSetState($Checkbox18, $GUI_CHECKED)
    ;GUICtrlSetState($Checkbox19, $GUI_CHECKED)
    ;GUICtrlSetState($Checkbox20, $GUI_CHECKED)

    Case $Radio3
    ;linke Seite
    GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox2, $GUI_CHECKED)
    GUICtrlSetState($Checkbox3, $GUI_CHECKED)
    GUICtrlSetState($Checkbox4, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox5, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox6, $GUI_CHECKED)
    GUICtrlSetState($Checkbox7, $GUI_CHECKED)
    GUICtrlSetState($Checkbox8, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox9, $GUI_CHECKED)
    GUICtrlSetState($Checkbox10, $GUI_UNCHECKED)
    ;rechte Seite
    ;GUICtrlSetState($Checkbox11, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox12, $GUI_CHECKED)
    GUICtrlSetState($Checkbox13, $GUI_CHECKED)
    GUICtrlSetState($Checkbox14, $GUI_CHECKED)
    GUICtrlSetState($Checkbox15, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox16, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox17, $GUI_UNCHECKED)

    Case $Button1
    ;linke Seite
    GUICtrlSetState($Checkbox1, $GUI_CHECKED)
    GUICtrlSetState($Checkbox2, $GUI_CHECKED)
    GUICtrlSetState($Checkbox3, $GUI_CHECKED)
    GUICtrlSetState($Checkbox4, $GUI_CHECKED)
    GUICtrlSetState($Checkbox5, $GUI_CHECKED)
    GUICtrlSetState($Checkbox6, $GUI_CHECKED)
    GUICtrlSetState($Checkbox7, $GUI_CHECKED)
    GUICtrlSetState($Checkbox8, $GUI_CHECKED)
    GUICtrlSetState($Checkbox9, $GUI_CHECKED)
    GUICtrlSetState($Checkbox10, $GUI_CHECKED)
    ;rechte Seite
    GUICtrlSetState($Checkbox11, $GUI_CHECKED)
    GUICtrlSetState($Checkbox12, $GUI_CHECKED)
    GUICtrlSetState($Checkbox13, $GUI_CHECKED)
    GUICtrlSetState($Checkbox14, $GUI_CHECKED)
    GUICtrlSetState($Checkbox15, $GUI_CHECKED)
    GUICtrlSetState($Checkbox16, $GUI_CHECKED)
    GUICtrlSetState($Checkbox17, $GUI_CHECKED)
    ;GUICtrlSetState($Checkbox18, $GUI_CHECKED)
    ;GUICtrlSetState($Checkbox19, $GUI_CHECKED)
    ;GUICtrlSetState($Checkbox20, $GUI_CHECKED)
    Case $Button2
    GUICtrlSetState($Radio1, $GUI_UNCHECKED)
    GUICtrlSetState($Radio1, $GUI_UNCHECKED)
    GUICtrlSetState($Radio1, $GUI_UNCHECKED)
    ;linke Seite
    GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox3, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox4, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox5, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox6, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox7, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox8, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox9, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox10, $GUI_UNCHECKED)
    ;rechte Seite
    GUICtrlSetState($Checkbox11, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox12, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox13, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox14, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox15, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox16, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox17, $GUI_UNCHECKED)
    ;GUICtrlSetState($Checkbox18, $GUI_UNCHECKED)
    ;GUICtrlSetState($Checkbox19, $GUI_UNCHECKED)
    ;GUICtrlSetState($Checkbox20, $GUI_UNCHECKED)

    Case $Button3

    ;$msg = GUIGetMsg()

    GUICtrlSetState($Edit1, $GUI_SHOW)
    GUICtrlSetState($List1, $GUI_SHOW)

    GUICtrlSetState($Button4, $GUI_SHOW)
    GUICtrlSetState($Button3, $GUI_HIDE)

    GUICtrlSetState($Checkbox1, $GUI_HIDE)
    GUICtrlSetState($Checkbox2, $GUI_HIDE)
    GUICtrlSetState($Checkbox3, $GUI_HIDE)
    GUICtrlSetState($Checkbox4, $GUI_HIDE)
    GUICtrlSetState($Checkbox5, $GUI_HIDE)
    GUICtrlSetState($Checkbox6, $GUI_HIDE)
    GUICtrlSetState($Checkbox7, $GUI_HIDE)
    GUICtrlSetState($Checkbox8, $GUI_HIDE)
    GUICtrlSetState($Checkbox9, $GUI_HIDE)
    GUICtrlSetState($Checkbox10, $GUI_HIDE)
    GUICtrlSetState($Checkbox11, $GUI_HIDE)
    GUICtrlSetState($Checkbox12, $GUI_HIDE)
    GUICtrlSetState($Checkbox13, $GUI_HIDE)
    GUICtrlSetState($Checkbox14, $GUI_HIDE)
    GUICtrlSetState($Checkbox15, $GUI_HIDE)
    GUICtrlSetState($Checkbox16, $GUI_HIDE)
    GUICtrlSetState($Checkbox17, $GUI_HIDE)
    GUICtrlSetState($Checkbox18, $GUI_HIDE)
    GUICtrlSetState($Checkbox19, $GUI_HIDE)
    GUICtrlSetState($Checkbox20, $GUI_HIDE)
    GUICtrlSetState($Group1, $GUI_HIDE)
    GUICtrlSetState($Group2, $GUI_HIDE)
    GUICtrlSetState($Button1, $GUI_HIDE)
    GUICtrlSetState($Button2, $GUI_HIDE)
    GUICtrlSetState($Radio1, $GUI_HIDE)
    GUICtrlSetState($Radio2, $GUI_HIDE)
    GUICtrlSetState($Radio3, $GUI_HIDE)

    Case $Button4

    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit] [autoit][/autoit] [autoit]

    EndSwitch
    WEnd

    [/autoit]

    So und nun bin ich an einer Stelle, wo ich nicht weiter weiß.

    Ich habe im Internet Wissenswertes über Befehle, Funktionen usw. gefunden um Outlock anzusteuern. Aber in VBS.
    Kann ich dieses Befehle einfach in AutiIT verwenden, wahrscheinlich leich abgewandelt? Ein einfaches JA wäre mir am liebensten, aber so einfach ist das sicherlich nicht. ;(

    Spoiler anzeigen

    Das implizite Item-Objekt
    • Verweis auf das Element, in dessen Kontext
    das Skript abläuft
    – Item
    • Das Schlüsselwort Item kann immer auch
    weggelassen werden.

    Konstanten für die CreateItem-Methode
    • Nachricht
    – olMailItem
    • Öffentliche Nachricht
    – olPostItem
    • Termin
    – olAppointmentItem
    • Kontakt
    – olContactItem
    • Aufgabe
    – olTaskItem
    • Journaleintrag
    – olJournalItem
    • Notiz
    – olNoteItem

    Konstanten für die GetDefaultFolder-Methode
    • Posteingang
    – olFolderInbox
    • Postausgang
    – olFolderOutbox
    • Gesendete Objekte
    – olFolderSentMail
    • Gelöschte Objekte
    – olFolderDeletedItems
    • Entwürfe
    – olFolderDrafts
    • Kalender
    – olFolderCalendar
    • Aufgaben
    – olFolderTasks
    • Kontakte
    – olFolderContacts
    • Journal
    – olFolderJournal
    • Notizen
    – olFolderNotes

    Die AddressLists-Auflistung
    • Zurückgeben eines Adreßbuchs
    (AddressList-Objekt)
    – NameSpace.Adresslists(“Adreßbuch“)
    • Zugriff auf Adreßbucheinträge
    – AddressList.AddressEntries
    • Eintragen einer neuen Adresse
    – AdressList.Add(“Typ“, “Name“,
    “Adresse“).Update

    Das AddressEntry-Objekt Eigenschaften
    • Adresse
    – AddressEntry.Address
    • Name
    – AddressEntry.Name
    • Typ
    – AddressEntry.Type
    • Manager
    – AddressEntry.Manager

    Das AddressEntry-Objekt Methoden
    • Anzeigen der Details des
    Adreßbucheintrags
    – AddressEntry.Display
    • Ändern des Eintrags
    – AddressEntry.Update
    • Löschen des Eintrags
    – AddressEntry.Delete

    Allgemeine Eigenschaften von Item-Objekten
    • Verweis auf das Formular mit seinen Steuerelementen
    – Item.GetInspector
    • Betreff
    – Item.Subject
    • Nachrichtentext des Elements
    – Item.Body
    – Item.HTMLBody
    • Empfänger des Elements
    – Item.Recipients
    • Absender des Elements
    – Item.Sendername

    Recipients-Auflistung und Recipient-Objekt
    • Hinzufügen von Empfängern
    – Recipients.Add(“Name“)
    • Löschen von Empfängern
    – Recipient.Delete

    Die genannten Personen gibt es auch in dem Adressbuch. Immer in diesem Muster: Vorname.Nachname@Firma.com

    Ich bin ratlos und weiß nicht weiter. Ich hoffe, ihr könnt meinen Steine antreten, dass ich ihn wieder ins Rollen bekommen.
    Vielen Dank im Voraus.

    Xethria


    Edit BugFix:
    Ich habe die persönlichen Daten mal ausgeixt. Bitte auf sowas achten, sonst werden Freunde und Bekannte schnell zu Feinden. :huh:

    [Edit von Xethria:]
    ... Wollts auch gerade machen.. Möpp. Danke! Merk ich mir.

    7 Mal editiert, zuletzt von Xethria (5. Januar 2009 um 19:47)

    Hallo Lina (oder doch Kerstin ?( )
    zuerst einmal sollte man keine privaten Daten einfach so ins Netz stellen auch wenns in dem Fall "bloß" deine Kollegen sind.

    Und jetzt zu deiner Frage willst du die Leute aus dem Adressbuch raussuchen ? Halte ich nicht für sinnvoll.

    Ändern solltest du:
    -Namen und deren Zuordnung zu den einzelnen Abteilungen/Gruppen als Array zum Beispiel im Format: Vorname|Name|Abteilung
    -die Erstellung der einzelnen Checkboxen sollte man als Schelife lösen
    -die Änderung in Abhängigkeit von der ausgewählten Gruppe sollte man als Schelife lösen
    -die Auswertung wer alles ausgewählt wurde sollte man als Schleife lösen

    Damit sparst du ca. 150 Zeilen Code ein und etwas schneller läuft es vielleicht auch.

    Und wenn du das umgesetzt hast brauchst du beim Klick auf weiter (oder auch erst beim Klick auf Senden) nur noch zu den ausgewählten Leuten die E-Mail-Adressen zusammensetzen (auch als Schleife) und die Adressen+den Text den du schicken willst, in Oulook einfügen lassen und abschicken.

    :D Lina!
    Ich editier das mal.

    Also das mit den Schleifen muss ich noch schaun, ob ich das hinbekomme. Werds aber versuchen.
    Und mit deinen letzten sätzen hast du mit deinen Worten genau das gesagt, was ich gefragt habt. ;) Sprich, wiederholt.
    Ich weiß, dass ich es senden möchte und das in Outlook, aber wie übergebe ich es dem Programm?

    Ich möchte jetzt nicht mit Mausklicks und Mausbewegungen arbeiten. Ich dachte, ich könnt es direkt ansprechen, da es ja mit VBS ja schon geht.

    Vielen Dank für die Antwort, dann setz ich mich mal an die Schleifen... ich mag keine Schleifen... 8|

    Einfach ne neue E-Mail aufmachen lassen und da mit ControlSend() oder Send() die E-Mai-Adressen und Text reinfügen sollte nicht das Problem sein. Oder wolltest du das groß anders machen ?
    Alternativ gibts bestimmt auch schon fertige UDFs für den Versand von E-Mails, damit könntest du dir Outlook komplett sparen und hättest eine wesentlich elegantere Lösung.

    2 Mal editiert, zuletzt von mehrsolala (5. Januar 2009 um 21:18)

    Hab mal ne Schleife gebaut damit du mal ein Vorbild hast (die erste ist bloß damit ich Namen habe)

    [autoit]

    ;NUR ZUM TESTEN
    dim $Kollegaehn[20][3]
    For $i = 0 to 19 Step 1
    Switch $i
    Case 0 To 6
    $Kollegaehn[$i][0] = 'Horst';Vorname
    $Kollegaehn[$i][1] = 'Schlaemmerhofer';Nachname
    $Kollegaehn[$i][2] = 1 ; Gruppe
    Case 7 To 12
    $Kollegaehn[$i][0] = 'Gina'
    $Kollegaehn[$i][1] = 'Wild'
    $Kollegaehn[$i][2] = 2
    Case 13 To 16
    $Kollegaehn[$i][0] = 'Mary'
    $Kollegaehn[$i][1] = 'Westmacott'
    $Kollegaehn[$i][2] = 3
    Case 17 To 19

    Case Else
    MsgBox(64, "U Failed", "$i was not 0-19")
    EndSwitch
    Next

    Dim $Checkboxes[20], $top
    For $i = 0 to 19 Step 1
    Switch $i
    Case 0 To 9
    $top = 200 + ($i*24)
    $Checkboxes[$i] = GUICtrlCreateCheckbox($Kollegaehn[$i][0] &' '& $Kollegaehn[$i][1], 32, $top, 120, 17)
    Case 10 To 16
    $top = 200 + (($i-10)*24)
    $Checkboxes[$i] = GUICtrlCreateCheckbox($Kollegaehn[$i][0] &' '& $Kollegaehn[$i][1], 208, $top, 120, 17)
    Case 17 To 19
    $top = 200 + (($i-10)*24)
    $Checkboxes[$i] = GUICtrlCreateCheckbox($Kollegaehn[$i][0] &' '& $Kollegaehn[$i][1], 208, $top, 120, 17)
    GUICtrlSetState($Checkboxes[$i], $GUI_DISABLE)
    Case Else
    MsgBox(64, "U Failed", "$i was not 0-19")
    EndSwitch
    Next

    [/autoit]