Abfrage Parameter (Datum älter als 360 Tage)

Hallo Mike

Besten Dank für deine Antwort, naja in Sachen VBA hat ich bereits leichte Konfrontationspunkte im Excel, ich weiß nicht in wieweit das das zu vergleichen ist.

Danke LG

Hallo Christian,

ich glaube dass meine Antwort dazu nicht wirklich hilfreich für Dich seien wird und empfehle daher ein neues Thema auf zu machen.

Outlook und somit auch die MAildatenbank von Outlook kannst Du mit Access "verknüpfen" nennt sich dann Office Automation. Ich mache sowas auch, aber ausschließlich in VBA. Deiner ersten Frage nach darf ich schlussfolgern dass Du (noch) nicht mit VBA gearbeitet
hast.

Da ich schon nach 3 Wochen aufgegeben habe mit irgendwelchen Accessassistenten zu arbeiten und das auch schon weit über 20 JAhre her ist kann ich Dir nicht sagen wie man die passenden Tabellen per Mausklick verknüpft. Aber ich bin mir sicher dass auch das
geht. Wenn Dich die VBA Variante interessiert und bei Dir die notwendigen Grundkenntnisse vorhanden sind helfe ich Dir gerne weiter.

Viel Erfolg

Gruß Mike

Hallo Christian,

unter dem Feld im Kriterium kannst Du < Date() - 365 schreiben um alle Datensätze die ein kleineres Datum in diesem Feld haben als das aktuelle Datum weniger 365 Tage.

Viel Erfolg

Gruß Mike

Hallo Mike

Besten Dank für deine rasche Antwort

Ich habe deine Code mal in ein Modul geschrieben, wenn ich das Ausführe kommt in der Taskleiste ein das Outlook Symbol mit einen orangen Zahnrad, aber danach passiert irgendwie nichts mehr ich glaube ich habe mit meinen fehlenden Know How wirklich etwas
nicht verstanden.

LG Chris

Hallo Christian,

das sollte auch keine Beleidigung oder so sein. Es ist halt nur so dass es schon ein wenig Erfahrung braucht um Outlook zu automatisieren. Hier wie versprochen der erste Ansatz mit dem Du auf Outlook zugreifst und Dir die Liste der verfügbaren Datenbanken
ausgibst.

Sub testOL()

On Error Resume Next

Dim OL As Object, objFolder As Object

Dim objTask As Object, objRecipient As Object, objAction As Object

Dim i As Long, S As String

Set OL = CreateObject("Outlook.Application")



For i = 0 To 100

Set objFolder = OL.GetNamespace("MAPI").GetDefaultFolder(i)

Debug.Print i & " : " & OL.GetNamespace("MAPI").GetDefaultFolder(i) & " Anzahl : " & Nz(objFolder.Items.Count)

Next i



End Sub

Das kannst Du in ein Modul kopieren und dann im Direktfenster ausführen. Du wirst sehen dass der Folder 6 der Posteingang ist. Mit den zwei Befehlszeilen

Set OL = CreateObject("Outlook.Application")

Set objFolder = OL.GetNamespace("MAPI").GetDefaultFolder(6)

beinhaltet die Variable objFolder Deinen Posteingang. Jetzt fehlt nur noch eine Schleife die dort alle Objekte (evtl. gefiltert) durchläuft

For Each objTask In objFolder.Items

NEXT objTask

und da in der Mitte eben irgendwas mit dem objTask machen. z.B. IF objTask.Subject = "*** Die E-Mail-Adresse wurde aus Datenschutzgründen entfernt. ***" then ...

Da gibt es aber massen an Beispielen. Um zu erfahren was hinter dem Punkt von objTask stehen kann einfach unter Verweise mal Outlook anhacken und mit F2 im VBA Editor den Objectkatalog Outlook aufrufen. Da stehen dann links die Kategorien und rechts die
verfügbaren Befehle.

Viel Erfolg und frag ruhig nach bevor Du zu lange suchst.

Gruß Mike