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

gelöst Send Key von Outlook funktioniert nur manchmal

Mitglied: KikiMiki

KikiMiki (Level 1) - Jetzt verbinden

09.10.2009, aktualisiert 08:25 Uhr, 8713 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
VB for Applications

Shell Befehl funktioniert manchmal, manchmal nicht

Frage von donky2000VB for Applications4 Kommentare

Hallo zusammen, wenn ich neue PCs installiere rufe ich die zu instllierenden Programme per Makro aus Excel 2010 auf. ...

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: ...

Exchange Server

Senden Als funktioniert auf einmal nicht mehr

gelöst Frage von salixhoriganExchange Server11 Kommentare

Hallo zusammen, ich habe hier einen Exchange 2013 aktuelles CU. Einer meiner User hat eine eigene Mailbox sowie Vollzugriff ...

Neue Wissensbeiträge
Router & Routing

Olle Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 5 StundenRouter & Routing1 Kommentar

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 18 StundenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 1 TagWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 1 TagMicrosoft Office5 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid15 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Windows 10
Windows 10 Startmenü-Einstellungen Systemweit festlegen
Frage von flotautWindows 1013 Kommentare

Guten Morgen liebe Admins, wir möchten bei uns am Lehrstuhl demnächst auf Windows 10 umsteigen. Wir installieren unsere PC's ...

LAN, WAN, Wireless
OpenVPN Client Fehlermeldungen
Frage von chris84LAN, WAN, Wireless12 Kommentare

Hallo Zusammen, wir nutzen seit kurzem einen neuen Router und den OpenVPN Client. Die VPN Verbindung klappt; allerdings kommen ...