Hi

I am using Itemadd event to capturing the attributes of the outgoing mail.
But it is capturing wrong date time.


Code:

Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=D:\Projects\Access-Outlook\Outlook.mdb;"
'open a recordset
Set rs = New ADODB.Recordset
rs.Open "select * from SentItems", cn, adOpenStatic, adLockOptimistic

rs.AddNew

rs.Fields("ConversationIndex") = item.ConversationIndex
rs.Fields("Identifier") = Left(item.ConversationIndex, 40)
rs.Fields("Subject") = item.Subject
rs.Fields("SentDateTIme") = item.SentOn
rs.Fields("Recipients") = item.To
rs.Fields("CC") = item.CC
rs.Fields("MessageBody") = item.Body
rs.Fields("Importance") = item.Importance
rs.Fields("User") = VBA.Environ("UserName")



rs.Update
rs.Close

End Sub
It is capturing date as 1/1/4501

Can You please let me what is causing this error and what is its resolution

Please help