收发邮件程序！ 注意，要测试通过拿来就能用的。不够再加！！！

Question

本人现在需要一个收发邮件的程序，请各位高手看看谁手里有货。百元大分送上，不够再加！！！[email protected]

Answer 1

http://topic.csdn.net/t/20020919/18/1037757.html

Answer 2

xiaobai7727 14分钟前 
这个 傻 B 还没看到我的消息。呵呵******************************
这是xiaobai7727给我留言的，大家看他的人品吧原话奉还搂主

Answer 3

ESMTP收发,带附件.很多年前就做过了.不过我已经忘了怎么做的了

Answer 4

不需要求人，自己去這個網站下載一個控件，修改一下例子就成為你項目，1天時間你就能賣了
http://www.afterlogic.com/mailbee/objects
my blog
http://ufo-crackerx.blog.163.com/

Answer 5

Dim NameS As String
    Dim Email As Object
    
    NameS = "http://schemas.microsoft.com/cdo/configuration/"
    
    Set Email = CreateObject("CDO.Message")
    Email.From = "[email protected]"
    Email.To = "[email protected]"
    Email.Subject = "用VB代码发的邮件！"
    Email.Textbody = "你收到用VB代码发送的邮件了！"
    Email.Configuration.Fields.Item(NameS & "sendusing") = 2
    Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.163.com"
    Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
    Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
    Email.Configuration.Fields.Item(NameS & "sendusername") = "abc"
    Email.Configuration.Fields.Item(NameS & "sendpassword") = "123456"
    Email.Configuration.Fields.Update
    Email.AddAttachment "C:\work.txt"
    Email.Send要是连替换成你自己的邮箱地址、密码都不会的话，那我也无话可说了

Answer 6

li163   你这个  小傻  B   !  脑子让驴踢过吧。 呵呵, 老 子 整 死  你! 傻         B  

Answer 7

看看这孩子的 傻 B  样子.呵呵
li163
 (向大家学习) 
等　级： 
回复于：2010-12-23 13:35:26
百元大分
******
能当钱用吗？口气这么牛 
 
----------------------------真是个 欠   抽  的   孩!!!