vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Outlook   |   VB-Versionen: VBA14.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 KrausBewertung:  Views:  16.175 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11kein 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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.