文章关键字 ‘电子邮件’

今天发短信问同学才知道经济法（开学到现在只去过两次）有小论文布置，而且老师要求在12月3日之前把论文的电子版发到他的邮箱，否则平时成绩按0分处理。

天啊，今天可是12月6日！平时成绩可是30分啊！没有平时成绩的话基本是不可能及格了！怎么办？根据爱因斯坦的相对论，时间是不可能倒流的，但是这并不表示我们不能向“过去”发邮件。在网络的世界，时间只不过是0和1罢了。

Const Email_From = "still.demon@gmail.com"
Const Password = "password"
Const Email_To = "jingjifa@163.com" '只是假想的邮箱
Set CDO = CreateObject("CDO.Message")
CDO.Subject = "From The Future"
CDO.From = Email_From
CDO.To = Email_To
CDO.TextBody = "Hello world!"
Const schema = "http://schemas.microsoft.com/cdo/configuration/"
With CDO.Configuration.Fields
    .Item(schema & "sendusing") = 2
    .Item(schema & "smtpserver") = "smtp.gmail.com"
    .Item(schema & "smtpauthenticate") = 1
    .Item(schema & "sendusername") = Email_From
    .Item(schema & "sendpassword") = Password
    .Item(schema & "smtpserverport") = 465
    .Item(schema & "smtpusessl") = True
    .Item(schema & "smtpconnectiontimeout") = 60
    .Update
End With
CDO.Send

把系统时间改成12月3日，用上面的代码发送邮件（理论上用邮件客户端也行，但是我没有测试），在163邮箱显示的发送时间是12月3日哦。幸好老师的邮箱是163的~