VB.NET - Dienst auf API zugreifen

Hallo,

ich will einen Dienst erstellen der mit der Tobit API zusammen arbeiten soll.

Dafür habe ich als grundlage das Beispiel aus der API hilfe genommen.

Diese Funktion läuft auch bei mir, nun wollte ich das Programm als Windows Dienst laufen lassen und da bekomme ich immer die Fehlermeldung ganz unten in meinem Beitrag in der geht es um die Funktion DVEmlFromMailItem.

Hat jemand eine Idee warum die Funktion in meinem Programm super läuft aber in meinem Dienst nicht?

    Public Declare Function DVEmlFromMailItem Lib "DvApi32" (ByVal oMailItem As Object, ByVal strFileName As String) As Long

    Public Sub MailArchivierung()


    Dim oApp As Object

    Dim oAccount As Object

    Dim oArchive As Object

    Dim oMailItem As Object

    Dim oMessageItems As Object

    Dim Filename, Zielpfad As String

    Dim i As Integer


    oApp = CreateObject("DVOBJAPILib.DvISEAPI")

    oAccount = oApp.Logon("####", "####", "####", "", "", "AUTH")


    oArchive = oAccount.GetArchive("System/Archivieren/in")


    oMessageItems = oArchive.AllItems



    For i = 0 To oMessageItems.Count - 1

    If oMessageItems.Item(i).Type = 2 Then

    oMailItem = oMessageItems.Item(i)

    Filename = Space(255)

    If DVEmlFromMailItem(oMailItem, Filename) <> 0 Then

    Filename = Filename.Remove(Filename.IndexOf(".tmp") + 4, 1).Trim.ToCharArray

    Zielpfad = "C:\Test\" & CreateFileName() & ".eml"

    If System.IO.File.Exists(Filename.Trim) Then

    My.Computer.FileSystem.CopyFile(Filename.Trim, Zielpfad.Trim, True)

    End If

    End If

    End If

    Next

    oArchive = Nothing

    oMailItem = Nothing

    oMessageItems = Nothing

    Filename = Nothing

    Zielpfad = Nothing

    End Sub

Der Dienst kann nicht gestartet werden. System.AccessViolationException: Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist.

bei TobitArchiving.Archivierung.DVEmlFromMailItem(MailItem oMailItem, String& strFileName)

bei TobitArchiving.Archivierung.MailArchivierung() in O:\VisualStudio\Projekte\TobitArchiving\TobitArchiving\Archivierung.vb:Zeile 64.

bei TobitArchiving.Archivierung..ctor(IApplication oApp, Account oAccount, String QuellArchiv, String Zielpfad, Int32 _Timer) in O:\VisualStudio\Projekte\TobitArchiving\TobitArchiving\Archivierung.vb:Zeile 29.

bei TobitArchiving.TobitEmailArchivierung.OnStart(String[] args) in O:\VisualStudio\Projekte\TobitArchiving\TobitArchiving\TobitEmailArchivierung.vb:Zeile 19.

bei System.ServiceProcess.ServiceBase.ServiceQueuedMainCallback(Object state)

Bearbeitet 6. Juni 200817 j von dennis_dorni