Rubrik: Outlook | VB-Versionen: VBA | 14.05.04 |
Outlook: Website per VBA laden und darstellen Im folgenden Tipp wird gezeigt, wie sich Webseiten mit Hilfe von VBA-Makros in Outlook darstellen lassen. | ||
Autor: Stephan Kraus | Bewertung: | Views: 16.175 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Im folgenden Tipp wird gezeigt, wie sich Webseiten mit Hilfe von VBA-Makros in Outlook darstellen lassen. Verknüpft man die Makros mit Schaltern einer eigenen Toolbar, läßt sich so leicht eine Link-Leiste realisieren, wie sie bswp. im Internet-Explorer existiert.
Sub ZeigeHTMLSeite() Dim objApp As Application Dim objExp As Explorer Dim objNameSpace As NameSpace Dim objFolder As MAPIFolder Dim strURLalt As String Dim t ' Fehlerbehandlung aktivieren On Error GoTo ErrHandler ' Objekte instanzieren Set objApp = Outlook.Application Set objExp = objApp.ActiveExplorer Set objNameSpace = objApp.GetNamespace("MAPI") Set objFolder = objNameSpace.GetDefaultFolder(olFolderInbox).Parent ' alte URL auslesen strURLalt = objFolder.WebViewURL ' neue URL zuweisen objFolder.WebViewURL = "http://www.vbarchiv.net" ' neue URL öffnen Set objExp.CurrentFolder = objFolder ' hier noch ein wenig warten, bis die alte URL ' wieder zurückgeschrieben wird t = Timer While t + 3 > Timer DoEvents Wend ' alte URL zurückschreiben objFolder.WebViewURL = strURLalt On Error Goto 0 Exit Sub ErrHandler: MsgBox Err.Description + ": " + CStr(Err.Number) End Sub