Beiträge von Heinz

Gibt es hier schon eine Lösung?

Excel (64bit) stürz ab wenn ich über VBA und über DvApi32 eine Mail versende!

Excel unter Win11 stürzt bei >> „oMailItem.Send“ << ab und startet dann sofort wieder.

Unter Win7 (Office 2016, 32bit) funktionier es einbandfrei!
Ich habe ein David-Version aus 2018.

Kann es sein, das die DvAPI32.dll unter VBA(64bit) nicht funktioniert?

Gib es da eine Lösung?

Office 2021 (64bit) auf ganz neuem Win11-Rechner.

... den Fehler bekomme ich auf 2 verschiedenen / ganz neuen PCs.

'E-Mail senden (über David aus EXCEL)
   l = oMailItem.Recipients.Add(mMail_Adresse, "MAIL", "")
   oMailItem.Subject = sMail_Betreff                'Betreff-Text
   oMailItem.BodyText.HTMLText = sM_Text            'E-Mail-Text
   oMailItem.BodyText.PlainText = mMail_Termin      'Verzögern ("@@Termin +__@@")
   oMailItem.Options.UserHold = False               'nicht warten
   oMailItem.Options.Priority = 0                   '0=Normal
   Set oAttachment = oMailItem.Attachments.Add(sMail_AnhangOrt)
   oMailItem.Send                                   'absenden 

Das funktioniert unter Win7 (Excel 2016) seit Wochen perfekt.

Unter Win11 (Excel 2021) stürzt Excel bei „oMailItem.Send“ immer ab – die Mail wird nicht versendet!

Hat jemand sowas schon gehabt?

Kann es an irgend welchen Windows-Rechten liegen?

Ich habe es jetzt mehrmals getestet – es funktioniert!

Irgendwelche Nebeneffekte konnte ich (bis jetzt) nicht feststellen.

Mit >BodyText.HTMLText< kann der (sichtbare) E-Mail-Text eingefügt und
gleichzeitig
mit >BodyText.PlainText< kann die (unsichtbare) Sende-Verzögerung in Minuten

eingestellt werden (Code: siehe vorhergehenden Eintrag).

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:

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

Kann >BodyText.HTMLText< und >BodyText.PlainText< in einer E-Mail unter VBA (Excel) gleichzeitig und gemeinsam verwendet werden?
Gibt es hier irgendwelche Nachteile oder Bedenken?

  oMailItem.BodyText.HTMLText = "<b> Com.: Testobjekt </b>"     'MailText
  oMailItem.BodyText.PlainText = "@@Termin +5@@"     'Sende-Verzögerung

Der Grund:

Die David-Steuerfunktion >"@@Termin +5@@"< funktioniert innerhalb eines HTML-Textes (bei mir) nicht.

Ggf. müssen da noch weiter HTML-Steuerbefehle mit eingefügt werden??
Wen ja, Welche?

Habe es bisher nicht hin bekommen, dass diese Steuerfunktion im HTML-Text erkannt wird.

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

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

Danke für die Info

Gruß aus Mittelfranken

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

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)

Sorry, bin neu hier!

Ich suche vergeblich nach eine Möglichkeit unter Excel-VBA eine

E-Mail mit Anhang zu erstellen und nicht(!) gleich zu versenden.

Im Netz gibt’s halt kaum was über Tobit/David unter VBA.

Die vorgenannte Hilfe hilft mir dabei aber auch nicht wirklich weiter.

Habe es gefunden. Es ist die:
DvAPI32.chm.

Kann mit einem pdf-Viewer geöffnet werden (z.B. SumatraPDF)

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

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

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

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

Von einer kompletten API Doku  (DvAPI32)   wäre ich ebenfalls nicht abgeneigt

Der Programm-Code oben funktioniert bei mir (mit oMailItem.Send).

Wie kann ich jedoch eine E-Mail anlegen und NICHT senden, sondern unter Entwürfe ablegen ?

Mit MailItem.save funktionierte es nicht.

… über eine VBA Anwendung auf die ClientAPI zugreifen würde mich auch interessieren …