Option Explicit
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
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("user@domain.com", "MAIL", "")
oMailItem.Subject = "HTML mail with inline Grafik"
oMailItem.BodyText.HTMLText = "That it is
"
oMailItem.Options.UserHold = True
Set oAttachment = oMailItem.Attachments.Add("c:\\Images\\logo.jpg", "cid:myimgcid")
oMailItem.Fields("Priority").Value = 0 '0 = Normal, 1 = Low, 2 = Important
''''' diese Anweisung funktioniert nicht! - was muss hier geändert werden?
oMailItem.Send ' E-Mail absenden
Set oApp = Nothing
Set oAccount = Nothing
Set oArchive = Nothing
Set oMailItem = Nothing
