'Beachte die Position der Anführungszeichen
.Body = "<img src=Http:\\DeinServer\BildGif.gif/>"

 Function GetBase64(path As String) As String
        Dim i As Image = Image.FromFile(path)
        Dim sb As New StringBuilder
        sb.Append("<h2>Test</h2> <img src=data:image/gif;base64,")
        Using ms As New MemoryStream
            i.Save(ms, Drawing.Imaging.ImageFormat.Gif)
            sb.Append(Convert.ToBase64String(ms.ToArray))
            sb.Append(">")
            Return sb.ToString
        End Using
    End Function
.Body = GetBase64("C:\tmp\holl1.gif")

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus