VB 用 CDO.Message发邮件能否 只上传存 草稿箱不发送

Question

如题！
我用的代码是大致如下（现在这是网上搜的，不方便打开我自己代码复制，基本是同一种）

Dim NameSpace As String

Dim Email As Object 

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

Text1 = "有人送检啦，快回来检验吧！！"  '邮件的内容

With Email

    .From = "*************" '发件邮箱(此时要改为正确的发件邮箱)

    .To = "*************" '收件邮箱(此时要改为正确的收件邮箱)

    .Subject = "有待检件生成，请查看" '邮件主题

    .TextBody = Text1 '邮件内容

    With Email.Configuration.Fields

        .Item(NameSpace & "sendusing") = 2

        .Item(NameSpace & "smtpserver") = "smtp.163.com"

        .Item(NameSpace & "smtpserverport") = 25 '端口，不要改！

        .Item(NameSpace & "smtpauthenticate") = 1

        .Item(NameSpace & "sendusername") = "*************" '邮箱用户名(此时要改为正确的发件邮箱)

        .Item(NameSpace & "sendpassword") = "*************" '邮箱密码(此处写正确密码)

        .Update

    End With

    .Send

End With

有人说是把 .Send 改成.save就行？我试了出错