UC知道vb问题：使用jmail传送附件问题,谢谢！
来源：百度知道 编辑：UC知道 时间：2024/07/07 08:43:33
Private Sub Command1_Click()
SendMail "d:/note.txt"
MsgBox "OK"
End Sub
Private Sub Command2_Click()
End
End Sub
Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)
Dim Jmail
Set Jmail = CreateObject("jmail.Message")
If sFileName <> "" Then Jmail.AddAttachment sFileName '附件
Jmail.Charset = "gb2312"
Jmail.Silent = False
Jmail.Priority = 1 '邮件状态,1-5 1为最高
Jmail.MailServerUserName = "123" 'Email帐号
Jmail.MailServerPassWord = "456" 'Email密码
Jmail.FromName = "123" '发信人姓名
Jmail.From = "123@163.com" '发邮件地址地址
Jmail.Subject = "have a tesrt" '主题
Jmail.AddRecipient "123@163.com" '收信人地址
Jmail.Body = hahahaha '信件正文
Jmail.Sen
SendMail "d:/note.txt"
MsgBox "OK"
End Sub
Private Sub Command2_Click()
End
End Sub
Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)
Dim Jmail
Set Jmail = CreateObject("jmail.Message")
If sFileName <> "" Then Jmail.AddAttachment sFileName '附件
Jmail.Charset = "gb2312"
Jmail.Silent = False
Jmail.Priority = 1 '邮件状态,1-5 1为最高
Jmail.MailServerUserName = "123" 'Email帐号
Jmail.MailServerPassWord = "456" 'Email密码
Jmail.FromName = "123" '发信人姓名
Jmail.From = "123@163.com" '发邮件地址地址
Jmail.Subject = "have a tesrt" '主题
Jmail.AddRecipient "123@163.com" '收信人地址
Jmail.Body = hahahaha '信件正文
Jmail.Sen
你好！
你少了句：
Jmail.Send ("smtp.163.com") 'SMTP服务器，如smtp.sohu.com
上面加上 Jmail.AddAttachment("d:/note.txt")
保证D盘有这个文件哦
然后就OK了！
good luck!