E-Mail nicht sofort senden, Vorschau anzeigen

Hallo!

Ich nutze die DvApi32 um per VB.NET E-Mails zu versenden. Mit der Funktion 'oMailItem.Send' wird die E-Mail allerdings immer sofort versendet. Gibt es eine Möglichkeit, die E-Mail nur vorzuschlagen und dann anzuzeigen, so dass der Benutzer die E-Mail noch weiterbearbeiten kann und dann selbst auf "Senden" klicken muss?

Beim Versand mit MAPI kann ich z.B. angeben .Send(True), so dass die E-Mail nicht direkt versendet werden kann. Ich möchte aber nicht mit MAPI sondern lieber mit der David-API arbeiten.

Vielen Dank im Voraus!
Daniel

Zitat von derdaniel

Hallo!

Ich nutze die DvApi32 um per VB.NET E-Mails zu versenden. Mit der Funktion 'oMailItem.Send' wird die E-Mail allerdings immer sofort versendet. Gibt es eine Möglichkeit, die E-Mail nur vorzuschlagen und dann anzuzeigen, so dass der Benutzer die E-Mail noch weiterbearbeiten kann und dann selbst auf "Senden" klicken muss?

Beim Versand mit MAPI kann ich z.B. angeben .Send(True), so dass die E-Mail nicht direkt versendet werden kann. Ich möchte aber nicht mit MAPI sondern lieber mit der David-API arbeiten.

Vielen Dank im Voraus!
Daniel

Alles anzeigen

Hallo auch,

genau nach dieser lösung würde ich auch suchen - man kann zwar die eMail auf "Wartend" stellen - dann ist aber die Gefahr sehr groß, dass das versenden vergessen wird.....

Bitte bitte, gibts da bereits schon eine lösung

Hab folgenden Code in Access (VBA) hinterlegt:

-----------------------------------------------------------------------------------------

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 = "info@testadresse.de"
sAufDat = "1.1.2010"
sHinweis = "TEST-Hinweis"

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.pdf")
oMailItem.Send
-----------------------------------------------------------------------------------------

Danke für eure Hilfe

Gruß

Stefan

Jockel:

nee, leider gibts da nix was irgendwie passen würde..... leider

Hoffe drauf, das mir Tobit selbst eine lösung schreibt bzw. mitteilt - ist ja evtl. nur ein anderer Befehl

Wenn ich was erfahre stells ich selbstverständlich auch hier rein - sollen ja alle was davon haben.... oder?!

Gruß

Stefan

so, hier die Lösung:

Eine "Modul" mit z.B. den Namen "Tobit Versand" erstellen:

Zitat

Option Compare Database

Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Function TobitVersand(InputType As String, InputTo As String, Optional InputCc As String, Optional InputSubject As String, Optional InputBodyText As String, Optional InputAttachment As String)

Dim Link As String

Link = "tic://message?type=" & InputType & "&to=" & InputTo & "&cc=" & InputCc & "&subject=" & InputSubject & "&bodytext=" & InputBodyText & "&attachment=" & InputAttachment & "&ignoretemplate=1"
Call ShellExecute(GetDesktopWindow(), "Open", Link, "", "", 1)

'---------------------------------------------------------------------------------------------------------------------------------------

'mögliche Werte bei InputType: "sms"; "tmail"; "email"; "fax" (z.B. "email")
'mögliche Werte bei InputTo: eMail-Adresse oder FaxNr. in "" (z.B. "to.adresse@test.de")
'mögliche Werte bei InputCc: eMail-Adresse oder FaxNr. in "" (z.B. "cc.adresse@test.de")
'mögliche Werte bei InputSubject: Der Betreff in "" (z.B. "Betreff")
'mögliche Werte bei InputBodyText: Der Nachrichtentext in "" (z.B. "Nachrichtentext")
'mögliche Werte bei InputAttachment: Der Dateipfad zu der anzuhängenden Datei in "" (z.B. "c:\Anhang.pdf")

'Beispiel:
'Call TobitVersand("email", "to.adresse@test.de", "cc.adresse@test.de", "Betreff", "Nachrichtentext", "c:\Anhang.pdf")

'---------------------------------------------------------------------------------------------------------------------------------------
End Function

Alles anzeigen

Dann die Funktion mit übergabe der Parameter einfach wie folgt aufrufen (Beispiel):

Zitat

Call TobitVersand("email", "to.adresse@test.de", "cc.adresse@test.de", "Betreff", "Nachrichtentext", "c:\Anhang.pdf")

was nicht benötigt wird (z.B. wird ja nicht immer die "Bcc"-Adresse benötigt) einfach mit "" auslassen

Beispiel:

Zitat

Call TobitVersand("email", "to.adresse@test.de", "", "Betreff", "Nachrichtentext", "c:\Anhang.pdf")

(gleiches geht natürlich beim Anhang, Nachrichtentext, Betreff, usw....)

Hoffe das hilft einigen weiter - für Verbesserungsvorschläge bin ich natürlich auch gerne bereit....

PS: funktioniert auf jeden Fall mit dem aktuellen Tobit David fx; Access 2003 und Windows7 Ultimate (und das beste, man braucht die DavidAPI nicht registriert haben da man diese ja nicht benötigt )

Gruß

Stefan

ach ja, was Tobit mir geschrieben hat (und ich somit zu der Lösung gekommen bin):

Zitat

Dies ist so leider nicht möglich, Herr XXXXXX.
Sie müssen an dieser über das David Client Scipt gehen, oder direkt das TIC-Protokoll.
Hier müßten die Nachrichten zuvor jedoch gespeichert werden.

Erweiterung für tic Protocol:
tic://message?Parameterliste

Parameter:
BodyText
To
Cc
Subject
Attachment
Ignoretemplate ( = 1 -> Editor ohne Vorlage öffnen)
Type
"sms"
"tmail"
"email"
"fax"
"ect" -> to gibt dann die Rufnummer an
default ist "auto"

Beispiel:
tic://message?type=tmail&to=ua@tobit.com&subject=Test&bodytext=Hallo%20dies%20ist%20ein%20test&attachment=E:\dumpbin.exe&ignoretemplate=1

Viele Grüße aus Ahaus!

Alles anzeigen

falls es jemand benötigt.....

Und nochmals Danke an TOBIT - ihr seit spitze!!!!!

DANKE - DANKE - DANKE - DANKE - DANKE - DANKE - DANKE - DANKE

Hallo Joe78

Ich habe so ein ähnliches Problem mit Excel VBA gelöst.

Hier ein Code-Auszug

ChDrive "C:\"
ChDir "c:\Program Files (x86)\Tobit InfoCenter\DVSMAPI\"
Set myshell = CreateObject("Wscript.shell")
Anhang = "C:\Pdf\Flansch.pdf"
DvsExe = "dvsmapi.exe" & " " & Anhang
myshell.Run DvsExe

Dieser Code öffnet eine neue Nachricht (wenn Vorlagen für neue Nachrichten definiert sind, mit dieser Vorlage)

Der Anhang wird angehängt, du musst nur noch eine Adresse, Betreff angeben und absenden

hoffe, das hilft dir weiter

Gruss meierjo

Moin moin,

gibt es bei

Zitat

tic://message?type=tmail&to=ua@tobit.com&subject=Test&bodytext=Hallo%20dies%20ist%20ein%20test&attachment=E:\dumpbin.exe&ignoretemplate=1

die Möglichkeit, mehrere Anhänge zu übergeben und/oder einen ganzen Ordnerinhalt?

beste Grüße, Michael

Hallo Michael,

ab David fx kann man den Befehl &attachment mehrmals wiederholen.

Hallo allerseits,

ich weiß, der Thread ist schon recht alt, aber ich habe eine Frage zu einem Beitrag: Ich nutze den Code von edv-master (25.05.2010 23:30 Uhr). Im Prinzip genau das, wonach ich schon seit Monaten gesucht hatte; allerdings habe ich noch einen "unschönen" Nebeneffekt: Trotz korrekter Nutzung der Groß- und Kleinschreibung werden aus meinem Datenbankformular leider als Betreff und Nachricht nur Kleinbuchstaben übergeben.

An was kann das liegen bzw. was kann ich tun, um es zu ändern?

Danke im Voraus für Eure Unterstützung!

Gruß Nobby