4
Outlook Marko: Fenster nebeneinander zeigen
Hallo Zusammen,
ich hatte vor mir ein kleines Makro zu schreiben was nachfolgendes Bewirkt:
1. Kalender öffnen:
2. Webbrowser mit Webanwendung öffnen:
3. beide Anwendungen in nebeneinander darstellen.
Hiebe habe ich in Outlook nur die Funktion zum minimieren und maximieren gefunden.
Hat jemand ein Snippet wie ich den Outkalender links und den Webbrowser rechts darstellen kann?
Vielen Dank!
Gruß John
ich hatte vor mir ein kleines Makro zu schreiben was nachfolgendes Bewirkt:
1. Kalender öffnen:
Private Sub btnOutlookKalender_Click()
Dim objOutlook As Object
Dim objNameSpace As Object
Dim myCalendar As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set myCalendar = objNameSpace.GetDefaultFolder(9)
myCalendar.Display
'clean up
Set objOutlook = Nothing
Set objNameSpace = Nothing
Set myCalendar = Nothing
End Sub2. Webbrowser mit Webanwendung öffnen:
Private Sub btnBrowserUrl_Click()
URL = "https://administrator.de"
CreateObject("Shell.Application").ShellExecute URL
End SubHiebe habe ich in Outlook nur die Funktion zum minimieren und maximieren gefunden.
Application.ActiveWindow.WindowState = olMinimized Hat jemand ein Snippet wie ich den Outkalender links und den Webbrowser rechts darstellen kann?
Vielen Dank!
Gruß John
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 346857
Url: https://administrator.de/contentid/346857
Printed on: April 24, 2024 at 22:04 o'clock
4 Comments
Latest comment
Das Explorer Object kennt die Eigenschaften Left,Top,width und height 
https://msdn.microsoft.com/de-de/library/ff860356.aspx
Um den aktiven Explorer zu bekommen
https://msdn.microsoft.com/de-de/library/ff870017.aspx
IE Fenster anordnen
Aufruf einer Anwendung im Internet Explorer 11 mit ausgeblendeter URL
Fertig.
Grüß
https://msdn.microsoft.com/de-de/library/ff860356.aspx
Um den aktiven Explorer zu bekommen
https://msdn.microsoft.com/de-de/library/ff870017.aspx
IE Fenster anordnen
Aufruf einer Anwendung im Internet Explorer 11 mit ausgeblendeter URL
Fertig.
Grüß
Vielen Dank für deinen Ansatz.
Leider schlägt das Snippet fehl im While fehl: Laufzeitfehler 424.
Nehme ich das While raus kommt der nächste Fehler bei .Document.
Laufzeitfehler '-214747259 (80004005)': Die Methode 'Document' fpr das Objekt 'IWebBrowser2' ist fehlgeschlagen.
Vielleicht hat noch jemand einen Ansatz. Vielen Dank!
Private Sub btnBrowserUrl_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Addressbar = False
.ToolBar = False
.Navigate "https://administrator.de/"
While (.Busy)
WScript.Sleep 100
Wend
.Width = .Document.parentWindow.screen.Width
.Height = .Document.parentWindow.screen.Height
.Left = 0
.Top = 0
.Document.Title = "BlaBla"
.Visible = True
End With
End SubLeider schlägt das Snippet fehl im While fehl: Laufzeitfehler 424.
Nehme ich das While raus kommt der nächste Fehler bei .Document.
Laufzeitfehler '-214747259 (80004005)': Die Methode 'Document' fpr das Objekt 'IWebBrowser2' ist fehlgeschlagen.
Vielleicht hat noch jemand einen Ansatz. Vielen Dank!
Hier läuft's problemlos!
Hast Du es einfach als Makro in ThisOutlookSession eingefügt?
Ich nutze Office 2016, Markoeinstellung alle deaktiviert.
Ich nutze Office 2016, Markoeinstellung alle deaktiviert.
