冰点 发表于 2011-3-9 10:08
应该是 改了标题吧?
我只看到这个哦

教程声音很磁性，但是真人嘛。。。

回复 3# 冰点

根本没改什么标题！我发啦2贴！一贴是发送邮件源码的，一贴是其他对象操作的！
这是不是 审核通过？
    您发表的主题 发送邮箱-源码-对象类-核心支持 已经审核通过！ 2011-3-4 21:43

被删除的话，系统会自动发消息给你的，应该是在审核

应该是 改了标题吧?
我只看到这个哦

无聊发几个对象操作的！
http://www.3600gz.cn/viewthread.php?tid=41650

Private Sub Command1_Click()
    Dim objEmail As Object
    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = "*****@qq.com"
    objEmail.To = "*****@qq.com"
    objEmail.Subject = "邮件主题"
    objEmail.Textbody = "邮件正文"
    objEmail.AddAttachment "C:\demo.txt"                                    '附件内容
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.qq.com"
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "用户名"
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "密码"
    objEmail.Configuration.Fields.Update
    objEmail.Send
End Sub