Dim szHTML as String

Private Sub Form_Load()
 
    With WebBrowser
        .Silent = True
        .navigate "C:\Flyer\Flyer.htm"   '<- oder wie auch immer :-)
    End With
 
End Sub

Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 
    '- HTML Quelltext auslesen -
 
    Dim HTML As HTMLDocument
    Set HTML = WebBrowser.Document
    szHTML = HTML.documentElement.outerHTML
    Set HTML = Nothing
 
End Sub

Private Sub SendMail()
 
    With sevSMTP
 
        '- Verbindungsdaten -
 
        .SenderName = "..."
        .Organization = "..."
        .SenderEMail = "..."
        .ServerName = "..."
        .ServerPort = 25
        .UserName = "..."
        .Password = "..."
        .Notification = False
        .Sensitivity = SensitivityNormal
        .Priority = Normal
        .SMTPAuth = True
 
        '- Nachricht senden -    
 
        If .Connect() Then
            .MessageHTML = szHTML
            .Recipient = "..."
            .Subject = "..."
            .AutoAttachEmbeddedImages = True
 
            If .IsConnected() = True Then
                .SendMail
            End If
        End If
 
        '- Verbindung trennen - 
 
        .Disconnect
 
    End With
 
End Sub

CardManager (SmartCard Tools a la CARD)