Dim mailadress As String = "test@web.de"
        Dim mailitemx As Outlook.MailItemClass
        Dim Mailx As New Outlook.Application
        mailitemx = CType(Mailx.Application.CreateItem( _
          Outlook.OlItemType.olMailItem), Outlook.MailItemClass)
        mailitemx.Body = "hallo dies ist ein Test aus Visual Basic"
        mailitemx.To = mailadress
        mailitemx.Send()