- Offizieller Beitrag
So! dann fang ich mal an
Das 1. ist kein richtiges installscript aber so änlich^^
damit kann man nämlich sein Outlook fach einrichten! hab es aber nur mit Outlook2003 ausprobiert..
C
; Autor: Max R.(GtaSpider)
; email konto ersteller
TrayTip("Outlook 2003", "Outlook wird Konfiguriert. Bitte warten...", 2000)
$GMX = 0
;Include für die GUI
#include <GuiConstants.au3>
;Erstellt GUI
GuiCreate("MyGUI", 310, 330,(@DesktopWidth-310)/2, (@DesktopHeight-310)/2 )
$EMail1 = GuiCtrlCreateInput("", 90, 120, 200, 20)
$Kund = GuiCtrlCreateInput("", 90, 150, 200, 20)
$passwort = GuiCtrlCreateInput("", 90, 180, 200, 20,$ES_PASSWORD)
$POP3 = GuiCtrlCreateInput("", 90, 210, 200, 20)
$SMTP = GuiCtrlCreateInput("", 90, 240, 200, 20)
$ProvWEB = GuiCtrlCreateRadio("Bin bei WEB", 20, 40, 100, 20)
$ProvGMX = GuiCtrlCreateRadio("Bin bei GMX", 120, 40, 100, 20)
$ProvTOnline = GuiCtrlCreateRadio("Bin Bei T-Online", 20, 60, 100, 20)
$ProvAnoth = GuiCtrlCreateRadio("Bin bei einem Anderen Provider", 120, 60, 170, 20)
GUICtrlSetState(-1,$Gui_CHECKED)
GuiCtrlCreateGroup("Provider", 10, 20, 290, 70)
GuiCtrlCreateGroup("Eintragen", 10, 100, 290, 170)
GuiCtrlCreateLabel("E-Mail Adr.", 20, 120, 70, 20)
GuiCtrlCreateLabel("Kunden Nr.", 20, 150, 70, 20)
GuiCtrlCreateLabel("Passwort", 20, 180, 70, 20)
GuiCtrlCreateLabel("POP3", 20, 210, 70, 20)
GuiCtrlCreateLabel("SMTP", 20, 240, 70, 20)
$wei = GUICtrlCreateButton("&Weiter >",100,280,200,40)
$x = GUICtrlCreateButton("&X Exit",10,280,90,40)
GuiSetState()
;Main Schleife
While 1
$msg = GuiGetMsg();GUI Status
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $x;Wenn auf Schließen oder auf den Butten $x gedrückt wird...
ExitLoop;.. geht er aus der Schleife!
Case $msg = $ProvAnoth; Ein Anderen Provider
$GMX = 0
GUICtrlSetData($POP3,"")
GUICtrlSetData($SMTP,"")
GUICtrlSetState($Kund,$GUI_ENABLE)
GUICtrlSetState($POP3,$GUI_ENABLE)
GUICtrlSetState($SMTP,$GUI_ENABLE)
Case $msg = $ProvTOnline;T-Online Provider
$GMX = 0
GUICtrlSetData($POP3,"pop3.t-online.de")
GUICtrlSetData($SMTP,"mailto.t-online.de")
GUICtrlSetState($Kund,$GUI_DISABLE)
GUICtrlSetState($POP3,$GUI_DISABLE)
GUICtrlSetState($SMTP,$GUI_DISABLE)
Case $msg = $ProvGMX;GMX Provider
$GMX = 1
GUICtrlSetData($POP3,"pop.gmx.net")
GUICtrlSetData($SMTP,"mail.gmx.net")
GUICtrlSetState($Kund,$GUI_ENABLE)
GUICtrlSetState($POP3,$GUI_DISABLE)
GUICtrlSetState($SMTP,$GUI_DISABLE)
Case $msg = $ProvWEB;WEB Provider
$GMX = 0
GUICtrlSetData($POP3,"pop3.web.de")
GUICtrlSetData($SMTP,"smtp.web.de")
GUICtrlSetState($Kund,$GUI_DISABLE)
GUICtrlSetState($POP3,$GUI_DISABLE)
GUICtrlSetState($SMTP,$GUI_DISABLE)
Case $msg = $wei;Wenn man auf Weiter klickt
; Informationen werden aus der GUI Rausgelesen!
$EMail = GUICtrlRead($EMail1)
$name = StringSplit($EMail,"@")
If @error Then
MsgBox(16,"","Keine Gültige E-Mail")
ContinueLoop
EndIf
$name = $name[1]
$passwort = GUICtrlRead($passwort)
$POP3 = GUICtrlRead($POP3)
$SMTP = GUICtrlRead($SMTP)
Opt("WintitleMatchmode",2);Erweiterter Titel Mod!
$path = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Outlook\InstallRoot","Path");Der Installpath von Outlook 11.0(2003)
If @error Then
MsgBox(16,"","Sie haben Mircosoft Office 11 nicht installiert!");Wenn der RegEintrag nicht existiert
Exit
EndIf
;Startet Outlook
Run($path&"\Outlook.exe")
;Wartet auf das Fenster "Outlook"
WinWait("Outlook")
;Sendet Alt X M
Send("{ALT}xM")
Send("e")
Send("w")
;Wartet auf das Fenser "E-Mail-Konten"
WinWait("E-Mail-Konten","Es wird eine Verbindung zu einem Exchange Server hergestellt, um E-Mail zu lesen, auf Öffentliche Ordner zuzugreifen und Dokumente freizugeben.")
;Clickt auf Weiter
ControlClick("E-Mail-Konten","",441)
Send("w")
;Wartet auf das fenster "E-Mail-Konten"
WinWait("E-Mail-Konten","Benutzerinformationen")
;Sendet die aus der GUI rausgelesenen Informationen
Send($name&"{TAB}"&$EMail&"{TAB}"&$POP3&"{TAB}"&$SMTP&"{TAB}"&$EMail&"{TAB}"&$passwort)
If $GMX = 1 Then;Wenn GMX als Provider genommen wurde
ControlClick("E-Mail-Konten","",354)
WinWait("Internet-E-Mail-Einstellungen")
ControlCommand("Internet-E-Mail-Einstellungen", "", "SysTabControl321", "TabRight", "")
ControlClick("Internet-E-Mail-Einstellungen","",265)
ControlClick("Internet-E-Mail-Einstellungen","",267)
ControlSetText("Internet-E-Mail-Einstellungen","",231,GUICtrlRead($Kund))
ControlSetText("Internet-E-Mail-Einstellungen","",270,$passwort)
ControlClick("Internet-E-Mail-Einstellungen","",1)
EndIf
Send("w")
WinWait("E-Mail-Konten","Kontoeinrichtung abgeschlossen!")
ControlClick("E-Mail-Konten","",12325)
MsgBox(0,"Post.strato","Herzlich willkommen bei Strato, "&$name&"! Wir wünschen ihnen viel spaß")
TrayTip("Outlook 2003", "Erfolgreich!", 10)
ExitLoop
EndSelect
WEnd
Exit
Alles anzeigen