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

gelöst VBA in Outlook Nachrichten als SPAM kennzeichnen Fehlermeldung

Mitglied: 69304

69304 (Level 1)

23.02.2010, aktualisiert 13:33 Uhr, 4424 Aufrufe, 3 Kommentare

Hallo Leute!

Ich habe in VBA von Outlook ein Skript geschrieben, dass beim reinkommen der Nachricht den Betreff überprüft auf eine Zeichenfolge (z.B. Viagra).
Die Nachricht soll dann als "*SPAM*" gekennzeichnet werden.

Dies funktionierte auch noch soweit, bis ich eine FileReader hinzugefügt habe, der Zeilen einer Text-Datei ausliest und dieses dann als Kriterium nimmt.

Die Fehlermeldung lautet dann: "Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt"

Diese tritt an der Zeile mit "If InStr(oEmail.HTMLBody, SpamKriterium) > 0 Then" auf, wenn ich per Break-Points versuche den Fehler zu ermitteln. Alles davor geht.

Hier mein Code, ich hoffe jemand findet den Fehler....

01.
Private Sub Application_NewMail()
02.
    Dim oNS As Outlook.NameSpace
03.
    Dim oInbox As Outlook.MAPIFolder
04.
    Dim oEmail As Outlook.MailItem
05.
    Dim i As Integer
06.
    Dim SpamKriterium As String
07.
    Dim SpamDateipfad As String
08.
    Dim SpamKennzeichnung As String
09.
    
10.
    SpamDateipfad = "C:\spam.txt"
11.
    SpamKennzeichnung = "*****SPAM*****"
12.
    Set oNS = Application.GetNamespace("MAPI")
13.
    Set oInbox = oNS.GetDefaultFolder(olFolderInbox)
14.
    
15.
    Open SpamDateipfad For Input As #1
16.
    Do While Not EOF(1)
17.
        Line Input #1, SpamKriterium
18.
    
19.
        For i = 1 To oInbox.Items.Count
20.
            Set oEmail = oInbox.Items.Item(i)
21.
            If oEmail.UnRead = True Then
22.
                If InStr(oEmail.HTMLBody, SpamKriterium) > 0 Then
23.
                    oEmail.Subject = SpamKennzeichnung & oEmail.Subject
24.
                    oEmail.UnRead = True
25.
                    oEmail.Save
26.
                End If
27.
            End If
28.
        Next i
29.
        Set oInbox = Nothing
30.
        Set oNS = Nothing
31.
    Loop
32.
    Close #1
33.
End Sub
Mitglied: 76109
23.02.2010 um 14:58 Uhr
Hallo rbrixel !

An der Zeile mit InStr fällt mir kein Fehler auf, allerdings ist die Codezeile 29 und 30 falsch plaziert. Sollte logischerweise erst nach dem Loop kommen.

Gruß Dieter
Bitte warten ..
Mitglied: 69304
23.02.2010 um 15:01 Uhr
jupp, das wars... thx ;)

01.
Private Sub Application_NewMail()
02.
'-------------------------------------------------------
03.
' Outlook-Anti-Spam
04.
' Überüprüfung in Text-Body, HTML-Body, Betreff, Sender Email-Adresse, Sender Email-Name
05.
' anhand Wörter aus Textdatei
06.
'-------------------------------------------------------
07.
    Dim oNS As Outlook.NameSpace
08.
    Dim oInbox As Outlook.MAPIFolder
09.
    Dim oEmail As Outlook.MailItem
10.
    Dim i As Integer
11.
    Dim SpamKriterium As String
12.
    Dim SpamDateipfad As String
13.
    Dim SpamKennzeichnung As String
14.
    
15.
    SpamDateipfad = "C:\spam.txt"
16.
    SpamKennzeichnung = "*****SPAM*****"
17.
    Set oNS = Application.GetNamespace("MAPI")
18.
    Set oInbox = oNS.GetDefaultFolder(olFolderInbox)
19.
    
20.
    Open SpamDateipfad For Input As #1
21.
    Do While Not EOF(1)
22.
        Line Input #1, SpamKriterium
23.
        For i = 1 To oInbox.Items.Count
24.
            Set oEmail = oInbox.Items.Item(i)
25.
            If oEmail.UnRead = True Then
26.
                If InStr(oEmail.HTMLBody, SpamKriterium) > 0 Or InStr(oEmail.Subject, SpamKriterium) > 0 Or InStr(oEmail.SenderEmailAddress, SpamKriterium) > 0 Or InStr(oEmail.SenderName, SpamKriterium) > 0 Or InStr(oEmail.Body, SpamKriterium) > 0 Then
27.
                    oEmail.Subject = SpamKennzeichnung & oEmail.Subject
28.
                    oEmail.UnRead = True
29.
                    oEmail.Save
30.
                End If
31.
            End If
32.
        Next i
33.
    Loop
34.
    Set oInbox = Nothing
35.
    Set oNS = Nothing
36.
    Close #1
37.
End Sub
Bitte warten ..
Mitglied: 76109
23.02.2010 um 15:18 Uhr
Hallo rbrixel!

Keine Ursache! Den Beitrag könntest Du aber noch auf gelöst setzen

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA-Skript .showalldata Fehlermeldung
gelöst Frage von nolevaVB for Applications3 Kommentare

Hallo Community, ich habe ein Skript geschrieben, welches mir automatisch beim starten alle Filter in jeder Tabelle entfernt und ...

Outlook & Mail
Outlook 2016 Spam Problem
gelöst Frage von angler2001Outlook & Mail6 Kommentare

Hallo, ich benutze Outlook 2016 und habe folgendes Problem. Die Einstellungen für die Spam Mails scheinen nicht mehr zu ...

Exchange Server
Outlook Exchange 2016 SPAM
Frage von alexlazaExchange Server5 Kommentare

Hallo, mein lieber Vorgesetzter hat die Befürchtung das die Mitarbeiter seine Adresse als Spam markiert haben xD jedoch hat ...

Microsoft Office

Abfrage durch vba von Oracle-DB, Fehlermeldung

Frage von famsprengeMicrosoft Office

Hallo zusammen, ich versuche mit Excel-vba eine Abfrage von einer Oracle-Datenbank durchzuführen. Der Code läuft durch bis zum Öffnen ...

Neue Wissensbeiträge
Windows 7
Updategängelung auf Windows 10, die zweite
Information von Penny.Cilin vor 21 MinutenWindows 7

Hallo, da Windows 7 im kommenden Jahr nicht mehr supportet wird, werden Nutzer von Window 7 home premium wieder ...

Internet
EU-Urheberrechtsreform: Zusammenfassung
Information von Frank vor 2 TagenInternet1 Kommentar

Auf golem.de gibt es eine Analyse von Friedhelm Greis, der das Thema EU-Urheberrechtsreform gut und strukturiert zusammenfasst. Zwar haben ...

Microsoft Office

Office365 Schwachstellen bei Sicherheit und Datenschutz

Information von Penny.Cilin vor 3 TagenMicrosoft Office7 Kommentare

Auf Heise+ gibt es einen Artikel bzgl. Office365 Schwachstellen. Das ist noch ein Grund mehr seine Daten nicht in ...

Sicherheit
Schwachstellen in VPN Clients
Tipp von transocean vor 5 TagenSicherheit2 Kommentare

Moin, es gibt Sicherheitslücken bei VPN Clients namhafter Hersteller, wie man hier lesen kann. Gruß Uwe

Heiß diskutierte Inhalte
Tipps & Tricks
Verdammt voll erwischt
Frage von AlchimedesTipps & Tricks23 Kommentare

Folgende Mail habe ich auf meinem Freenet Account erhalten: Nun folgendes Problem: 1) Ich besuche Porno Seiten yep hat ...

Windows 10
Laufwerks-Mapping über Batch - Laufwerke werden zu spät im Explorer angezeigt
Frage von PhilzipWindows 1015 Kommentare

Hallo zusammen, ich habe beim Thema Laufwerksmapping via Batch ein Phänomen, welches ich so noch nicht kannte. Per Batch ...

Vmware
Richtige Einstellungen beim ESXI 6.5 in Sachen CPU Zuweisung bei einer VM
gelöst Frage von zeroblue2005Vmware13 Kommentare

Hallo Zusammen, heute wollte ich mal fragen, wie ich eine VM die richtige Anzahl der von CPUs zuweise. Bin ...

Vmware
ESXI hebt Registrierung von Masschinen auf
Frage von SpitzbubeVmware12 Kommentare

Hallo, nutze seit einiger Zeit für meine IT Projekte einen alten HP G7 Server mit ESXi 6.5 und einem ...