Hallo zusammen,
Was macht mein Programm:
1.Startet eine Excel von einem Server - Auf diesem Server haben alle Kollegen die gleichen Zugriffe wie ich auch
2.Führt ein Makro aus in der Excel (Mousemove - Click) und Öffnet eine Outlook Mail
3. Das Skript schreibt dann den Email Text (habe ich hier natürlich entfernt ) und einige Adressen ins CC
4. Das Skript Öffnet dann wieder die Excel und startet ein zweites VBA Makro
Das funktioniert alles super auf meinem Computer, nur sofern ich die AutoIt-Datei auf einem Computer meines Kollegen starte, bekomme ich folgende Fehlermeldung.
Kann sich das einer irgendwie erklären?
Was mich stutzig macht ist: Warum versucht er auf die Datei "Auftragsdaten und Positionen Automatisch.xlsm zu zu greifen? Ich habe davon nicht im AutoIt Code stehen?
So hieß die Datei ursprünglich mal. Habe es jedoch geändert in "Auftragsdaten und Position".
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=T:\Leitstand\23.Tornow\Projekte\Lunar\auto-lunar.kxf
$Form1 = GUICreate("auto-Lunar", 475, 196, 200, 140)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("R:\Leitstand\Lunar_EH\auto-LUNAR\logo.jpg", 0, 0, 473, 121)
$Button1 = GUICtrlCreateButton("Start", 32, 128, 193, 49)
$Button2 = GUICtrlCreateButton("Beenden", 232, 128, 193, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
ShellExecute("R:\Leitstand\Lunar_EH\auto-LUNAR\Auftragsdaten und Positionen.xlsm")
WinWaitActive("Sicherheitshinweis für Microsoft Excel")
Send("a")
WinSetState("Auftragsdaten und Positionen.xlsm", "", @SW_MAXIMIZE)
Sleep(7000)
WinSetState("Auftragsdaten und Positionen.xlsm", "", @SW_MAXIMIZE)
Sleep(2000)
MouseMove(405, 16)
Sleep(500)
MouseClick("left")
MouseMove(150, 1003)
sleep(1000)
MouseClick("left")
Sleep(1000)
MouseMove(1254, 474)
MouseClick("left")
WinWaitActive("Lunar")
WinActivate("Lunar")
WinSetState("Lunar | Übersicht der Lieferungen je Liefertag Zentrallager (Datum Heute + Morgen) - Nachricht", "Lunar", @SW_MAXIMIZE)
MsgBox(64,"Outlook Nachricht geladen","Jetzt bitte keine Tastatureingaben machen.",0)
;Hier wird Der Body Text der E-Mail verfasst
Sleep(1000)
MouseMove(19, 374, 1)
MouseClick("left")
;Excel Öffnen
WinActivate("Auftragsdaten und Positionen.xlsm")
WinSetState("Auftragsdaten und Positionen.xlsm", "", @SW_MAXIMIZE)
;Excel Emails kopieren
Sleep(1500)
;Blatt auswählen
MouseMove(643, 1004)
Sleep(500)
MouseClick("left")
Sleep(1500)
MouseMove(177, 211)
Sleep(1500)
MouseClick("left")
Sleep(2500)
Send("{CTRLDOWN}c{CTRLUP}")
Send("{CTRLDOWN}c{CTRLUP}")
Send("{CTRLDOWN}c{CTRLUP}")
;zurück zur Nachricht
WinSetState("Auftragsdaten und Positionen.xlsm", "", @SW_MINIMIZE)
WinWaitActive("Lunar")
MouseMove(207, 194)
MouseClick("left")
Sleep(250)
Send("{CTRLDOWN}v{CTRLUP}")
;4000er Hinzufügen
Sleep(2000)
MouseMove(1993, 253)
Sleep(500)
MouseClick("left")
Send("emailadressen die hier eingefügt sind")
sleep(3000)
;Excel öffnen und letzte Makro ausführen
WinActivate("Auftragsdaten und Positionen.xlsm")
WinSetState("Auftragsdaten und Positionen.xlsm", "", @SW_MAXIMIZE)
MouseMove(1088, 1004)
Sleep(1000)
MouseClick("left")
MouseMove(228, 289)
Sleep(1000)
MouseClick("left")
EndSwitch
WEnd
Alles anzeigen