用VB发邮件问题！

来源：百度知道编辑：UC知道时间：2024/05/13 00:34:37

Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)

Dim jmail 'dingyi bianliang
Set jmail = CreateObject("jmail.Message")
'调用jmail
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1 '邮件状态,1-5 1为最高
jmail.MailServerUserName = "zcy3feng" 'Email帐号
jmail.MailServerPassWord = "*****" 'Email密码

jmail.FromName = "邮件" '发信人姓名
jmail.From = "zcy3feng@163.com" '发邮件地址地址

jmail.Subject = Combo1.Text +Text1.Text '主题
jmail.AddRecipient "zcy3feng@sina.com" '收信人地址
jmail.Body = sBody '信件正文

jmail.Send ("smtp.163.com")

Set jmail = Nothing
End Sub
从人家那抄过来的代码，那个jmail.dll文件我有下载了，并注册了，所以做好的程序在我机子上是可以用的，但是到了我同学的机子上就用不了了，怎么用VB直接把jmail这个直接加到VB程序里，不用每台机子再注册，我是刚学的VB都不懂请高手多指教。
可以的话再追加二十分，谢谢各位仁

1。后绑定改为前绑定
1.1.Project ->References -> Browse ->
找到jmail.dll
1.2.程序改动(不改也可以）
'Set jmail = CreateObject("jmail.Message")
Dim jmail as jmail.Message
Set jmail = new jmail.Message
...
2。生成安装包
因为是前绑定，就会把相关的dll加到安装程序中去了
你在别的机子上安装的时候就会自动带上jmail.Message了

用VB发邮件问题！ VB发邮件代码 <VB急>用VB发邮件用OUTLOOK，发邮件问题用outlook发邮件死机问题!. 用Windows Mail发邮件的问题发邮件问题发邮件的问题 javascript 发邮件问题 delphi发邮件问题