Question

求VB发邮件源码，能用的

就这么个界面 text1是主题 text2是内容 command1是发送 邮箱是163的 电脑上没有outlook

Answer 1

不用JAMIL的也可以。你加35835035 使用Winsock控件也可以，

Answer 2

用VB写这个太麻烦，又不太稳定，建议直接引用 jmail 组件

追问

麻烦给出代码

追答

Private Sub Command1_Click()
On Error GoTo 100
Dim jmail As jmail.Message
Set jmail = New jmail.Message
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1 '邮件状态,1-5 1为最高
jmail.MailServerUserName = "test" 'Email帐号
jmail.MailServerPassWord = "test" 'Email密码
jmail.FromName = "发信人姓名" '发信人姓名
jmail.From = "test@163.com" '发邮件地址地址
jmail.Subject = Text1.Text
jmail.Body = Text2.Text
jmail.AddRecipient "1000@qq.com" '收信人地址
jmail.Send ("smtp.163.com")
Set jmail = Nothing
MsgBox "发送成功!", vbInformation, "提示"
Exit Sub
100
If Err.Number 0 Then
MsgBox Err.Description, vbInformation, "提示"
Debug.Print Err.Description
Err.Clear
End If
End Sub
'--------------------------------------------------------------------------------------------------------------------
'测试成功了的

追问

你有没有jmail 我的VB没有 也没找到下载地址