精易论坛

标题: 不知道论坛是为什么？难到开源的贴可以被删？？ [打印本页]

作者: ccini 时间: 2011-3-9 01:49
标题: 不知道论坛是为什么？难到开源的贴可以被删？？
本帖最后由 ╭ァ逝╭╯ 于 2011-3-9 01:57 编辑

下面是我发帖时间与通过

您发表的主题发送邮箱-源码-对象类-核心支持已经审核通过！ 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 时间: 2011-3-9 01:57
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

作者: 冰点 时间: 2011-3-9 10:08
应该是改了标题吧?
我只看到这个哦

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

作者: 果子 时间: 2011-3-9 13:21
被删除的话，系统会自动发消息给你的，应该是在审核

作者: ccini 时间: 2011-3-9 20:43
本帖最后由 ╭ァ逝╭╯ 于 2011-3-9 20:45 编辑

回复 3# 冰点

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

作者: ccini 时间: 2013-4-17 11:42

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

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

欢迎光临精易论坛 (https://125.confly.eu.org/)