VBA Tipp: HTML-Tags entfernen

Aus DBWiki
Wechseln zu: Navigation, Suche

Problem

Ich möchte alle HTML-Tags aus einem String entfernen.

Lösung

Das geht mit der folgenden Umwandlungsroutine:

Public Function RemoveHTML(S)
Dim Res As Variant, Ch As String * 1, _
  I As Long, out As Boolean
Res = Null
If Not IsNull(S) Then
  out = True
  For I = 1 To Len(S)
    Ch = Mid(S, I, 1)
    Select Case Ch
      Case "<": out = False
      Case ">": out = True
      Case Else: If out Then Res = Res & Ch
    End Select
  Next I
End If
RemoveHTML = Res
End Function

Aufruf

Dim objOL As Outlook.Application
Dim objMail As Outlook.MailItem
Dim Res As String
 
Set objMail = objOL.CreateItem(olMailItem)
' ...
Res = Nz(RemoveHTML(objMail.HTMLBody), "")