johnworks
Goto Top

Outlook Marko: Fenster nebeneinander zeigen

Hallo Zusammen,


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 Sub

2. Webbrowser mit Webanwendung öffnen:
Private Sub btnBrowserUrl_Click()

URL = "https://administrator.de"  
CreateObject("Shell.Application").ShellExecute URL  

End Sub
3. beide Anwendungen in nebeneinander darstellen.

Hiebe 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

Content-ID: 346857

Url: https://administrator.de/forum/outlook-marko-fenster-nebeneinander-zeigen-346857.html

Ausgedruckt am: 23.12.2024 um 01:12 Uhr

133883
133883 21.08.2017 aktualisiert um 17:50:11 Uhr
Goto Top
Das Explorer Object kennt die Eigenschaften Left,Top,width und height face-smile
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üß
JohnWorks
JohnWorks 22.08.2017 um 10:05:46 Uhr
Goto Top
Vielen Dank für deinen Ansatz.

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 Sub

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!
133883
133883 22.08.2017 um 11:14:10 Uhr
Goto Top
Hier läuft's problemlos!
JohnWorks
JohnWorks 22.08.2017 um 13:52:24 Uhr
Goto Top
Hast Du es einfach als Makro in ThisOutlookSession eingefügt?
Ich nutze Office 2016, Markoeinstellung alle deaktiviert.