Outlook Mail in Access Tabelle einspielen

S

susi8989

Grünschnabel
Hallo,
Habe im Internet folgende Anweisung gefunden :-)
http://www.access-paradies.de/news/kolumne_01_2005.php
funktioniert nur leider nicht. :confused:
Unser IT-Mensch hat sich es soweit angeschaut und meinte alles sei richtig (eingestellt) aber es kommt die Fehlermeldung: zu Zeile 9
Set DBS = Conn.OpenRecordset("EingangMails", dbOpenDynaset)
Laufzeitfehler 13 Typen unverträglich

Vielen Dank für Eure Hilfe
 
Was für ein Datentyp ist DBS ?
Ich hoffe du vermischt nicht die verschiedenen Versionen von DAO oder ADO.
 
Die Codezeile ist Richtig, wenn die Variablendeklarationen stimmen.
Paste hier mal deinen kompletten Code der Funktion, vielleicht hast du dich irgendwo vertippt.
Ansonsten hast du die Verknüpfungen zu Outlook gesetzt ?
Dazu wechseln Sie in die Entwicklungsumgebung von Access, indem Sie die Tastenkombination<Alt> + <F11> drücken. Wählen Sie aus dem Menü Extras den Befehl Verweise und aktivieren Sie die Bibliothek Microsoft Outlook 9.0 Object library (Office 2000), Microsoft Outlook 10.0 Object library (Office XP), bzw. Microsoft Outlook 11.0 Object library (Office 2003). Aktivieren Sie zusätzlich die Bibliothek Microsoft DAO 3.6 Object library.
Zum Vergrößern anklicken....
Welche Access Version setzt du ein?
 
Habe ich alles gemacht, genau nach Anweisung! Habe den Code einfach kopiert! :confused:
Unser IT-Mensch hat mal drüber geschaut, hat kein Fehler gefunden, allerdings meinte er mit VB oder VBA von Access kenne er sich nicht allzu gut aus. :(
Ich habe überhaupt keinen blassen Schimmer davon, trotz Bücher verstehe ich nur Bahnhof, leider. :(
habe Outlook und Access 2002 drauf, das alles läuft unter Windows XP.

Nochmals Herlichen Dank für jegliche Hilfe!
 
im zweifel einfach mal dbs als variant deklarieren und testen... sollte eigentlich laufen.
Ist Stilistisch nicht schön, aber es klappt. :-)

Solle es mit variant klappen, sind nicht alle Bibliotheken aktiviert die benötigt werden.
 
Der Fehler liegt meines Erachtens an einer anderen Stelle.
Versuch mal einen Breakpoint in der ersten Zeile zu setzen in deiner Funktionen (links auf in der Zeile auf den Rand klicken). Dann sollte er dir die Zeile markieren. Wenn du die Funktion ausführst, kannst du mit F8 die Zeilen einzeln durchwandern. Mach das so lange bis du in die Zeile mit dem Fehler kommst.

Ich versteh nicht wozu die DAO Verknüpfung für 3.6 setzen, da das die Access 2000 Version ist.
 
@mage
Habe den Breakepoint (Sub EingangsMailsAusOutlookÜbernehmen) gesetzt und bin mit F8 weiter hat die DIM Anweisungen übersprungen und hat dann "Set Conn = CurrentDb" gelb makiert -> F8 hat "Set DBS = Conn.OpenRecordset("EingangMails", dbOpenDynaset)" gelb markiert und als ich jetzt wieder F8 gedrückt habe kam Fehlermeldung: Laufzeitfehler 13 Typ unverträglich meint der nun jetzt die nächste Anweisung: "IntMailZ = 0" damit

@Nirraven
dbs als variant deklarieren : ist das nicht schon das hier? Dim DBS As Recordset


Lieben Dank Ihr alle!
 
Also, die erklärung such ich noch, aber ein weg das problem zu lösen ist:

Code: 
Sub EingangsMailsAusOutlookÜbernehmen()
Dim OutlN As New Outlook.Application
Dim Eingangsbox As Object
Dim objKon As Object
Dim DBS
Dim Conn
Dim IntMailZ As Integer
 
Set Conn = CurrentDb
Set DBS = Conn.OpenRecordset("EingangMails", dbOpenDynaset)
IntMailZ = 0

Dim DBS as Recordset is ja eine deklaration als ein Recordset Objekt und nicht als Variant
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück