2 probleme mit der api

  • Hallo,
    ich hoffe mir kann jemand helfen...

    'Vorarbeiten:
    'Neue EMail erstellen
    'Ein Bild kopieren und in den Text einfügen
    'Mail in Vorlagen abspeichern

    'Visual Studio öffen
    'Visual Basic Forms Anwendung erstellen
    '2 Buttons auf die Form ziehen
    'Verweis zu DvApi32 hinzufügen
    'Diesen Code einfügen
    'Die Mailadressen in dem Code durch Ihre ersetzen

    Imports DvApi32

    Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'Problem: Bilder werden nicht mitgesendet


    Dim oApp As DvApi32.IApplication
    Dim oAccount As DvApi32.Account
    Dim oArchive As DvApi32.Archive
    Dim oMailItem As DvApi32.MailItem = Nothing
    oApp = CreateObject("DVOBJAPILib.DvISEAPI")
    oAccount = oApp.Logon()
    oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalTemplate)
    oMailItem = oArchive.AllItems.Item(0)
    oMailItem.Subject = "Bilder lassen sich nicht mit senden"
    oMailItem.Recipients.Add("entwickler@abc.de")
    oMailItem.Send()


    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    'Problem: Beim abspeichern fehlt der Pfad
    Dim oApp As DvApi32.IApplication
    Dim oAccount As DvApi32.Account
    Dim oArchive As DvApi32.Archive
    Dim oMailItem As DvApi32.MailItem = Nothing
    oApp = CreateObject("DVOBJAPILib.DvISEAPI")
    oAccount = oApp.Logon()
    oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalIn)
    oMailItem = oArchive.NewItem(DvApi32.DvItemTypes.DvEMailItem)
    oMailItem.BodyText.PlainText = "Erhalte nach dem Abspeichern nicht den Pfad der Mail"
    oMailItem.Subject = "Erhalte nach dem Abspeichern nicht den Pfad der Mail"
    oMailItem.Recipients.Add("entwickler@abc.de")
    Call oMailItem.Save(oArchive, DvMessageSelectionTypes.DvMsgSelAuto)
    Try
    'Der Grund, warum ich den Pfad benötige:
    Call Process.Start("tic://" & oMailItem.TextSource)
    Catch ex As Exception
    'Folgender Fehler wird erzeugt:
    'Um
    eine indizierte Eigenschaft auszuwerten, muss die Eigenschaft
    qualifiziert sein, und die Argumente müssen explizit vom Benutzer
    bereitgestellt werden.
    MsgBox(ex.ToString)
    End Try

    End Sub
    End Class


    lg
    olli

  • Hallo

    1. Folgende Zeilen vor dem Versenden einfügen:
    for each oAttachment in oMailItem.Attachments
    oAttachment.ChangeFileName "?TJ?"
    next

    2. Ich würde
    DvMessageSelectionTypes.DvMsgSelAuto
    durch
    DvMessageSelectionTypes.DvMsgSelDirect
    ersetzen. Dann sollte die Abfrage nach dem Dateinamen
    funktionieren.

    MfG

Jetzt mitmachen!

Du hast noch kein Benutzerkonto auf unserer Seite? Registriere dich kostenlos und nimm an unserer Community teil!