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