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