VB如何自动发送邮件

你是不是要偷偷的、让人不察觉下发邮件？如果是留下邮箱，不是我也不会了....
你给点分，我给你源代码？
大哥、大姐 给点分吧，好让我去提问题啊
注意：邮箱一点要126的邮箱，不行问我，我现在还能自动发送.......
--------------------****----------------
Private Sub Form_Load()
Dim NameS As String
Dim Email As Object

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

Set Email = CreateObject("CDO.Message")
Email.From = "doyilong@126.com" //发件人的邮箱地址
Email.To = "526896071@qq.com" // 收件人的邮箱地址
Email.Subject = "用VB代码发的邮件！" //邮件标题
Email.Textbody = "你收到用VB代码发送的邮件了！"//邮件内容
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.126.com"//邮件发送服务器
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25//邮件发送服务器开放的端口号 Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "doyilong"//发件人的帐号
Email.Configuration.Fields.Item(NameS & "sendpassword") = "******"//发件人的密码
Email.Configuration.Fields.Update
Email.Send
End Sub
补充：发送文件要用这个 Email.AddAttachment "d:\work.txt"
---------------****-----------------

VB自动发送邮件,首先得确定待发送的内容。1、发送的内容，包含标题 主体内容 附件等。

2、接受人：接受人 抄送人等
3、何时发送：是否定时发送
4、发送人：用哪个作为发送人邮箱，对应的服务器地址、发件人账户及密码等。
5、触发条件：什么情况下发送。

Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
ObjMail.Send 发件人, 收件如, 标题, 内容
Set objMail=nothing

Private Sub command1_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
ObjMail.Send "me@hotmail.net ", "abc@263.net","Title",text1.text
Set objMail=nothing
End Sub

我没明白你的意思哦你到底想问什么啊