Ist es möglich, einen Textausschnitt aus mehreren E-Mails zu ziehen?

304
Tiffany

Ich bin ein Webadministrator und die Fehlerberichterstattung unserer Website ist so eingerichtet, dass ich mir E-Mails schicke, wenn ein Fehler auftritt.

Ich habe am Wochenende mehr als 300 E-Mails mit ähnlichen Fehlern erhalten. Ich möchte einen Bericht aus den E-Mails exportieren, der nur einen bestimmten Teil des Textes enthält. Ist das machbar?

Als Referenz:

[HTTP_HOST] => www.ourwebsite.com [HTTP_REFERER] => http://www.refererwebsite.com

Ich möchte eine Liste aller [HTTP_REFERER]'sE-Mails aus der Liste exportieren .

Ich möchte ausschließen, dass dies ein DDOS-Angriff war.

Edit: Ich weiß, dass es vielleicht machbar ist, dies aus dem PHP-Superglobal zu exportieren, aber ich bin nicht vertraut genug, um zu wissen, ob es das tut, was ich brauche.

1

1 Antwort auf die Frage

1
Horn OK Please

  1. Wechseln Sie in Outlook zu Optionen, Multifunktionsleiste anpassen, und aktivieren Sie das Kontrollkästchen neben "Entwickler" im rechten Bereich, um die Entwickleroptionen in der Multifunktionsleiste zu aktivieren.

  2. Klicken Sie in der Multifunktionsleiste auf Entwickler und dann auf Visual Basic.

  3. Erweitern Sie "Project1" und doppelklicken Sie auf "ThisOutlookSession".

  4. Fügen Sie diesen Code ein:

    Sub dragonborn() 'Declare variables Dim fus As Object, ro As Object, dah As String, wuld As RegExp, na As MatchCollection 'Set up the regular expression defining what you want to look for Set wuld = New RegExp wuld.Pattern = "HTTP_REFERER\]\s*=>\s*(.+)" 'Get your "Inbox" mailbox folder for the current open account Set fus = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 'Loop through each item in Inbox that's an email For Each ro In fus.Items On Error GoTo here If TypeOf ro Is Outlook.MailItem Then dah = ro.Body 'Attempt to match the email's body against your regex pattern Set na = wuld.Execute(dah) If na.Count > 0 Then 'Print the result to the Immediate Window (View -> Immediate Window) if there's a match Debug.Print na.Item(0).SubMatches(0) End If End If here: On Error GoTo 0 Next End Sub

  5. Führen Sie es (Standard Hotkey: F5)

  6. Beobachte dein unmittelbares Fenster.

Was war der Zweck der Bearbeitung von @Gareth? Ich sehe keinen Unterschied in der Post. Kannst du bitte Erklären? Ich bin nicht beleidigt, nur verwirrt. Horn OK Please vor 7 Jahren 0
Nur eine kleine Bearbeitung, um den Code an Schritt 4 anzupassen. 3498DB vor 7 Jahren 0

Verwandte Probleme