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

238
Tiffany

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

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

Для справки:

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

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

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

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

1

1 ответ на вопрос

1
Horn OK Please

  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. Следите за своим непосредственным окном.

Какова была цель редактирования @Gareth? Я не вижу никакой разницы в этом посте. Можете ли вы объяснить, пожалуйста? Я не обижаюсь, просто растерялся. Horn OK Please 7 лет назад 0
Просто небольшое редактирование, чтобы выровнять код с шагом 4. 3498DB 7 лет назад 0

Похожие вопросы