Email versand mit Visual Basic

Zitat

Original von o_g_r
Da bin ich auch mal gespannt

Ich habe inzwischen eine Antwort:

Zitat

von ARC InterCom:
Hallo

danke für die zusätzliche Information. Unter diese Vorraussetzungen konnte der Sachverhalt nachvollzogen werden. Wir haben den Effekt an die Abteilung Softwareentwicklung weitergegeben. Bitte haben Sie verständniss dafür das wir zum derzeitigen Zeitpunkt nicht sagen können wann und ob der Sachverhalt behoben werden kann.

Möglicherweise wird die gewünschte Funktion in einem der nächsten Service Packs oder Releases enthalten sein und damit einer Vielzahl von Nutzern zur Verfügung stehen.

Alle Informationen zu neuen Funktionen stehen bei Erscheinen von neuen Service Packs oder Releases zum Beispiel im Club Tobit Software unter zur Verfügung. Oder wenden Sie sich bei der nächsten Neuerscheinung einfach telefonisch oder schriftlich an uns, wir informieren Sie dann gerne auch individuell.

Viele Grüße aus Ahaus!

Von Tobit Software
Datum 10.5.2007

Vielleicht wirds dann irgendwann später mal was...

Hallo Forum,
bin neu hier und bekomme beim Kompilieren des u.g. Beispiels (Dim oApp As DvApi32.IApplication
) die Fehlermeldung: Benutzerdefinierter Type nicht definiert.

Was muss ich tun?
Danke
Bruno

Zitat von o_g_r

Hallo Forum,

ich arbeite gerade an einer Möglichkeit Mails mit David und VB zu versenden.

Folgender Code macht das:

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

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.Send

Leider finde ich nicht heraus wie ich das erzeugte Mail vor dem Versand im InfoCenter öffnen kann. Kann jemand von Euch mir helfen?

Gruß,

Ralf

Alles anzeigen

Hast Du denn das David DvAPI32 Zeugs im Club Tobit runtergeladen und in VB eingebunden?
Ohne das kennt VB die Zuweisungen natürlich nicht.
Wie das geht kann ich dir aber nicht sagen, höchstens bei Delphi (2006).

Alt+F11

Menü --> Extras --> Verweise

Dort DvISE Object API 1.0 Type Library

Verweis erstellt