不知道论坛是为什么？难到开源的贴可以被删？？

ccini

下面是我发帖时间与通过

您发表的主题 发送邮箱-源码-对象类-核心支持 已经审核通过！ 2011-3-4 21:43 查看 通过

但是隔啦2天贴就无提示信息 被删？？？




以被删除？




真是失望啊我！



以下是系统提示消息！  呵呵牛人啊！煮熟的鸭鸭飞啦！


再以下是发送邮件的VB源码



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

ccini

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

冰点

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

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

果子

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

ccini

回复 3# 冰点

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

ccini

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

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