82 lines
3.4 KiB
VB.net
82 lines
3.4 KiB
VB.net
Imports Independentsoft
|
|
Imports System.Text.RegularExpressions
|
|
|
|
Public Class ClassEmailHeaderExtractor
|
|
''' <summary>
|
|
''' Extrahiert die Headerinformationen aus einer .msg Datei mithilfe der MSG.NET Klasse
|
|
''' </summary>
|
|
''' <param name="path">Der Pfad einer .msg Datei</param>
|
|
''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
|
|
Public Shared Function getMessageHeaders(path As String)
|
|
Try
|
|
Dim msg As New Msg.Message(path)
|
|
Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
|
|
Return headers
|
|
Catch ex As Exception
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Extrahiert die Headerinformationen aus einem msg Objekt mithilfe der MSG.NET Klasse
|
|
''' </summary>
|
|
''' <param name="msg">Eine Email vom Typ Msg.Message</param>
|
|
''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
|
|
Public Shared Function getMessageHeaders(msg As Msg.Message)
|
|
Try
|
|
Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
|
|
Return headers
|
|
Catch ex As Exception
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Absenderadresse.
|
|
''' </summary>
|
|
''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
|
|
''' <param name="RegexList">Eine Liste von Regular Expressions</param>
|
|
''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
|
|
''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
|
|
Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
|
|
If IsNothing(messageHeaders) Then
|
|
Return Nothing
|
|
End If
|
|
|
|
For Each rx In RegexList
|
|
Dim match As Match = rx.Match(messageHeaders)
|
|
Dim email As String = match.Groups(RegexGroup).Value
|
|
|
|
If Not String.IsNullOrWhiteSpace(email) Then
|
|
Return email
|
|
End If
|
|
Next
|
|
|
|
Return Nothing
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse.
|
|
''' </summary>
|
|
''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
|
|
''' <param name="RegexList">Eine Liste von Regular Expressions</param>
|
|
''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
|
|
''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
|
|
Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
|
|
If IsNothing(messageHeaders) Then
|
|
Return Nothing
|
|
End If
|
|
|
|
For Each rx In RegexList
|
|
Dim match As Match = rx.Match(messageHeaders)
|
|
Dim email As String = match.Groups(RegexGroup).Value
|
|
|
|
If Not String.IsNullOrWhiteSpace(email) Then
|
|
Return email
|
|
End If
|
|
Next
|
|
|
|
Return Nothing
|
|
End Function
|
|
End Class
|