wie kann eine E_Mail (unter Entwürfe) gespeichert statt gesendet werden?

Heinz · 15. Januar 2024

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 = "<hmtl><body>That it is<br><img src='cid:myimgcid'></body></html>"

oMailItem.Options.UserHold = True

Set oAttachment = oMailItem.Attachments.Add("c:\\Images\\logo.jpg", "cid:myimgcid")

' oMailItem.Send ' funktioniert

oMailItem.Save ' funktioniert nicht

''''' wie kann eine E_Mail (unter Entwürfe) gespeichert statt gesendet werden?

Set oApp = Nothing

Set oAccount = Nothing

Set oArchive = Nothing

Set oMailItem = Nothing

Wizzard · 16. Januar 2024

Wie ist es wenn du das aktuelle Archive auf den Entwürfe Ordner setzt?
oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalDrafts)

Heinz · 18. Januar 2024

Danke für die schnelle Antwort!

Ich habe es Heute in der Firma geprüft – Funktioniert leider nicht.

Die E-Mail wird wie vorher sofort versendet.

Auch diese Anweisung auf TRUE: oMailItem.Options.UserHold = True

ändert nichts daran. (was macht diese Anweisung überhaupt?)

Gibt es noch eine andere Möglichkeit?

… z.B. mit >>.save<< (wie bei Outlook) ?

Heinz

riawie · 18. Januar 2024

Muss die Mail unbedingt im Entwürfe Ordner landen?

Oder geht es nur darum das sie nicht gleich versandt wird, sondern der Nutzer noch die Chance hat sie zu ergänzen?

Falls ja, dann setze einfach ein @@warten@@ irgendwo in den Nachrichtentext.

Damit landet die Mail dann im Transitordner und bleibt dort so lange stehen bis jemand entweder den Wartestatus aufhebt (Rechtsklick und dann Wartezustand aufheben oder beenden, so genau hab ich das gerade nicht im Kopf) oder aber die Nachricht schlicht per Doppelklick in den Editor lädt und anschließend nach - oder auch ohne - Bearbeitung mit senden abschickt.

Wartende Nachrichten im Transitordner sind standardmäßig nur für den Nutzer unter dessen Kontext sie erstellt wurden und für Administratoren sichtbar, somit sollte das rein funktional eigentlich auch o.k. sein die Nachrichten dort statt im Entwürfe Ordner zu parken.

riawie · 18. Januar 2024

Ansonsten ließe sich noch der David Befehl

@@Archive =>user\100080F0\system\drafts@@

Dazu müsste allerdings die ID 100080F0 aus dem obigen Beispiel durch die tatsächliche UserID des jeweiligen David Nutzers ersetzt werden. Welche Du zu dem Zweck erst mal ermitteln müsstest.

Wir haben das daher damals - als wir sowas genutzt haben schlicht über den eben erwähnten Wartezustand und den Transit Ordner gelöst gehabt

Wizzard · 19. Januar 2024

Zitat von Heinz

oMailItem.Options.UserHold = True

Ist schon der warten Status der Mail.
Hast du das Archive gesetzt bevor du das MailItem erzeugst?

Heinz · 19. Januar 2024

Zitat von Wizzard

Ist schon der warten Status der Mail.
Hast du das Archive gesetzt bevor du das MailItem erzeugst?

Ja, so

'Tobit Archiv einlesen ('102 = Ausgangsarchiv ; '105 = Drafts/Entwürfe)

Set oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalOut)

'''Set oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalDrafts)

'Neuen Archiveintrag anlegen

Set oMailItem = oArchive.NewItem(DvApi32.DvItemTypes.DvEMailItem)

Heinz · 19. Januar 2024

Hi riawie,

Vielen, vielen Dank!

Das mit @@warten@@ hört sich fantastisch an.

Kann es aber erst am Mo. in der Firma testen.

Ich habe dabei auch noch @@Termin +5@@ gefunden.

Wurde das auch gehen bzw. wie groß darf die Zahl mit den Minuten sein?

Sind da z.B. 60 Minuten oder mehr möglich?

Gruß aus Mittelfranken

riawie · 19. Januar 2024

Zitat von Heinz

Wurde das auch gehen bzw. wie groß darf die Zahl mit den Minuten sein?
Sind da z.B. 60 Minuten oder mehr möglich?

reicht eine Woche?

Hab ich jedenfalls gerade mal zum Spaß mit @@Termin +10080@@ getestet, der Auftrag wurde einwandfrei zum Versand am nächsten Freitag angenommen

Heinz · 19. Januar 2024

Eine Woche - lieber nicht. Sonst ist die Brief-Post ja schneller

Danke für die Info

Gruß aus Mittelfranken

Heinz · 22. Januar 2024

Hi,

Die gute Nachricht:

Beim händischen Erstellen einer E-Mail funktionier das mit @@warten@@ und @@Termin +5@@.

Es ist auch egal ob groß oder klein geschrieben; es wird angenommen und ausgeführt.

Die schlechte Nachricht: Wenn ich das Ganze mit VBA-Code mache, funktionier es nicht !?!

Auch mit Leerzeichen davor/danach nicht?

Wo ist da der Fehler? (VBA-Quellcode im nächsten Eintrag)

Heinz

Heinz · 22. Januar 2024

Code

Sub Test_Send2_David()          'Erly Binding
 'Variablen
    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 sMail_Adresse As String
    Dim sMail_Betreff As String
    Dim sMail_BodyText As String
    Dim sMail_AnhangOrt As String

 'Verweis auf DvISE Object (DvAPI32.dll)
    Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
 'Account laden (des lokal angemeldeten Benutzers)
    Set oAccount = oApp.Logon("", "", "", "", "", "AUTH")
 'Tobit Archiv einlesen   ('102 = Ausgangsarchiv ; '105 = Drafts/Entwürfe)
    Set oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalOut)
 'Neuen Archiveintrag anlegen (???)
    Set oMailItem = oArchive.NewItem(DvApi32.DvItemTypes.DvEMailItem)

'E-Mail vorbereiten
    sMail_Adresse = "Mustermann@gmx.de"
    sMail_Betreff = "Bestellbestätigung vom    ...  "   '& Str(Date)
    sMail_BodyText = "Anbei erhalten Sie die Bestellbestätigung für Ihren Auftrag "
    sMail_BodyText = sMail_BodyText & "<br>" & "<b> Com.: Testobjekt in Testhausen </b>"
    ''sMail_BodyText = sMail_BodyText & "<br>" & "@@WARTEN@@"       'Sende-Verzögerung 31 Min.
    sMail_BodyText = sMail_BodyText & "<p>" & "Vielen Dank" & "<br>" & "Firma Mustermann und Co."
    sMail_BodyText = sMail_BodyText & "<br>" & "@@Termin +5@@"       'Sende-Verzögerung 31 Min.
    sMail_AnhangOrt = "h:\Bestellbestätigung.pdf"       'Pfad für Anhang

 'Empfänger; Betreff; E-Mail-Text und Wichtigkeitsstufe: '0 = Normal,1 = Low,2 = Important
    l = oMailItem.Recipients.Add(sMail_Adresse, "MAIL", "")
    oMailItem.Subject = sMail_Betreff
    oMailItem.BodyText.HTMLText = sMail_BodyText
    oMailItem.Options.Priority = 0

 'Dateianhang hinzufügen und absenden
    Set oAttachment = oMailItem.Attachments.Add(sMail_AnhangOrt)
    oMailItem.Send      'Nachricht senden nach >>"@@Termin ..@@"<< Minuten

 'Objektverweise auflösen
    Set oApp = Nothing
    Set oAccount = Nothing
    Set oArchive = Nothing
    Set oMailItem = Nothing
End Sub

Alles anzeigen

Heinz · 2. Februar 2024

Ich habe es jetzt so gelöst, dass ich mit >BodyText.HTMLText< den E-Mail-Text einfüge und die Sende-Verzögerung mit >BodyText.PlainText< mache.

Wenn es jemand gebrauchen kann, hier eine Lösung mit (Excel)-VBA:

Code

Sub Test_Send_David()          'Erly Binding unter (Excel)VBA
 'Variablen
    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 sMail_Adresse As String
    Dim sMail_Betreff As String
    Dim sMail_BodyText As String
    Dim sMail_AnhangOrt As String

 'Verweis auf DvISE Object (DvAPI32.dll)
    Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
    Set oAccount = oApp.Logon("", "", "", "", "", "AUTH")
    Set oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalOut)
    Set oMailItem = oArchive.NewItem(DvApi32.DvItemTypes.DvEMailItem)

'E-Mail vorbereiten
    sMail_Adresse = "Mustermann@gmx.de"
    sMail_Betreff = "Bestellbestätigung vom  " & CStr(Date)
    sMail_BodyText = "Anbei erhalten Sie die Bestellbestätigung für Ihren Auftrag "
    sMail_BodyText = sMail_BodyText & "<br>" & "<b> Com.: Testobjekt in Testhausen </b>"
    sMail_BodyText = sMail_BodyText & "<p>" & "Vielen Dank" & "<br>" & "Firma Mustermann"
    sMail_AnhangOrt = "h:\Bestellbestätigung.pdf"       'Pfad für Anhang

 'Empfänger; Betreff; E-Mail-Text, E-Mail-Verzögerung und Wichtigkeitsstufe:
    l = oMailItem.Recipients.Add(sMail_Adresse, "MAIL", "")
    oMailItem.Subject = sMail_Betreff               'Mail Überschrift
    oMailItem.BodyText.HTMLText = sMail_BodyText    'Mail-Text
    oMailItem.BodyText.PlainText = "@@Termin +5@@"  'Sende-Verzögerung .. Min.
    oMailItem.Options.UserHold = False              'nicht anhalten
    oMailItem.Options.Priority = 0                  '0 = Normal,1 = Low,2 = Important

 'Dateianhang hinzufügen und absenden
    Set oAttachment = oMailItem.Attachments.Add(sMail_AnhangOrt)
    oMailItem.Send      'Nachricht nach >>"@@Termin ..@@"<< Minuten senden

 'Objektverweise auflösen
    Set oApp = Nothing
    Set oAccount = Nothing
    Set oArchive = Nothing
    Set oMailItem = Nothing
End Sub

Alles anzeigen

wie kann eine E_Mail (unter Entwürfe) gespeichert statt gesendet werden?

Thomas 16. Januar 2024

Jetzt mitmachen!

Teilen