merdere onderwerpen Outlook Macro

[Juzzz]

als je een zoek citeria doed kan je bv kiezen of je alleen het onderwerp wil zoeken of ook in de tekst van het bericht en kan je meerdere zoeken acties tegelijk doen m.b.v. een; twee; etc

Ik heb al een macro voor één zoek opdracht in het onderwerp:

Public Sub spam_uitzoeker_V1()

Dim ns As NameSpace
Dim Item As MailItem
Dim Atmt As Attachment

Set ns = GetNamespace("MAPI")
Set Spambox = ns.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Spam")

    If Spambox.Items.Count = 0 Then
       MsgBox "De Spam map is leeg YEAH!", vbInformation, _
               "Geen spam gevonden"
    End If
    
    For Each Item In Spambox.Items
        If Item.Subject Like "*Viagra*" Then
            Item.Delete
        End If
    Next

End Sub

alleen deze marco kan maar één zoekfunctie perkeer doen en alleen in het onderwerp zoeken en ik volgens mij ook nog hoofdlettergevoellig.

ik wil een macro die allerlei woorden zoekt in het onderwerp en in de tekst zelf en die dan automatisch verwijderd.

kan iemand mij daarbij helpen?

 

[Wigi]

Breid de IF function dan uit met meerdere opties:

If Item.Subject Like "*Viagra*" Or Item.Subject Like "*sex*" Then
            Item.Delete
        End If

Wigi

 

[Juzzz]

is dat wel handig..?
kan je geen lijst maken of zo en dan een for lus maken tot de lijst klaar is?

nu zoekt hij alleen nog maar op onderwerp ik wil ook zoeken in het tekst van het bericht zelf ^^.

ps. is deze zoek funcite nou hoofdlettergevoelig of niet?

 

[Wigi]

Gebruik dan een Select Case statement.

Voor de rest: ik ben geen Outlook programmeur, wel in Excel.

Wigi

 

[Juzzz]

Gebruik dan een Select Case statement.

Voor de rest: ik ben geen Outlook programmeur, wel in Excel.

Wigi

hehe ja dat is goed. maar ik ben ook geen Outlook programmaur. met er pas een ebetje naar gaan kijken maar wil het nou niet echt helemala gaan leren of zo. misschien ene andere taal like VB of zo

 

[Juzzz]

hoe werkt die case dan..?
denk je dat je een voorbeeld kan maken?

 

[Wigi]

Hoi, zie http://www.codeforexcelandoutlook.com/outlook.html

 

[Juzzz]

echt raar:

Public Sub spam_uitzoeker_V1()

Dim ns As NameSpace
Dim Item As MailItem
Dim Atmt As Attachment

Set ns = GetNamespace("MAPI")
Set Spambox = ns.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Spam")

    If Spambox.Items.Count = 0 Then
       MsgBox "De Spam map is leeg YEAH!", vbInformation, _
               "Geen spam gevonden"
    End If
    
    For Each Item In Spambox.Items
        If Item.Subject Like "*Viagra*" Then
            Item.Delete
        End If
    Next

End Sub

en nu geetf hij een fout aan bij de Next ..... hoe kan dat nou
als ik Next weg haal zegt ie: moet next hebben
en er bij is ook een fout....