VB中用下列函数发邮件，为什么我收到邮件的日期是1970年？

Question

我的邮件系统里面收到的邮件显示的时间是1970年，可是outlook里查看发送和接收时间正常。什么原因呢？  如果说是我邮件系统的问题，那我用outlook 发封邮件到我的邮件系统里面，上面显示的时间却是准确的。请各位帮忙，谢谢！Private Function Send_eMail(sendto As String, subject As String, text As String) As Boolean
           On Error GoTo ErrHandler
           MAPISession1.SignOn
           MAPIMessages1.SessionID = MAPISession1.SessionID
           With MAPIMessages1
                   .Compose
                   .RecipDisplayName = sendto
                   .AddressResolveUI = True
                   .ResolveName
                   .MsgSubject = subject
                   .MsgNoteText = text
                   .MsgType = 0
                   .MsgIndex = -1
                   .Send
          End With
          Send_eMail = True
          MAPISession1.SignOff
         Exit Function
         
ErrHandler:
         MsgBox Err.Description
        Send_eMail = False
End Function

Answer 1

接收部分也是你写的吗？应该是接收部分的问题吧？

Answer 2

两部分都发出来吧,你描述的问题很奇怪,单说不能确定是哪部分的问题