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:     [ Jetzt bewerten ]	Views:  15.453
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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