Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Per VBA Postfach Outlook durchsuchen in umgekehrter Reihenfolge

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

14.11.2017 um 12:52 Uhr, 339 Aufrufe, 3 Kommentare

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
Mitglied: MrCount
14.11.2017 um 13:07 Uhr
Servus,

vielleicht zeigst du uns mal deinen Code, der die Mailboxen durchsucht?

Ansonsten ist hier mal ein Beispiel, wie man sortieren könnte:
01.
Sub SortByDate()  
02.
  Dim myNameSpace As Outlook.NameSpace  
03.
  Dim myFolder As Outlook.Folder  
04.
  Dim myItem As Outlook.MailItem  
05.
  Dim myItems As Outlook.Items  
06.
 
07.
  Set myNameSpace = Application.GetNamespace("MAPI")  
08.
  Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)  
09.
  Set myItems = myFolder.Items  
10.
  myItems.Sort "[ReceivedTime]" 
11.
  For Each myItem In myItems  
12.
   MsgBox myItem.Subject & " ---- " & myItem.ReceivedTime 
13.
  Next myItem  
14.
 End Sub
Bitte warten ..
Mitglied: thomas1972
14.11.2017, aktualisiert um 17:39 Uhr
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
01.
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.

01.
 Dim db As DAO.Database, rs As DAO.Recordset 
02.
     Dim objOutlook As Outlook.Application, objNameSpace As Outlook.NameSpace 
03.
     Dim objMailordner As Outlook.MAPIFolder 
04.
     Dim objGAINMailordner As Outlook.MAPIFolder 
05.
     Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items 
06.
     Dim objEMail As Outlook.MailItem 
07.
     Dim intCtr As Integer 
08.
        
09.
         
10.
      
11.
     Set db = CurrentDb 
12.
      
13.
     Set objOutlook = New Outlook.Application 
14.
     Set objNameSpace = objOutlook.GetNamespace("MAPI") 
15.
 
16.
     Set objMailordner = objOutlook.GetNamespace("MAPI").Folders("Problem").Folders("Posteingang") 
17.
    
18.
    Set objMail = objMailordner.Items 
19.
    objMail.Sort "[ReceivedTime]" 
20.
      
21.
     For Each objEMail In objMail 
22.
     Debug.Print objEMail.Subject & " ---- " & objEMail.ReceivedTime 
23.
          
24.
     Next objEMail 
25.
      
26.
      
27.
     End Sub 
28.
 

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?
Bitte warten ..
Mitglied: 134464
15.11.2017, aktualisiert um 08:32 Uhr
Prüfe die Klasse des Objects in der Schleife...
01.
Dim itm as Object, objEmail as Mailitem 
02.
for each itm in objMail 
03.
    If itm.Class = olMail then 
04.
        set objEmail = itm 
05.
        'Hier geht's weiter 
06.
    End if  
07.
Next
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Freigegebenes Postfach in Outlook 2010 durchsuchen

Frage von trallerMicrosoft Office1 Kommentar

Hallo, ich nutze Outlook 2010 im Verbund mit Exchange und Windows 7. Dort ist bei mir ein Teampostfach mit ...

Microsoft Office

Unterordner durchsuchen Excel VBA

Frage von schwalbepilotMicrosoft Office1 Kommentar

Hi, ich habe mir ein Makro gebastelt, mit dem ich Daten aus mehreren Word Tabellen auslesen kann. Das Makro ...

VB for Applications

Outlook VBA, nur eine bestimmte Anzahl an Items in Ordner durchsuchen

Frage von bigfudgeVB for Applications23 Kommentare

Hallo, Ich habe ein Makro geschrieben, was eigentlich auch funktioniert. Im Grunde durchsucht es einen Folder bei jeder neuen ...

Outlook & Mail

Outlook 2013 mehrere Postfächer gleichzeitug durchsuchen

gelöst Frage von sammy65Outlook & Mail7 Kommentare

Hallo miteinander, einer meiner kollegenhat 3 O365 Postfächer mit komplexen Ordnerstrukturen Nun sucht er ein älteres Mail. Besteht die ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Server
NTFS Berechtigungen Ordnerstruktur
Frage von hukahu23489Windows Server11 Kommentare

Hallo, ich bin seit kurzem in einer neuen IT-Abteilung und bin über das Berechtigungskonzept des Unternehmens sehr schockiert. Ich ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...