Dim olApp As Object
Dim oItem As Object
olApp = CreateObject("Outlook.Application")
oItem = olApp.CreateItem(0)
With oItem
.Subject = LStr_Betreff
.To = LStr_Empfaenger
.Body = LStr_Nachricht
.send()
End With

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de