|
Momentan wird versucht ein Ticketsystem über Outlook und Acces zu bauen. Allerdings kommt bei Outlook immer die Fehlermeldung:
Fehler beim Kompilieren:
Benutzerdefinierter Typ nicht definiert.
Habe den Code so aus der Zeitschrift Access im Unternehmen übernommen und soweit ich weiß auch alle benötigten Verweise eingerichtet.
Verweise sind: Visual Basic for Applications, Microsoft Outlook 14.0 Object Library, OLE Automation, Microsoft Office 14.0 Object Library, Microsoft Offe 14.0 Access database engine Object und Microsoft Access 14.0 Object Library
Die erste Zeile des Codes wird mir in Gelb makiert.
Public Sub Application_Startup_Ticketverwaltung()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objFolder As Outlook.Folder
Dim objFolderArchiv As clsFolderArchiv
Dim strTicketsystemDatenbank As String
On Error GoTo Application_Startup_Err
strTicketsystemDatenbank = DatenbankpfadHolen("Ticketsystem", "Datenbankpfad")
Set db = DBEngine.OpenDatabase(strTicketsystemDatenbank, , True)
Set rst = db.OpenRecordset("SELECT * FROM tblOptionen", dbOpenDynaset)
Set colFolders = New Collection
Do While Not rst.EOF
Set objFolderArchiv = New clsFolderArchiv
With objFolderArchiv
Set objFolder = GetFolderByPath(rst!Verzeichnis)
If objFolder Is Nothing Then
MsgBox "Der in der Export-Datenbank '" & strTicketsystemDatenbank & "' angegebene Outlook-Ordner '" _
& rst!Verzeichnis & "' ist nicht in Outlook vorhanden. Wählen Sie diesen nun erneut aus."
Set objFolder = Outlook.GetNamespace("MAPI").PickFolder
db.Execute "UPDATE tblOptionen SET Verzeichnis = '" & objFolder.FolderPath & "'", dbFailOnError
End If
Set .Folder = objFolder
.AnlagenSpeichern = rst!AnlagenSpeichern
Set .Database = db
.NeuEinlesen = rst!NeuEinlesen
.Groesse = Nz(rst!Groesse)
End With
colFolders.Add objFolderArchiv
If rst!Rekursiv Then
UnterordnerInstanzieren objFolder, db, Nz(rst!Groesse), rst!NeuEinlesen, rst!AnlagenSpeichern, colFolders
End If
rst.MoveNext
Loop
End Sub
|