If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").doubleClickCurrentCell
session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\02").select
session.findById("wnd[0]/tbar[1]/btn[37]").press
session.findById("wnd[0]/usr/tabsTABSTRIP/tabpT\02/ssubSUB_DATA:SAPLITO0:0102/subSUB_0102B:SAPLITO0:1051/subSUB_1051A:SAPLIPAR:0130/subBUTTONS:SAPLIPAR:0165/btnLTICON-LTOPR").press
session.findById("wnd[1]/usr/txtADDR1_DATA-NAME1").text = "Firma"F""
session.findById("wnd[1]/usr/txtADDR1_DATA-NAME2").text = "Fuhrparkleiter"
session.findById("wnd[1]/usr/txtADDR1_DATA-STREET").text = "Stresemann Str."
session.findById("wnd[1]/usr/txtADDR1_DATA-HOUSE_NUM1").text = "1"
session.findById("wnd[1]/usr/txtADDR1_DATA-POST_CODE1").text = "33568"
session.findById("wnd[1]/usr/txtADDR1_DATA-CITY1").text = "Düsseldorf"
session.findById("wnd[1]/usr/ctxtADDR1_DATA-COUNTRY").text = "de"
session.findById("wnd[1]/usr/ctxtADDR1_DATA-REGION").text = "03"
session.findById("wnd[1]/usr/txtSZA1_D0100-TEL_NUMBER").text = "0551-2215"
session.findById("wnd[1]/usr/txtSZA1_D0100-FAX_NUMBER").text = "05561-2180"
session.findById("wnd[1]/usr/txtSZA1_D0100-SMTP_ADDR").text = "frankmueller@gmx.org"
session.findById("wnd[1]/usr/txtSZA1_D0100-SMTP_ADDR").setFocus
session.findById("wnd[1]/usr/txtSZA1_D0100-SMTP_ADDR").caretPosition = 34
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/tbar[0]/btn[11]").press
session.findById("wnd[0]/tbar[1]/btn[8]").press
Bearbeitet vom Benutzer
vor 9 Jahre
|
Grund: Nicht angegeben