Outlook2003 Konto erstellen

**GtaSpider**

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