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")

Dim objOutlook As Object
 
Set objOutlook = GetObject(, "Outlook.Application")
If objOutlook Is Nothing THEN
  Set objOutlook = CreateObject("Outlook.Application")
End If
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Set objOutlook = GetObject(, "Outlook.Application")

Set objOutlook = CreateObject("Outlook.Application")

Gruß
Dirk

--
?Get it right the first time