hallo alle zusammen
ich habe einen fehler in der funktion _userletter () die ich leider momentan nicht raus bekomme.
wahrscheinlich was ganz blödes aber ich komme nicht drauf. währe super wenn mal einer drüber
schauen könnte:
Bitte nicht wieder eine auf den rüssel geben . danke
Spoiler anzeigen
[autoit]
#include <GUIConstants.au3>
#include <word.au3>
#include <excel.au3>
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Global $anrede = " Geachte UPS klant,"&@CR&@cr&"Wij hebben een probleem met de aflevering van u zending "
Global $ini = "a.ini"
Global $get = ClipGet()
Global $txt, $value, $iRow = 1, $ini = 'a.ini'
Global $sPath = @ScriptDir & '\Test1.xls'
Global $oExcel = _ExcelBookOpen($sPath, 0)
Global $reihe = 1
Global Const $marcel = "Wij willen u vriendelijk vragen contact op te nemen met Marcel Siefert onder"&@cr&"het nummer 02131 947 2836 Of per E-mail aan MSiefert(At)UPS.com"&@cr&@cr
Global Const $Gajan = "Wir würden Sie bitten sich mit Gajabawan Nandapaln In Verbindung zu setzern unter"&@cr&"02131 947 2951 Oder per Email an Gnandapalan@ups.com"&@CR&@cr
Global Const $Barbara = "Wir würden Sie bitten sich mit Gajabawan Nandapaln In Verbindung zu setzern unter"&@cr&"02131 947 2845 Oder per Email an Barbara.Horn@ups.com"&@CR&@cr&"Gajan Nandapalan"&@CR&@cr&"UPS Neuss"&@CR&@cr
Global Const $Grace = "Wir würden Sie bitten sich mit Grace Imperial In Verbindung zu setzern unter"&@cr&"02131 947 2807 Oder per Email an Gracel.Imperial@europe.ups.com"&@CR&@cr
Global Const $Karena = "Wir würden Sie bitten sich mit Karen Wiche In Verbindung zu setzern unter"&@cr&"02131 947 2880 Oder per Email an Kwiche@ups.com"&@CR&@cr
Global Const $Hilkka = "Wir würden Sie bitten sich mit Hilkka Stich In Verbindung zu setzern unter"&@cr&"02131 947 2867 Oder per Email an HilkkaStich@ups.com"&@CR&@cr
Global Const $Rolf = "Wir würden Sie bitten sich mit Rolf Duerbaum In Verbindung zu setzern unter"&@cr&"02131 947 2959 Oder per Email an Rolf.Duerbaum@ups.com"&@CR&@cr
Global Const $Stefanie = "Wir würden Sie bitten sich mit Stefanie Schael In Verbindung zu setzern unter"&@cr&"02131 947 9470 Oder per Email an Sschael@ups.com"&@CR&@cr
Global Const $Malanie = "Wir würden Sie bitten sich mit Melanie Kellers In Verbindung zu setzern unter"&@cr&"02131 947 2844 Oder per Email an Mkellers@ups.com"&@CR&@cr
Global Const $Andrea = "Wir würden Sie bitten sich mit Andrea Schreiber In Verbindung zu setzern unter"&@cr&"02131 947 2802 Oder per Email an AndreaSchreiber@ups.com"&@CR&@cr
Global Const $Thorsten = "Wir würden Sie bitten sich mit Thorsten Rennhack In Verbindung zu setzern unter"&@cr&"02131 947 2806 Oder per Email an Trennhack@ups.com"&@CR&@cr
Global Const $Oliver = "Wir würden Sie bitten sich mit Oliver Kronsghage In Verbindung zu setzern unter"&@cr&"02131 947 2830 Oder per Email an Okronshage@ups.com"&@CR&@cr
Global Const $alsig = "Marcel Siefert"&@CR&"United Parcel Service"&@cr&"Deutschland Inc. & Co. OHG"&@cr&@cr&"Di / PSC Export NL, BE, LU"&@cr&"Ph# 0049 2131 947 2836"&@cr&"Fx# 0049 2131 947 2829"&@cr&@cr&""&@CR&@cr
;$iRow = 1
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 375, 130, 193, 125)
$Button1 = GUICtrlCreateButton("Excel-Datei öffnen", 24, 24, 147, 25, 0)
$Button2 = GUICtrlCreateButton("Brief erstellen", 24, 80, 147, 25, 0)
$Button3 = GUICtrlCreateButton("Ecxel Killer", 192, 80, 147, 25, 0)
$Button4 = GUICtrlCreateButton("Fenstertest", 192, 24, 145, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]case $Button1
ShellExecute($sPath)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]case $Button2
_start()
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]case $Button3
ProcessClose("EXCEL.exe")
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Case $Button4
; in arbeit
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Case $GUI_EVENT_CLOSE
Exit
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndSwitch
WEnd
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]While 1
Sleep(100)
WEnd
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Func _start()
While True
Global $value = _ExcelReadCell($oExcel, "A" & $iRow)
Global $valueb = _ExcelReadCell($oExcel, "B" & $iRow)
If $value = "" Then
ProcessClose("Excel.exe")
ExitLoop
EndIf
$return = _getData($value)
$iRow += 1
WEnd
EndFunc
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]#cs
------------------------------------------------------------------------------------------------------------------------
Funktionen die in reihe geschaltet werden
Ablauf der einzelenen funktionen
------------------------------------------------------------------------------------------------------------------------
#ce
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Func _getData($value)
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]_Activate()
_open () ;Offnet den ERN und schaltet auf die richtige seite um daten einzu lesen
_getName() ;absender name in die ini schreiben
_getAdresse() ;Absender adresse in die ini schreiben
_getPlz() ;Absender PLZ in die ini schreiben
_getOrt() ;Absender ort in die ini schreiben
_getLand() ;absender land in die ini schreiben
_getTracknr() ;Trackingnummer in die ini schreiben
_getEmpfName() ;Emf name in die ini schreiben
_getEmpfStr() ;Emf Str in die ini schreiben
_getEmpfPlz() ;Emf PLZ in die ini schreiben
_getEmpfOrt() ;emf Ort in die ini schreiben
_getEmpfLand() ;Emf land in die ini schreiben
_getKNr() ;Kundennummer in die ini schreiben
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]_worderstellen () ;erstellt eine word oder öffnet die vorhandene
_letterteil1() ;Schreibt denn brief
_userletter () ;Benuter wahl
_alsig () ;Schreiben der algemeinen Signatur
_dispatch () ; Disparched den ern uns macht den abschluss
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Func _open()
_Activate()
MouseClick("LEFT", 390, 402, 1, 0)
send ($value)
Send ("{enter}")
Send ("9")
Send ("{enter}")
Sleep (500)
send ("01")
Send("{ENTER}")
sleep (500)
Send("{F7}")
Sleep (500)
EndFunc
Func _getName ()
MouseClick ("left", 24, 399, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 30}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe1", $get)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
Func _getAdresse()
_Activate()
Send("{ENTER}")
MouseClick ("left", 24, 440, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 28}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe2", $get)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
Func _getPlz()
_Activate()
MouseClick ("left", 376, 512, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 7}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe3", $get)
EndFunc
Func _getOrt()
_Activate()
MouseClick ("left", 24, 507, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 12}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe4", $get)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
Func _getLand()
_Activate()
MouseClick ("left", 553, 508, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 3}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe5", $get)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
Func _getTracknr()
_Activate()
MouseClick ("left", 167, 257, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 19}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe6", $get)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
Func _getEmpfName()
_Activate()
MouseClick ("left", 663, 399, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 28}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe7", $get)
EndFunc
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Func _getEmpfStr()
_Activate()
MouseClick ("left", 663, 434, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 28}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe8", $get)
EndFunc
Func _getEmpfPlz()
_Activate()
MouseClick ("left", 1014, 509, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 7}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe9", $get)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
Func _getEmpfOrt()
_Activate()
MouseClick ("left", 663, 507, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 15}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe10", $get)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
Func _getEmpfLand()
_Activate()
MouseClick ("left", 1189, 508, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 3}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe11", $get)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
Func _getKNr()
_Activate()
MouseClick ("left", 341, 366, 1, 0)
Send("{LSHIFT down}")
Send("{RIGHT 5}")
Send("{LSHIFT up}")
Send ("^c")
Global $get = ClipGet()
IniWrite("a.ini", "1", "reihe12", $get)
EndFunc
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Func _letterteil1()
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Global $aname = iniread (@ScriptDir & "\a.ini", "1", "reihe1", "0")
Global $aadresse = iniread (@ScriptDir & "\a.ini", "1", "reihe2", "0")
Global $aplz = iniread (@ScriptDir & "\a.ini", "1", "reihe3", "0")
Global $aort = iniread (@ScriptDir & "\a.ini", "1", "reihe4", "0")
Global $aland = iniread (@ScriptDir & "\a.ini", "1", "reihe5", "0")
Global $Tracking = iniread (@ScriptDir & "\a.ini", "1", "reihe6", "0")
Global $ename = iniread (@ScriptDir & "\a.ini", "1", "reihe7", "0")
global $estrasse = iniread (@ScriptDir & "\a.ini", "1", "reihe8", "0")
Global $eplz = iniread (@ScriptDir & "\a.ini", "1", "reihe9", "0")
Global $eort = iniread (@ScriptDir & "\a.ini", "1", "reihe10", "0")
Global $eland = iniread (@ScriptDir & "\a.ini", "1", "reihe11", "0")
Global $akundennummer = iniread (@ScriptDir & "\a.ini", "1", "reihe12", "0")
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Send ("{enter 8}")
Send ($aname)
Send ("{Enter}")
Send ($aadresse)
Send ("{Enter}")
Send ($aort)
Send ("{space 4}")
Send ($aplz)
Send ("{space 4}")
Send ($aland)
Send ("{enter 7}")
Send ($anrede)
Send ($Tracking)
Send ("{space 2}")
Send ("{Enter 3 }")
Send ("An: ")
Send ($ename)
Send ("{Enter}")
Send ("{space 7}")
Send ($estrasse)
Send ("{Enter}")
Send ("{space 7}")
Send ($eort)
Send ("{space 3}")
Send ($eplz)
Send ("{space 3}")
Send ($eland)
Send ("{enter 3}")
EndFunc
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]#cs
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]func _userletter ()
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]If $valueb = "ger1gxn" Then Send ($Gajan, 0)
If $valueb = "kln1bzh" Then Send ($Barbara, 0)
If $valueb = "ger3gxi" Then Send ($Grace, 0)
If $valueb = "ger9krw" Then Send ($Karena, 0)
If $valueb = "ger6hks" Then Send ($Hilkka, 0)
If $valueb = "ger6rjd" Then Send ($Rolf, 0)
If $valueb = "ger6sts" Then Send ($Stefanie, 0)
If $valueb = "ger1mxk" Then Send ($Malanie, 0)
If $valueb = "kln1azm" Then Send ($Andrea, 0)
If $valueb = "ger0mjs" Then Send ($marcel, 0)
If $valueb = "ger1ttr" Then Send ($Thorsten, 0)
If $valueb = "ger1ook" Then Send ($Oliver, 0)
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndIf
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]#ce
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Func _alsig ()
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Send ("{Enter 3}")
Send ($alsig)
Send ("{enter 8}")
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Func _worderstellen ()
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]opt ("WinTitleMatchMode", 2)
If WinExists("marcel") Then
WinActivate ("marcel")
sleep (5000)
Else
Global $oWordApp = _WordCreate("marcel.doc")
opt ("WinTitleMatchMode", 2)
WinActivate ("marcel")
Sleep (1000)
EndIf
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Func _Activate()
WinActivate('QWS3270')
WinWaitActive('QWS3270')
EndFunc
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]Func _dispatch ()
_Activate ()
Send ("{f2}")
Send ("{TAB 2}")
send ($valueb)
Send ("{enter}")
Send ("{tab 4}")
Send ("send letter to sender")
send ("{enter}")
Send ("{F2 2}")
[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]EndFunc
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
Er sollte anahnd der eingetragenen werte in der Excel datei spalte B die richtige signatur wählen.
Danke
Adamkaller