先下载jmail.dll,放到c:\windows\下,本人测试过,可以的.
Dim jmail
Private Sub Command1_Click()
Set jmail = CreateObject("jmail.Message")
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1 '邮件状态,1-5 1为最高
jmail.MailServerUserName = "
abcd@163.com" '发件人的Email帐号,自己设置
jmail.MailServerPassWord = "123" '发件人的Email密码,自己设置
jmail.FromName = "QS" '发信人姓名
jmail.From =
abcd@163.com" '还是发件人的Email帐号,自己设置
jmail.Subject = "qqmail" '邮件标题
jmail.AddRecipient "
bbbbb@vip.qq.com" '收信人地址
jmail.Body = "hello" '邮件内容
jmail.AddAttachment ("d:/1234.rar")'这里就是你要发送的文件,不要太大,自己修改一下路径。
jmail.Send ("smtp.163.com") '我用的163的SMTP服务器,你也可以自己修改,如smtp.sohu.com
Set jmail = Nothing
SendMail
End Sub
Private Sub Form_Load()
Shell "regsvr32 /s c:\windows\jmail.dll", vbHide
End Sub
Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)
End Sub