Private
Function
FetchMailData(HTMLTable
As
MSHTML.HTMLTable,
ByRef
MailData
As
MailDataType)
As
Boolean
On
Error
GoTo
ErrHandler
With
CreateObject(
"VBScript.RegExp"
)
.Global =
True
.IgnoreCase =
True
.MultiLine =
True
Dim
str
As
String
str = HTMLTable.PreviousSibling.innerText
.Pattern =
"\bfor\b"
str = .Replace(str,
"for :"
)
.Pattern =
":\s*\b(.+)\b\s*$"
With
.Execute(str)
MailData.AcceptanceDate = DateConv((.Item(0).SubMatches(0)))
MailData.RequestFor = .Item(1).SubMatches(0)
MailData.RequestDate = DateConv((.Item(2).SubMatches(0)))
End
With
End
With
Dim
tableRow
As
MSHTML.HTMLTableRow
Dim
tableCell
As
MSHTML.HTMLTableCell
Dim
i
As
Long
FetchMailData =
True
Exit
Function
ErrHandler:
FetchMailData =
False
MailData = EmptyMailDataType()
End
Function