Dim out As Object         
Set out = CreateObject("Outlook.Application")
 
With out.CreateItem(olMailItem)     
    .Recipients.Add "email@email.de"  'Feld An:
    .Recipients.Add("email2@email.de").Type = olCC 'Feld CC
    .Subject = "Testnachricht"  'Betreff-Feld definieren
    .Body = Text1.Text  'Nachrichtentext 
    .Attachments.Add "c:\vb6sfs\lekt14\smile.bmp" 'Mit diesem befehl werden die 
    '     Anhänge hinzugrfügt
    .Send  'Sofort in den Postausgang kopieren
    .Display 'oder erst auswählen
    'zwischen einem der beiden befehle auswählen
End With