Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Nach mehreren Betreffen suchen (Outlook)
zurück: Zualte Mails mit VBA löschen weiter: Outlook 2010: Änderung der 'Ganztags Ereignis' - Zeitvorgabe Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Tinga12
Gast


Verfasst am:
12. März 2014, 14:41
Rufname:

Nach mehreren Betreffen suchen (Outlook) - Nach mehreren Betreffen suchen (Outlook)

Nach oben
       Version: Office 2010

Hallo,

gibt es eine Möglichkeit nach mehreren Betreffen zu suchen

bis jetzt hab ich nur

Set myItem = myItems.Find("[Subject] = Test")

Ich würde jedoch gerne 2 Begriffe im Betreff suchen Smile

hoffe ihr habt da was für mich ich habe bis jetzt nur was für Exeltabellen gefunden was nicht funktionniert hat
Michael Bauer
MVP Outlook


Verfasst am:
12. März 2014, 20:30
Rufname:
Wohnort: Vollersode


AW: Nach mehreren Betreffen suchen (Outlook) - AW: Nach mehreren Betreffen suchen (Outlook)

Nach oben
       Version: Office 2010

Hallo,

schau Dir in der VBA-Hilfe das Beispiel zu AdvancedSearch an. Den Filter kannst Du erweitern und mit AND oder OR nach mehreren Betreffs suchen.

_________________
Michael Bauer
Tools für Microsoft Outlook
Tinga12
Gast


Verfasst am:
13. März 2014, 10:24
Rufname:

AW: Nach mehreren Betreffen suchen (Outlook) - AW: Nach mehreren Betreffen suchen (Outlook)

Nach oben
       Version: Office 2010

Ich habe mir das mal angeschaut und probiert umzusetzten.

Jedoch bekomme ich nur fehler Sad

Wenn ich es jedoch nur nach einem Begriff suche klappt es !

Ich denke mein Fehler liegt irg wie bei der If anweisung leider weiß ich nicht wo




Sub Betreff ()
Dim i As Integer
Dim obj As Object
Dim Mail As Outlook.MailItem

Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(6)
Set myItems = myInbox.Items

For i = 1 To 20 Set obj = Items.Item(i)
If TypeOf obj Is Outlook.MailItem Then
Set Mail = obj.Find("[Subject] = Test_2")
' Irgendwas mit dem Objekt machen
End If
If TypeOf obj Is Outlook.MailItem Then
Set Mail = obj.Find("[Subject] = Test")
End iF
Next

Dim Nachricht As Object, OutApp As Object

Set Nachricht = Outlook.CreateItem(0)

Select Case obj

Case "Test"
'was er machen soll wenn er Test gefunden hat
Case "Test_2"

End Sub
Michael Bauer
MVP Outlook


Verfasst am:
13. März 2014, 22:25
Rufname:
Wohnort: Vollersode

AW: Nach mehreren Betreffen suchen (Outlook) - AW: Nach mehreren Betreffen suchen (Outlook)

Nach oben
       Version: Office 2010

Die Prüfung des Objekttyps (If typeof) brauchst Du in der Schleife nur einmal. Entweder es ist ein MailItem oder nicht, das ändert sich nicht. Danach kannst Du den Betreff mehrfach so prüfen:

If Mail.Subject="abc" then
....
Elseif Mail.Subject="def" then
....
Endif

_________________
Michael Bauer
Tools für Microsoft Outlook
Tinga12
Gast


Verfasst am:
18. März 2014, 10:52
Rufname:


AW: Nach mehreren Betreffen suchen (Outlook) - AW: Nach mehreren Betreffen suchen (Outlook)

Nach oben
       Version: Office 2010

Danke hat geklappt musste deine Lösung nur mit for each bisschen verfeinern Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Mail: Outlook Web Access 0 =(Apache)= Com. 2019 01. Jul 2004, 13:07
=(Apache)= Com. Outlook Web Access
Keine neuen Beiträge Outlook Mail: Outlook druckt HTML mails ohne linken Rand 1 kubu 3429 24. Jun 2004, 14:59
kubu Outlook druckt HTML mails ohne linken Rand
Keine neuen Beiträge Outlook Mail: adressbuch von notes nach outlook 0 obsession 2011 22. Jun 2004, 09:30
obsession adressbuch von notes nach outlook
Keine neuen Beiträge Outlook Mail: Wie aktiviere ich den Web Link im Outlook 2002?? 0 Fietschoo 5022 07. Jun 2004, 01:40
Fietschoo Wie aktiviere ich den Web Link im Outlook 2002??
Keine neuen Beiträge Outlook Mail: Outlook Regel 1 Bernett22 5125 15. Mai 2004, 10:24
domin8tor Outlook Regel
Keine neuen Beiträge Outlook Mail: Outlook geht nicht 2 Frank Jensen 5230 11. Mai 2004, 20:24
Frank Jensen Outlook geht nicht
Keine neuen Beiträge Outlook Mail: T-online emails abrufen mit outlook 2000 4 angross 5629 28. Apr 2004, 17:26
Gast T-online emails abrufen mit outlook 2000
Keine neuen Beiträge Outlook Mail: Probleme bei Email-Vesand mit Outlook 2003 bei DFUE und LAN 4 bigmastermind 4426 20. Apr 2004, 14:15
outlook-newbie Probleme bei Email-Vesand mit Outlook 2003 bei DFUE und LAN
Keine neuen Beiträge Outlook Mail: Outlook 2003 - enable html Signatur 9 butterbrot 6550 02. Apr 2004, 08:57
cluster Outlook 2003 - enable html Signatur
Keine neuen Beiträge Outlook Mail: Senden/Empfangen bei Outlook 2003 6 DerMattze 5630 24. März 2004, 23:30
fdsa Senden/Empfangen bei Outlook 2003
Keine neuen Beiträge Outlook Mail: weiterleitung im outlook 2003 funktioniert nicht 6 jawaui 9475 23. März 2004, 19:00
Jawaui weiterleitung im outlook 2003 funktioniert nicht
Keine neuen Beiträge Outlook Mail: Konten ein- / ausschalten bei Outlook 2003 3 rpdrechsel 3018 03. März 2004, 17:46
domin8tor Konten ein- / ausschalten bei Outlook 2003
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum