Outlook Personen aufrufen und Felder Aktiviren

Muecke

Oh ok, danke. da sist perfekt.

ich habe noch etwas herum experimentiert.

und habe das jetzt etwas umgeschrieben. Hoffentlich stimmt das was ich da gemacht habe.

AutoIt

; Outlook starten
	run("C:\Program Files\Microsoft Office 15\root\office15\OUTLOOK.EXE")
; 5 Sekunden warten
	Sleep (5000)
; Debug zeile
	MsgBox(1,"Titel","Outlook ist hoffenldich OFFEN" & @CRLF _
	               & "Bitte zu den personen Navigiren und"  & @CRLF _
				   & "die Person Herr Vorname_TEST Nachname_TEST"& @CRLF _
				   & "aufrufen"& @CRLF & "erst danach OK drücken !")


	ControlClick("Vorname_TEST Nachname_TEST - Kontakt" , "", "[ID:4362]")								; Klickt auf die Dropdown-Liste für die erste Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues fenster Aktiviren
			Send("{DOWN}{DOWN}{ENTER}")																	; Geschäftlich auswählen


	ControlClick("Vorname_TEST Nachname_TEST - Kontakt" , "", "[ID:4363]")								; Klickt auf die Dropdown-Liste für die zweite Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")		; Mobiltelefon auswehlen


	ControlClick("Vorname_TEST Nachname_TEST - Kontakt" , "", "[ID:4364]")								; Klickt auf die Dropdown-Liste für die dritte Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")								; Privat auswählen


	ControlClick("Vorname_TEST Nachname_TEST - Kontakt" , "", "[ID:4365]")								; Klickt auf die Dropdown-Liste für die dritte Telefonnummer (Privat 2)
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")						; Privat2 auswählen


; Speichern und Schließen // Tastenkombination = ALT+S
WinWaitActive("[CLASS:Vorname_TEST Nachname_TEST - Kontakt]")
Send("!S")  ; Klapt nicht :-( das fenster ist wohl nihct Aktiv wie bekomme ich das fesnter Aktiv?


MsgBox(1,"Titel","Fertig")

Alles anzeigen

jetzt Fehlt mir noch das Speichern & Schließen, dann ist schon ein Großer teil geschafft dann muss ich mich um die Fensternamen kümmern.

EDIT:

mit deiner Funktion die fehlt hat auch das Speichern und Schließen geklappt.

neuer Code sieht so aus:

AutoIt

; Outlook starten
	run("C:\Program Files\Microsoft Office 15\root\office15\OUTLOOK.EXE")
; 5 Sekunden warten
	Sleep (5000)
; Debug zeile
	MsgBox(1,"Titel","Outlook ist hoffenldich OFFEN" & @CRLF _
	               & "Bitte zu den personen Navigiren und"  & @CRLF _
				   & "die Person Herr Vorname_TEST Nachname_TEST"& @CRLF _
				   & "aufrufen"& @CRLF & "erst danach OK drücken !")


	ControlClick("Vorname_TEST Nachname_TEST - Kontakt" , "", "[ID:4362]")								; Klickt auf die Dropdown-Liste für die erste Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{ENTER}")																	; Geschäftlich auswählen


	ControlClick("Vorname_TEST Nachname_TEST - Kontakt" , "", "[ID:4363]")								; Klickt auf die Dropdown-Liste für die zweite Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")		; Mobiltelefon auswehlen


	ControlClick("Vorname_TEST Nachname_TEST - Kontakt" , "", "[ID:4364]")								; Klickt auf die Dropdown-Liste für die dritte Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")								; Privat auswählen


	ControlClick("Vorname_TEST Nachname_TEST - Kontakt" , "", "[ID:4365]")								; Klickt auf die Dropdown-Liste für die dritte Telefonnummer (Privat 2)
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")						; Privat2 auswählen


_WinWaitActivate("Vorname_TEST Nachname_TEST - Kontakt  ","")											; neues Fenster Aktiviren
Send("{ALTDOWN}s{ALTUP}")																				; Speichern und Schließen // Tastenkombination = ALT+S




MsgBox(1,"Titel","Fertig")




Func _WinWaitActivate($title,$text,$timeout=0)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc

Alles anzeigen

Jetzt habe ich mir überlegt,

Ich Öffne die ersten 10 - 20 Kontakte.
Und wenn ich die STRG taste drücke und mit der Maus auf einen offenen Kontakt Klicke soll AutoIT den Fenster Namen auslesen. und das Script dann abarbeiten.

Doch wie kann ich den Fenster Namen auslesen? wenn ich auf das Fenster klicke?

oder denke ich Falsch? habt Ihr eine andere idee?

Muecke

Fertig

ich habe eine Lösung gefunden den Titel auszulesen.

Das ganze habe ich dann in einen HotKeySet gepackt und kann so nun alle Kontakte durcharbeiten.
Es ist nicht das Schnellste Script doch schneller wie ich von Hand

AutoIt

; Outlook starten
;	run("C:\Program Files\Microsoft Office 15\root\office15\OUTLOOK.EXE")
; 5 Sekunden warten
;	Sleep (5000)


MsgBox(1,"Titel","Outlook ist hoffenldich OFFEN" & @CRLF _
	               & "Um die Telefonnummern Anzeige zu Ordnen"  & @CRLF _
				   & "bitte den kontakt Öffnen und das fenster Aktiviren dann "& @CRLF _
				   & "F2 drücken."& @CRLF _
                   & "Script Ende mit"& @CRLF _
				   & "ESC")


HotKeySet("{F2}", "Telefonnummern_ordnen") ; Shift-Alt-d
HotKeySet("{ESC}", "Prog_Ende") ; ESC


While 1
    Sleep(100)
WEnd
Exit


Func Prog_Ende()
	MsgBox(1,"Titel","Script Beendet!", 10)
	Exit
EndFunc


Func Telefonnummern_ordnen()


	$Title = WinGetTitle("")																			; Fenstertitel auslesen


	ControlClick($Title , "", "[ID:4362]")																; Klickt auf die Dropdown-Liste für die erste Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{ENTER}")																	; Geschäftlich auswählen


	ControlClick($Title , "", "[ID:4363]")																; Klickt auf die Dropdown-Liste für die zweite Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")		; Mobiltelefon auswehlen


	ControlClick($Title , "", "[ID:4364]")																; Klickt auf die Dropdown-Liste für die dritte Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")								; Privat auswählen


	ControlClick($Title , "", "[ID:4365]")																; Klickt auf die Dropdown-Liste für die dritte Telefonnummer (Privat 2)
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")						; Privat2 auswählen


_WinWaitActivate($Title,"")																				; neues Fenster Aktiviren
Send("{ALTDOWN}s{ALTUP}")																				; Speichern und Schließen // Tastenkombination = ALT+S
EndFunc


Func _WinWaitActivate($title,$text,$timeout=0)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc

Alles anzeigen

Danke für eure Unterstützer, hätte das Ohne euch wohl nicht hin bekommen.

DANKE.

Gruß Mücke

**water**

$sTitle = WinGetTitle("[active]")

Muecke

Hey Walter,

ich gehe davon aus das du meinen Code einen Fehler gesehen hast?

ich werde das bei mir ändern. Es hat jedoch auch Ohne das [active] geklappt. ich habe alle Kontakte durchgearbeitet das ist echt perfekt.

Wenn Ihr eine Idee habt wie man alle Kontakte nach einander aufrufen kann, dann könnte man das Script so machen das es automatisch alle Kontakte durcharbeitet.

Dann würde ich das auch Später noch mal laufen lassen denn auch vom Handy Kommen immer wider Kontakte dazu bei denen dann die Reihenvogel nicht stimmt.

**water**

Zufällig funktionieren beide gleich.
Das hängt vom Mode ab:
Mode 1 (default) - Matches partial titles from the start.

Muecke

@Walter: ich habe gerade das active übernehmen wollen, dabei ist mir aufgefallen das du in der variable Titel ein s vor das T geschrieben hast.

Hat das eine Bedeutung?
macht man so etwas um etwas spezielles für den Leser mitzuteilen?

Mein Neuer Code sieht dann so aus:

AutoIt

;  bei einem Geöffneten Kontakt im outlook werden immer 4 telefonnummern angezeigt. 
;  Wenn hier bestimte telefonnummren angezeigt werden sollen die nicht Standartmäsig 
;  von Outlook hier sichtbar sind, musste mann bei allen Kontakten die 4 reiter ändern 
;  um dies zu Automatisiren gibt es diese Script. 
; 
;  Was macht das Script
; 1) Outlook öffnen 
; 2) User muss von Hand den oder die Kontakte Öffnen 
; 3) Der Geöffnete Kontakt muss Aktiv sein
; 4) F2 = anzuzeigende telefonnummern richtig auswählen + Speichern & Schlißen 
; 5) ESC = beendet das Script 




run("C:\Program Files\Microsoft Office 15\root\office15\OUTLOOK.EXE")									; Outlook starten
Sleep (5000)																							; 5 Sekunden warten


MsgBox(1,"Titel","Outlook ist hoffenldich OFFEN" & @CRLF _
	               & "Um die Telefonnummern Anzeige zu Ordnen"  & @CRLF _
				   & "bitte den kontakt Öffnen und das fenster Aktiviren dann "& @CRLF _
				   & "F2 drücken."& @CRLF _
                   & "Script Ende mit"& @CRLF _
				   & "ESC")


HotKeySet("{F2}", "Telefonnummern_ordnen") 																; Tastenkürzel F2  + Functionsaufruf 
HotKeySet("{ESC}", "Prog_Ende") 																		; Tastenkürzel ESC + Functionsaufruf


While 1																									; Dauerschleife damit das Script weiter läuft 
    Sleep(100)																							; Kurze pause um den prozessor etwas zu endlasten
WEnd


Exit																									; Sollte das Scrict über die Dauerschleife kommen (Unwarscheinlich) dann soll das Script Beendet werden! 


Func Prog_Ende()  																						; Programm Ende Function 
	MsgBox(1,"Titel","Script Beendet!", 10)																; Nachricht das das Programm beendet wird 
	Exit																								; Program ENDE 	
EndFunc


Func Telefonnummern_ordnen()																			; das eigendliche Script 


	$Title = WinGetTitle("[active]") 																	; Fenstertitel auslesen


	ControlClick($Title , "", "[ID:4362]")																; Klickt auf die Dropdown-Liste für die erste Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{ENTER}")																	; Geschäftlich auswählen


	ControlClick($Title , "", "[ID:4363]")																; Klickt auf die Dropdown-Liste für die zweite Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")		; Mobiltelefon auswehlen


	ControlClick($Title , "", "[ID:4364]")																; Klickt auf die Dropdown-Liste für die dritte Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")								; Privat auswählen


	ControlClick($Title , "", "[ID:4365]")																; Klickt auf die Dropdown-Liste für die dritte Telefonnummer
		WinWaitActive("[CLASS:Net UI Tool Window]")														; neues Fenster Aktiviren
			Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")						; Privat2 auswählen


		_WinWaitActivate($Title,"")																		; neues Fenster Aktiviren
			Send("{ALTDOWN}s{ALTUP}")																	; Speichern und Schließen // Tastenkombination = ALT+S
EndFunc


Func _WinWaitActivate($title,$text,$timeout=0)															; Das weis ich auch nicht, 
    WinWait($title,$text,$timeout)           															, dise Functin fehlt im AutoIT daher extra aufgenommen
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc

Alles anzeigen

Floops

Mit einem oder mehreren Kleinbuchstaben am Anfang eines Variablennamen kann man kennzeichnen, um was für eine Art von Variable es sich handelt.
Ein "s" sagt aus, dass es sich bei der Variable um einen String handelt, "i" bedeutet Integer, etc.

Muss man nicht machen aber erleichtert das Lesen des Codes

Edit:

prefix	covering type	example
a	Arrays	$aArray[0]
b	Booleans	$bBool = True
d	Binaries	$dBinary = Binary("0x80000000")
e	Constant variable	Local Const $eEulersConstant = 2.7182818284590452
f	Floating point	$fFloat = 0.123
h	Handles (and GUI handles)	$hGUI = GUICreate("My GUI")
i	Integer	$iInteger = 10
id	An AutoIt controlID	$idButton_Ok = GUICtrlCreateButton("OK", 5, 5)
m	Maps	$mMap[]
n	General number (no preference)	$nNumber = 0
p	Pointers	$pRect = DllStructGetPtr($tRECT)
s	Strings (chars included)	$sString = "Hello world"
t	Structures	$tSTRUCT = DllStructCreate($tagSTRUCT)
tag	Structures definition	$tagDATE = "struct; word Year;word Month;word Day; endstruct"
v	Variant	$vData = ClipGet()

Quelle: https://www.autoitscript.com/wiki/Best_codi…es_of_Variables

**alpines**

Zitat von Floops

Mit einem Kleinbuchstaben am Anfang eines Variablennamen kann man kennzeichnen, um was für eine Art von Variable es sich handelt.

Nicht nur mit einem, man kann auch mehrere verwenden $as_ (Array String), $tag_ (DLL-Structs).

Siehe auch: Ungarische Notation.

Muecke

Das ist ja Cool.

DANKE