求VB代码..

小弟急需一个输入XXX后可以发送到本人邮箱的VB代码。

邮箱是（a498322320@126.com）谢谢各为哥哥们了。

楼主您好 VB技术部 为您解答

代码我写给你  但是需要服务器足见  如果你要的话 可以加我QQ 我给你 949492181

在窗体上建一个按钮  和2个文本框  加入以下代码：

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

楼主  采纳把。。。。。。。。。。

工具代码我可以给你 ~~楼上的你说错咯~~~你拿IP干吗啊~~~他是邮箱~~和IP有关系吗？？？？？？？？？？？

这个问题也不是很难

必须要有IP

如果你需要可以加我QQ404195165