用VB如何写可以发送mail？

用VB怎样写可以发送mail？
比较简单的方法，是使用JMAIL.
先下载个JMAIL安装包，然后就可以用VB调用了。
大体代码：
Option Explicit
Dim jmail1

Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFileName As String)
If sFileName <> "" Then jmail1.AddAttachment sFileName '附件
jmail1.Priority = 1                             '邮件状态,1-5 1为最高
jmail1.Subject = sSubject                       '主题
jmail1.AddRecipient "[email protected]"   '收信人地址
jmail1.Body = sBody                             '信件正文
jmail1.Priority = 3                             '优先级，1为最快，5为最慢，3为默认值
jmail1.Send "SMTP.163.COM"                      'SMTP服务器，如smtp.sohu.com
End Sub

Private Sub Command1_Click()
SendMail "测试4", "    ", "D:\vb mail\MAPI 说明.txt"
End Sub

Private Sub Form_Load()
Set jmail1 = CreateObject("jmail.Message")
jmail1.Charset = "gb2312"                 '设置邮件显示的字符集
jmail1.Silent = False                     '是否屏蔽例外错误
jmail1.MailServerUserName = "wallescai"   'Email帐号
jmail1.MailServerPassWord = "ilovey"      'Email密码
jmail1.ContentType = "text"               'text/html
jmail1.From = "[email protected]"         '发件地址
jmail1.FromName = "WallesCai"             '发件人名字
End Sub

Private Sub Form_Unload(Cancel As Integer)
jmail1.Close
Set jmail1 = Nothing
End Sub


   VB中用CommonDialog         如何设置   保存的文件夹名?   [控件]  

$$winsock接收文件问题

如何在Winform里控制Web页面,填写表单，提交

如何显示指定文件名的ACCESS   查询或窗体

用VB＋SQL   SERVER编程，当“rs!会员号”的值是NULL时，执行str1=Str(rs!会员号)时，出现“无效使用NULL错误”，谁有简单办法解决

用VB如何写可以发送mail？

VB6数据文件存放路径问题

请教vb2005中调用excel中自定义函数！急。。。。。。。。。。

关于VB串口通讯使用MSCOMM控件的问题，希望各位高手前来帮忙。。。。。。

关于VB串口通讯使用MSCOMM控件的问题，希望各位高手前来帮忙。。。。。。

excle   sheet   拷贝

关于VB调用资源DLL里的Dialog问题

录制的宏，运行时却出现“应用程序定义或对象定义错误”！

关于Form的问题

如何更改windows桌面的刷新率   例如   改称85mhz   60mhz

求如何返回到框架的问题

求购vb开发的视频会议系统

程序报错：实时错误“91”,对象变量或with块变量未设置

〓紧急求助〓         WebBrowser控件   如何判断网页是否完全打开....解决后马上给分....十分感谢

如何保存网页中的随机图片

为何会有用户定义类型未定义的错误??

如何得到网页中的随机图片

求购稳定的即时通讯客户端软件

用VB可以实现屏蔽WINDOWS热键F10吗？

播放器的问题

关于一个用VB编写的PING工具的问题

VB静态属性

那个知道这段脚本是什么意思？

如何用exe文件来生成exe文件

东进D161A语音卡录音问题

pciture图片操作,验证码识别?

WINSOCK文件传输问题

text文本显示数字的问题！

VBA   excel简单应用,新手求源代码,有效便散分---在一批10万个物料中筛选出其中的3000个左右的坏件?(坏件有唯一物料编码,且已知)

usb接口的   zebro证卡打印p330i的编程问题

VB中如何样获取鼠标选取的文本,类似于划词的方法

VB6.0能通过命令修改注册表么？

一个基础的问题   看你会不   呵  

问一问题   比较基础的问题   看你会不   呵

COM+通信中的权限问题

VB中生成条型码有什么控件啊？急急急！！！谢谢，最好有具体的例程！

100分   xmlhttp   模拟IE实现自动登录网站问题

我本来想用wmp控件做播放器,但遇到问题

timer   控件内执行多函数的问题

Open   App.Path   &      在当前程序下生成文件夹具体进来看看

又是Winsock的问题

请教关于字符串操作问题

如何通过Navigate在VB里打开需要登录的网页？

关于Treeview的选择问题

如何让属性有自已的方法

如何获得影射盘符

经

TDBGrid输入问题

VB打开窗口后关闭时返回值问题

问一个adodcr的bookmark的问题

如何创建excle文件

有人出现过我这种问题吗??要疯了....

关于一个用VB编写的PING工具的问题

关于一个用VB编写的PING工具的问题

关于数组的问题！有点想不通啊~~

网页文本框自动输入的问题  

如何在Mschart上显示数值？

读写文件

读写文件

谁能给个关于拦截键盘和鼠标的vb代码或资料

大家帮我解决一下这个问题吧

请教如何保存电脑上所有文件类型的图标

求助!关于picturebox加载大型图片的问题

可以将VB自带控件XP化的winxpc   engine控件，有点小BUG,希望高手修改一下使之完美

高手进来，看一下，用图片做皮肤窗体问题

请各位看一下我的一个系统的两个界面

listview控件填充表格错误,求如何解决方法

进程的启动和关闭

为什么我在记事本里输入\\却变成了＃＃，在cmd中也一样。

Mschart控件的使用？？？？

求教关于程序退出码

如何向文本中添加数据而不是覆盖   ?

高分求用hook任务管理器的API方法，隐藏进程的代码

VB能实现这样的功能吗?

请教一个我无头绪的问题   谢谢!

请教一个我认为很难的问题   谢谢

关于Winsock的问题

sql   server   海量数据库中修改记录时产生“超时已过期”的错误！

VB   PaintPicture画窗体问题，不知道要如何搞？？？？

如何用ado   读取   DBF   数据库中的逻辑删除记录?

讨论CSDN新版论坛的缺陷

TIOBE排名中的(Visual)   Basic是VB6还是VB2005呢？

会员软件源代码！！！！

获取来电号码

谁做过医院系统的   请进   有单做！！！

如何在vista下取得硬盘序列号？

关于获取其它窗口的信息

请问DBGrid   如何绑定？

大字符串处理

关于播放asf影片的问题

如何用ＶＢ判断是否插入Ｕ盘

请好心的大侠帮忙：如何在SQL库新建一个受限用户？

请问如何获取网页的公网ip

VB，DataGrid多选的内容用DataReport打印

如何在新的webbrowser開始frameset中的某一個frame?(vb2005)

更多vb开发资料，请访问http://www.vbbaike.com/