DvApi32 Status auf wartend stellen mit VBA

  • Hallo Leute mit VB Erfahrung,

    wie stelle ich per VBA den Status einer Email auf wartend, sodass ich diese vor dem Versenden noch einmal überprüfen und evtl. ändern kann.
    Mein Programm steigt bei der Zeile "oMailItem.StatusTime" aus. Ich weiß hier nicht weiter. Habe auch noch nichts dazu gefunden (google).
    Wer kennt sich in diesem Bereich aus, danke im voraus.


    Das Programm sieht so aus:

    Sub DAVID_TEST_EMAIL()

    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

    sAdresse = "x@web.de"
    sAufDat = "14.03.2008"
    sHinweis = "TEST"

    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(sAdresse, "MAIL", "")
    oMailItem.Subject = "Bestellbestätigung " & sAufDat
    oMailItem.BodyText.PlainText = "Anbei erhalten Sie Ihre " & _
    "Bestellbestätigung für Ihren " & _
    "Auftrag vom " & sAufDat
    oMailItem.Options.UserHold = False
    'Set oAttachment = oMailItem.Attachments.Add("c:\Bestellung.rtf")
    oMailItem.StatusTime = True
    oMailItem.Send

    End Sub

  • oMailItem.StatusTime = True

    ist natürlich quatsch, weil er hier kein Bool erwartet.

    Es gibt ein irgendein Hold oder Waiting Property eines Mailitems, dass den Status Wartend repräsentiert. Habe ich nur gerade nicht im Kopf. Steht aber in der Referenz.

  • Hallo dj2k

    oMailItem.StatusTime = True

    ist natürlich quatsch, weil er hier kein Bool erwartet.

    Es gibt ein irgendein Hold oder Waiting Property eines Mailitems, dass den Status Wartend repräsentiert. Habe ich nur gerade nicht im Kopf. Steht aber in der Referenz.

    Ich habe die Lösung gefunden: oMailItem.Options.UserHold = True

    Aber wo finde ich diese Referenz ? :rolleyes:

Jetzt mitmachen!

Du hast noch kein Benutzerkonto auf unserer Seite? Registriere dich kostenlos und nimm an unserer Community teil!