Sub test()
Dim oApp As DvApi32.IApplication
Dim oAccount As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oMailItem As DvApi32.MailItem
Dim oAttachment As DvApi32.Attachment
Dim l As Long
Dim sAdresse As String
Dim sAufDat As String
Dim sHinweis As String
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
Set oAccount = oApp.Logon("", "", "", "", "", "AUTH")
Set oArchive = oAccount.GetSpecialArchive( _
DvApi32.DvArchiveTypes.DvArchivePersonalOut)
Set oMailItem = oArchive.NewItem(DvApi32.DvItemTypes.DvEMailItem)
l = oMailItem.Recipients.Add("email@maxmuster.de", "MAIL", "")
oMailItem.Subject = ""
oMailItem.BodyText.HTMLText = ""
oMailItem.Options.UserHold = False
oMailItem.send
End Sub