Eigener HTML-Code im UserForm

Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _  
    ByVal dwMilliseconds As Long)

Private blnLoad As Boolean
Public emailHT As String

Private Sub UserForm_Activate()
    WebBrowser1.Navigate2 "about:blank"  
    Do While blnLoad
        DoEvents
        Sleep 10
    Loop

    WebBrowser1.Document.Body.innerHTML = emailHT
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
        URL As Variant, Flags As Variant, TargetFrameName As Variant, _
        PostData As Variant, Headers As Variant, Cancel As Boolean)
    blnLoad = True
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    blnLoad = False
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    With WebBrowser1.Document.Body
        .Scroll = "no"  
        .Style.Border = "none"  
    End With
End Sub


Sub web()
    
    emailHT = "<H1>neuer Inhalt</H1>"  
    
    showEmail.Show modal


End Sub

    showEmail.Show modal
    
    With showEmail
        .WebBrowser1.Document.Body.innerHTML = "ee"  
        .Repaint
    End With