Dim olapp As Object
Dim oitem As Object

Set olapp = CreateObject("Outlook.Application")
Set oitem = olapp.CreateItem(0)
With oitem
.Subject = "Testar email med VB och Outlook objektet"
.To = "email@hemma.se;"
.Body = "Meddelandet sändes från VB"
.Send
End With
Set olapp = Nothing
Set oItem = Nothing