3
Per VBA Postfach Outlook durchsuchen in umgekehrter Reihenfolge
Hallo,
habe folgendes Problem,
ich lasse bestimmte Postfächer durchsuchen und eine Access Tabelle eintragen.
Problem hierbei das durchsuchen geht immer von der neues zur ältesten Mail.
Hier liegt das Problem das ich sogn Problemanfragen und Problemlösungen erhalte, nur ist die Problemlösung in der Reihenfolge vor der Problemanfrage.
Aktuell behelfe ich mir, das Postfach 2x durchsuchen zu lassen.
So das im ersten Rundlauf erkannt wird dass ein Problemanfrage da ist und bei zweiten Rundlauf die Problemlösung hierzu erkannt wird.
Nur bei über 14000 Mails dauet dieses unterfangen immer relativ lange.
Daher meine Frage: besteht die Möglichkeit per VBA die Reihenfolge des durchsuchen zu ändern, sprich von ältester Email zu neusten?
Ich hoffe hier kann mir jemand helfen.
Grüße aus München
Thomas
habe folgendes Problem,
ich lasse bestimmte Postfächer durchsuchen und eine Access Tabelle eintragen.
Problem hierbei das durchsuchen geht immer von der neues zur ältesten Mail.
Hier liegt das Problem das ich sogn Problemanfragen und Problemlösungen erhalte, nur ist die Problemlösung in der Reihenfolge vor der Problemanfrage.
Aktuell behelfe ich mir, das Postfach 2x durchsuchen zu lassen.
So das im ersten Rundlauf erkannt wird dass ein Problemanfrage da ist und bei zweiten Rundlauf die Problemlösung hierzu erkannt wird.
Nur bei über 14000 Mails dauet dieses unterfangen immer relativ lange.
Daher meine Frage: besteht die Möglichkeit per VBA die Reihenfolge des durchsuchen zu ändern, sprich von ältester Email zu neusten?
Ich hoffe hier kann mir jemand helfen.
Grüße aus München
Thomas
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 354795
Url: https://administrator.de/contentid/354795
Printed on: April 23, 2024 at 16:04 o'clock
3 Comments
Latest comment
Servus,
vielleicht zeigst du uns mal deinen Code, der die Mailboxen durchsucht?
Ansonsten ist hier mal ein Beispiel, wie man sortieren könnte:
vielleicht zeigst du uns mal deinen Code, der die Mailboxen durchsucht?
Ansonsten ist hier mal ein Beispiel, wie man sortieren könnte:
Sub SortByDate()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myItem As Outlook.MailItem
Dim myItems As Outlook.Items
Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myFolder.Items
myItems.Sort "[ReceivedTime]"
For Each myItem In myItems
MsgBox myItem.Subject & " ---- " & myItem.ReceivedTime
Next myItem
End Sub
Hallo vielen Dank für die Info,
sortieren erfolgt nun wie gewünscht.
Was mich wundert, (ist mir bei meinem Code auch schon aufgefallen), dass wenn er das Postfach durchsucht hat immer einen LaufzeitFehler 13 -> Typen unverträglich erzeugt und bei
stehen bleibt. Kann es am externen Postfach liegen oder können es zu viele Mails sein?
Vielleicht kann jemand erkennen, warum der LaufzeitFehler erzeugt wird..ich habe den Code zum eigentlichen einlesen in den Tabellen weg gelassen. daher deutlich gekürzt.
UPDATE
Konnte mittlerweile feststellen, dass es sich um Emails im Postfach vom Typ KALENDER (zugesagte Besprechungen) bzw. Unzustellbarkeitsmeldungen handelt.
FRAGE: Wie kann ich beim einlesen vorgeben, dass es nur Inhalte vom TYP Mail (Keine Besprechungszusagen) eine Berücksichtigung finden soll, bzw. Mails mit Inhalt unzustellbar ignoriert werden?
sortieren erfolgt nun wie gewünscht.
Was mich wundert, (ist mir bei meinem Code auch schon aufgefallen), dass wenn er das Postfach durchsucht hat immer einen LaufzeitFehler 13 -> Typen unverträglich erzeugt und bei
Next objEMail (bei Mouseover Hinweis nothing)stehen bleibt. Kann es am externen Postfach liegen oder können es zu viele Mails sein?
Vielleicht kann jemand erkennen, warum der LaufzeitFehler erzeugt wird..ich habe den Code zum eigentlichen einlesen in den Tabellen weg gelassen. daher deutlich gekürzt.
Dim db As DAO.Database, rs As DAO.Recordset
Dim objOutlook As Outlook.Application, objNameSpace As Outlook.NameSpace
Dim objMailordner As Outlook.MAPIFolder
Dim objGAINMailordner As Outlook.MAPIFolder
Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items
Dim objEMail As Outlook.MailItem
Dim intCtr As Integer
Set db = CurrentDb
Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objMailordner = objOutlook.GetNamespace("MAPI").Folders("Problem").Folders("Posteingang")
Set objMail = objMailordner.Items
objMail.Sort "[ReceivedTime]"
For Each objEMail In objMail
Debug.Print objEMail.Subject & " ---- " & objEMail.ReceivedTime
Next objEMail
End SubUPDATE
Konnte mittlerweile feststellen, dass es sich um Emails im Postfach vom Typ KALENDER (zugesagte Besprechungen) bzw. Unzustellbarkeitsmeldungen handelt.
FRAGE: Wie kann ich beim einlesen vorgeben, dass es nur Inhalte vom TYP Mail (Keine Besprechungszusagen) eine Berücksichtigung finden soll, bzw. Mails mit Inhalt unzustellbar ignoriert werden?
Prüfe die Klasse des Objects in der Schleife...
Dim itm as Object, objEmail as Mailitem
for each itm in objMail
If itm.Class = olMail then
set objEmail = itm
'Hier geht's weiter
End if
Next
