Dim Anlag_STream As IO.Stream
Anlag_STream = RP.ExportToStream( _
  CrystalDecisions.Shared.ExportFormatType.HTML40)
Anlag_STream.Seek(0, SeekOrigin.Begin)
Dim htmlView As New AlternateView(Anlag_STream, _
  System.Net.Mime.MediaTypeNames.Text.Html)
 
Msg.AlternateViews.Add(htmlView)