Public Sub Command1_Click()
  Dim olApp As Outlook.Application
  Dim oItem As Outlook.MailItem
 
  'Outlook-Objekt anlegen:
  Set olApp = New Outlook.Application
  Set oItem = olApp.CreateItem(olMailItem)
  With oItem
    'Adressen:
    .To = "name@server.de;willi@wacker.de"
    .CC = "kopie@server.de"
    .BCC = "unsichtbar@server.de"
 
    'Nachricht:
    .Subject = "Test-Nachricht"
    .Body = "Eine Nachricht aus VB heraus:" & vbNewLine & _
            "bla bla ..." & vbNewLine & _
            "noch mehr bla bla ..."
 
    ' Anzeigen
    .Display
  End With
End Sub

Set olApp = New Outlook.Application

Set objOutlook = CreateObject("Outlook.Application")