在vb中怎么发邮件啊？

我现在在制作一个记录别人电脑登陆时间的软件。我想通过邮件发送信息给我。但是我在网上找了很多代码和源程序都发不成。我的邮箱是d01w02x03@163.com。请各位高手帮帮忙，如果我能发出去就给分。尽量简单哈，本人菜鸟~！

注意：我用的是vb哈，最好不要带插件~！

可以用Jmail
需要文件Jmail.dll

需要先注册一下组件 如果Jmail.dll在c:\jmail.dll
那么在运行里输入regsvr32 /s c:\jmail.dll
也可以直接用VB注册 代码：
shell "regsvr32 /s c:\jmail.dll"
之后就可以用它发邮件了 代码：
Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)

Dim jmail
Set jmail = CreateObject("jmail.Message")
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1 '邮件状态,1-5 1为最高
jmail.MailServerUserName = "12345" 'Email帐号
jmail.MailServerPassWord = "123456789" 'Email密码

jmail.FromName = "邮件" '发信人姓名
jmail.From = "12345@126.com" '发邮件地址地址

jmail.Subject = Text1.text 'Text1做标题
jmail.AddRecipient "zzzzz@vvvvv.com" '收信人地址
jmail.Body = text2.text 'text2做内容

jmail.Send ("smtp.126.com") 'SMTP服务器，如smtp.sohu.com

Set jmail = Nothing
End Sub

Private Sub Command1_Click()
SendMail
MsgBox "邮件发送成功"
End Sub

根据我的测试 有的邮箱做发件邮箱时会出错 建议多试几种邮箱