Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Frage Entwicklung Batch & Shell

GELÖST

Send Key von Outlook funktioniert nur manchmal

Mitglied: KikiMiki

KikiMiki (Level 1) - Jetzt verbinden

09.10.2009, aktualisiert 08:25 Uhr, 8626 Aufrufe, 6 Kommentare

Hallo,

über ein Skript wird eine xls an eine neue Email gehängt und an definierte Empfänger geschickt.
Mein Ziel ist es dies vollautomatisiert zu machen.

Eigentlich klappt es wenn die Sicherheitswarnung in Outlook nicht wäre. Hier muss ich dann am Ende immer auf JA klikcken damit zugegriffen werden kann.


Meine aktuelle Lösung simuliert am Ende ein ein ALT+S, so wird die Mail sofort losgeschickt.


Am Anfang klappte das prima, doch mittlerweile hab ich festgestellt dass wenn ein anderes Fenster aktiviert ist dass dieses SendKey nicht funktioniert


Es funktioniert nur wenn kein anderes Fenster aktiviert ist.

Jemand eine Idee wie man das umgehen kann?
Hier der Code:



01.
Const olByValue = 1 
02.
Const olMailItem = 0 
03.
 
04.
Dim oOApp 
05.
Dim oOMail 
06.
Dim WshShell 
07.
 
08.
Set oOApp = CreateObject("Outlook.Application") 
09.
Set oOMail = oOApp.CreateItem(olMailItem) 
10.
 
11.
oOMail.display ' Fenster anzeigen 
12.
oOMail.To = "User1@email.de;User2@email.de" 
13.
oOMail.CC = "reporting@email.de" 
14.
oOMail.Subject = "Automatisierter Report" 
15.
oOMail.Body = "Im Anhang befindet sich Report" 
16.
oOMail.Attachments.Add (SkriptPfad & "Report.doc"), olByValue, 1 
17.
 
18.
'oOMail.Send '<< dieser Befehl würde die Warnung anzeigen 
19.
 
20.
Set WshShell = WScript.CreateObject("WScript.Shell") 
21.
WshShell.AppActivate oOMail 
22.
WshShell.SendKeys("%s") ' Sende ein "Alt-S". Outlook denkt der User "sendet 
23.
 
Mitglied: TsukiSan
09.10.2009 um 08:03 Uhr
Wie wär's denn mit
01.
'....... 
02.
oOMail.Send
?

Die Warnung kommt aus den Sicherheitseinstellungen her, vom Outlook.
Mit der SendKey-Methode hast du die Schwachstelle schon aufgeführt.
Ansonsten müssten Zusatztools runtergeladen werden und dann geht sowas
auch als Batch-Datei. Aber Zusatztools.....

Gruß
Tsuki
Bitte warten ..
Mitglied: KikiMiki
09.10.2009 um 08:09 Uhr
Hi Tsuki

Zusatztool darf ich in der Firma nicht einsetzten ;)
In meinem Code steht doch:
01.
WshShell.AppActivate oOMail 
Dann müsste doch das Fenster der neuen Email automatisch aktiviert werden.

Ich versteh das nicht, wenn vor dem ausführen des Codes kein Fenster aktiviert ist geht es mit dem SendKey
Ist aber z.B. ein Word-Dokumennt oder ein Bild auf meinem Rechner aktiviert poppt die neue Email nur in der Taskleiste auf und ich muss es händisch abschicken mit Klick auf Senden.

Eine Idee?
Bitte warten ..
Mitglied: KikiMiki
09.10.2009 um 08:23 Uhr
So gehts:

01.
Set oOApp = CreateObject("Outlook.Application") 
02.
Set oOMail = oOApp.CreateItem(olMailItem) 
03.
 
04.
oOMail.display ' Fenster anzeigen 
05.
oOMail.To = "xyz@mail.de" 
06.
oOMail.CC = "report@mail.de" 
07.
oOMail.Subject = "Automatisierter Report" 
08.
oOMail.Body = "Text" 
09.
oOMail.Attachments.Add (SkriptPfad & "Report.doc"), olByValue, 1 
10.
 
11.
'oOMail.Send '<< dieser Befehl würde die Warnung anzeigen 
12.
 
13.
Set WshShell = WScript.CreateObject("WScript.Shell") 
14.
WScript.Sleep 500 
15.
WshShell.AppActivate oOMail 
16.
WScript.Sleep 500 
17.
oOMail.display ' Fenster anzeigen 
18.
WScript.Sleep 500 
19.
WshShell.SendKeys("%s") ' Sende ein "Alt-S". Outlook denkt der User "sendet
Bitte warten ..
Mitglied: TsukiSan
09.10.2009 um 08:32 Uhr
mh,

gibt es die
oOApp.SetFocus
???

Jetzt müßten wir mal googeln, wie man einem bestimmten Fenster/Programm den Focus per VBS verpasst.

Gruß
Tsuki
Bitte warten ..
Mitglied: TsukiSan
09.10.2009 um 08:35 Uhr
Ah, warst schneller.

Super, dass du die Lösung gefunden hast!

Gruß
Tsuki
Bitte warten ..
Mitglied: KikiMiki
09.10.2009 um 08:47 Uhr
Trotzdem Danke
Das Forum hier ist echt der Hammer

Ihr habt mir schon so oft gehlfen. Hut ab an alle!!! ;)
Bitte warten ..
Ähnliche Inhalte
Exchange Server
Senden als funktioniert nicht
gelöst Frage von 113726Exchange Server7 Kommentare

Guten Morgen, SBS2011 Ich habe in der Exchange Verwaltungskonsole das so eingestellt, dass ich als normaler User Vollzugriff auf ...

Windows Netzwerk
Softwareverteilung via GPO funktioniert nur manchmal
Frage von mijacdWindows Netzwerk

Hallo zusammen, ich versuche mal mein Problem zu bescheiben. Ich habe ein GPO Objekt Namens Softwareverteilung mit dem ich ...

Outlook & Mail
Senden als anderer Benutzer funktioniert nicht
gelöst Frage von derausgroenlohOutlook & Mail6 Kommentare

Hallo zusammen, wenn ein Benutzer eine Mail unter einem anderen Benutzer versenden will, bekommt sie direkt nach dem klicken ...

Exchange Server
SBS2011: Senden im Auftrag von ... funktioniert nicht
Frage von phoenixzExchange Server1 Kommentar

Hallo zusammen, nachdem ich nun etliche Stunden recherchiert und ausprobiert habe, wende ich mich mit meinem Problem an Euch: ...

Neue Wissensbeiträge
Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 11 StundenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 11 StundenSicherheit7 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 12 StundenSicherheit8 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Sicherheit

Meltdown und Spectre: Die machen uns alle was vor

Information von Frank vor 12 StundenSicherheit12 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

Heiß diskutierte Inhalte
Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von 92943Windows 1031 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Batch & Shell
Anmeldevorgang für Informatikraum (Schule) unter Windows
gelöst Frage von IngenieursBatch & Shell29 Kommentare

Hey zusammen, ich werde in naher Zukunft den Informatik Raum meiner jetzigen Schule von dem aktuellen Betreiber übernehmen (Vertrag ...

Netzwerkgrundlagen
Welches Modem für VDSL 50000 der T-Com
Frage von Windows10GegnerNetzwerkgrundlagen20 Kommentare

Hallo, ein Kollege von mir will sich VDSL50000 von der T-Com holen, um daran einen Server zu betreiben. Ich ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...