Sub HandlePart(Headers As String, Body As String, Msg As Message)
If Regex.Matcher2("Content-Transfer-Encoding:\s*base64", _
Regex.CASE_INSENSITIVE, Headers).Find Then
'we are dealing with an attachment
Dim filename As String
Dim m As Matcher
m = Regex.Matcher2("filename=\s*q([^q]+)q".Replace("q", QUOTE), Regex.CASE_INSENSITIVE, Headers)
If m.Find Then
filename = m.Group(1)
Else
filename = "attachment" & (Msg.Attachments.Size + 1) & DateTime.Now
End If
If filename.StartsWith("attachment") Then
m = Regex.Matcher2("filename=\s*([^\s]+)\s", Regex.CASE_INSENSITIVE, Headers)
If m.Find Then
filename = m.Group(1)
Else
filename = "attachment" & (Msg.Attachments.Size + 1) & DateTime.Now
End If
End If