Можно ли вытащить фрагмент текста из нескольких писем?

Question

Я веб-администратор, и отчеты об ошибках нашего веб-сайта настроены на отправку мне электронных писем при возникновении ошибки.

Я получил около 300+ писем за выходные, все с похожими ошибками. Я хочу экспортировать отчет из электронных писем, который включает только определенную часть текста. Это выполнимо?

Для справки:

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

Я хотел бы экспортировать список всех [HTTP_REFERER]'s из списка электронных писем.

Я хочу исключить, что это была попытка DDOS-атаки.

Изменить: Я понимаю, что это может быть выполнимо, чтобы экспортировать это из суперглобального PHP, но я не достаточно знаком с ним, чтобы знать, будет ли он делать то, что мне нужно

Answer 1

1. В Outlook перейдите в "Параметры", "Настройка ленты" и установите флажок "Разработчик" на правой панели, чтобы включить параметры "Разработчик" на ленте.

2. На ленте нажмите Разработчик, затем Visual Basic.

3. Разверните "Project1" и дважды щелкните "ThisOutlookSession".

4. Вставьте в этот код:

   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. Запустите его (горячая клавиша по умолчанию: F5)

6. Следите за своим непосредственным окном.