Private Sub MandantToolStripMenuItem_Click(sender As System.Object, e As _
      System.EventArgs) Handles MandantToolStripMenuItem.Click
        Dim objOL As New Outlook.Application
        Dim objMail As Outlook.MailItem
        Dim Signature As String
        Dim oAccount As Outlook.Account
 
 
        For Each oAccount In objOL.Session.Accounts
 
            'Wenn besonderer Account verwendet werden soll
            If oAccount.DisplayName = "meine.Mailadresse@beispiel.de" Then
                Signature = GetMailSignatur()
 
                'lokale Mailvorlage
                'objMail = CType(objOL.CreateItemFromTemplate( 
                ' My.Computer.FileSystem.SpecialDirectories.MyDocuments & 
                ' "\MeineVorlage.oft"), Outlook.MailItem)
 
                'normale Email
                objMail = CType(objOL.CreateItem( _
                  Outlook.OlItemType.olMailItem), Outlook.MailItem)
                With objMail
                    If txtEmailadresse.Text.Length > 0 Then .Recipients.Add( _
                      txtEmailaddresse.Text)
                    objMail.SendUsingAccount = oAccount
                    .BodyFormat = Outlook.OlBodyFormat.olFormatHTML
                    .Display()
                End With
            End If
        Next
    End Sub