unter Excel-VBA die Anweisung >>.Fields("Priority").Value = 0<< wie einsetzen?

  • 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

  • Thomas

    Approved the thread.

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!