谁可以发VB发送邮箱的代码，输入内容到TXET1里面，按提交就可以发到自己的邮箱去，不用dll来实现可以吗？

Private Sub Command1_Click()

Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "写入用来发送的邮箱地址"
objEmail.To = "写入目的邮箱"
objEmail.Subject = "vb邮件"

objEmail.Textbody = text1

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.163.com" '写入发信服务器 例如用来发送邮件是163邮箱
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