用VB如何写可以发送mail？

admin管理员组

文章数量:1620898

用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 "walles.cai@molcn" '收信人地址
jmail1.Body = sBody '信件正文
jmail1.Priority = 3 '优先级，1为最快，5为最慢，3为默认值
jmail1.Send "SMTP.163.COM" 'SMTP服务器，如smtp.sohu
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 = "wallescai@163" '发件地址
jmail1.FromName = "WallesCai" '发件人名字
End Sub

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


[url=http://www.vbbaike/show.asp?id=101200] VB中用CommonDialog 如何设置 保存的文件夹名? [控件] [/url]

[url=http://www.vbbaike/show.asp?id=101199]$$winsock接收文件问题[/url]

[url=http://www.vbbaike/show.asp?id=101198]如何在Winform里控制Web页面,填写表单，提交[/url]

[url=http://www.vbbaike/show.asp?id=101197]如何显示指定文件名的ACCESS 查询或窗体[/url]

[url=http://www.vbbaike/show.asp?id=101196]用VB＋SQL SERVER编程，当“rs!会员号”的值是NULL时，执行str1=Str(rs!会员号)时，出现“无效使用NULL错误”，谁有简单办法解决[/url]

[url=http://www.vbbaike/show.asp?id=101195]用VB如何写可以发送mail？[/url]

[url=http://www.vbbaike/show.asp?id=101194]VB6数据文件存放路径问题[/url]

[url=http://www.vbbaike/show.asp?id=101193]请教vb2005中调用excel中自定义函数！急。。。。。。。。。。[/url]

[url=http://www.vbbaike/show.asp?id=101192]关于VB串口通讯使用MSCOMM控件的问题，希望各位高手前来帮忙。。。。。。[/url]

[url=http://www.vbbaike/show.asp?id=101191]关于VB串口通讯使用MSCOMM控件的问题，希望各位高手前来帮忙。。。。。。[/url]

[url=http://www.vbbaike/show.asp?id=101190]excle sheet 拷贝[/url]

[url=http://www.vbbaike/show.asp?id=101189]关于VB调用资源DLL里的Dialog问题[/url]

[url=http://www.vbbaike/show.asp?id=101188]录制的宏，运行时却出现“应用程序定义或对象定义错误”！[/url]

[url=http://www.vbbaike/show.asp?id=101187]关于Form的问题[/url]

[url=http://www.vbbaike/show.asp?id=101186]如何更改windows桌面的刷新率 例如 改称85mhz 60mhz[/url]

[url=http://www.vbbaike/show.asp?id=101185]求如何返回到框架的问题[/url]

[url=http://www.vbbaike/show.asp?id=101184]求购vb开发的视频会议系统[/url]

[url=http://www.vbbaike/show.asp?id=101183]程序报错：实时错误“91”,对象变量或with块变量未设置[/url]

[url=http://www.vbbaike/show.asp?id=101182]〓紧急求助〓 WebBrowser控件 如何判断网页是否完全打开....解决后马上给分....十分感谢[/url]

[url=http://www.vbbaike/show.asp?id=101181]如何保存网页中的随机图片[/url]

[url=http://www.vbbaike/show.asp?id=101180]为何会有用户定义类型未定义的错误??[/url]

[url=http://www.vbbaike/show.asp?id=101179]如何得到网页中的随机图片[/url]

[url=http://www.vbbaike/show.asp?id=101178]求购稳定的即时通讯客户端软件[/url]

[url=http://www.vbbaike/show.asp?id=101177]用VB可以实现屏蔽WINDOWS热键F10吗？[/url]

[url=http://www.vbbaike/show.asp?id=101176]播放器的问题[/url]

[url=http://www.vbbaike/show.asp?id=101175]关于一个用VB编写的PING工具的问题[/url]

[url=http://www.vbbaike/show.asp?id=101174]VB静态属性[/url]

[url=http://www.vbbaike/show.asp?id=101173]那个知道这段脚本是什么意思？[/url]

[url=http://www.vbbaike/show.asp?id=101172]如何用exe文件来生成exe文件[/url]

[url=http://www.vbbaike/show.asp?id=101171]东进D161A语音卡录音问题[/url]

[url=http://www.vbbaike/show.asp?id=101170]pciture图片操作,验证码识别?[/url]

[url=http://www.vbbaike/show.asp?id=101169]WINSOCK文件传输问题[/url]

[url=http://www.vbbaike/show.asp?id=101168]text文本显示数字的问题！[/url]

[url=http://www.vbbaike/show.asp?id=101167]VBA excel简单应用,新手求源代码,有效便散分---在一批10万个物料中筛选出其中的3000个左右的坏件?(坏件有唯一物料编码,且已知)[/url]

[url=http://www.vbbaike/show.asp?id=101166]usb接口的 zebro证卡打印p330i的编程问题[/url]

[url=http://www.vbbaike/show.asp?id=101165]VB中如何样获取鼠标选取的文本,类似于划词的方法[/url]

[url=http://www.vbbaike/show.asp?id=101164]VB6.0能通过命令修改注册表么？[/url]

[url=http://www.vbbaike/show.asp?id=101163]一个基础的问题 看你会不 呵 [/url]

[url=http://www.vbbaike/show.asp?id=101162]问一问题 比较基础的问题 看你会不 呵[/url]

[url=http://www.vbbaike/show.asp?id=101161]COM+通信中的权限问题[/url]

[url=http://www.vbbaike/show.asp?id=101160]VB中生成条型码有什么控件啊？急急急！！！谢谢，最好有具体的例程！[/url]

[url=http://www.vbbaike/show.asp?id=101159]100分 xmlhttp 模拟IE实现自动登录网站问题[/url]

[url=http://www.vbbaike/show.asp?id=101158]我本来想用wmp控件做播放器,但遇到问题[/url]

[url=http://www.vbbaike/show.asp?id=101157]timer 控件内执行多函数的问题[/url]

[url=http://www.vbbaike/show.asp?id=101156]Open App.Path & 在当前程序下生成文件夹具体进来看看[/url]

[url=http://www.vbbaike/show.asp?id=101155]又是Winsock的问题[/url]

[url=http://www.vbbaike/show.asp?id=101154]请教关于字符串操作问题[/url]

[url=http://www.vbbaike/show.asp?id=101153]如何通过Navigate在VB里打开需要登录的网页？[/url]

[url=http://www.vbbaike/show.asp?id=101152]关于Treeview的选择问题[/url]

[url=http://www.vbbaike/show.asp?id=101151]如何让属性有自已的方法[/url]

[url=http://www.vbbaike/show.asp?id=101150]如何获得影射盘符[/url]

[url=http://www.vbbaike/show.asp?id=101149]经[/url]

[url=http://www.vbbaike/show.asp?id=101148]TDBGrid输入问题[/url]

[url=http://www.vbbaike/show.asp?id=101147]VB打开窗口后关闭时返回值问题[/url]

[url=http://www.vbbaike/show.asp?id=101146]问一个adodcr的bookmark的问题[/url]

[url=http://www.vbbaike/show.asp?id=101145]如何创建excle文件[/url]

[url=http://www.vbbaike/show.asp?id=101144]有人出现过我这种问题吗??要疯了....[/url]

[url=http://www.vbbaike/show.asp?id=101143]关于一个用VB编写的PING工具的问题[/url]

[url=http://www.vbbaike/show.asp?id=101142]关于一个用VB编写的PING工具的问题[/url]

[url=http://www.vbbaike/show.asp?id=101141]关于数组的问题！有点想不通啊~~[/url]

[url=http://www.vbbaike/show.asp?id=101140]网页文本框自动输入的问题 [/url]

[url=http://www.vbbaike/show.asp?id=101139]如何在Mschart上显示数值？[/url]

[url=http://www.vbbaike/show.asp?id=101138]读写文件[/url]

[url=http://www.vbbaike/show.asp?id=101137]读写文件[/url]

[url=http://www.vbbaike/show.asp?id=101136]谁能给个关于拦截键盘和鼠标的vb代码或资料[/url]

[url=http://www.vbbaike/show.asp?id=101135]大家帮我解决一下这个问题吧[/url]

[url=http://www.vbbaike/show.asp?id=101134]请教如何保存电脑上所有文件类型的图标[/url]

[url=http://www.vbbaike/show.asp?id=101133]求助!关于picturebox加载大型图片的问题[/url]

[url=http://www.vbbaike/show.asp?id=101132]可以将VB自带控件XP化的winxpc engine控件，有点小BUG,希望高手修改一下使之完美[/url]

[url=http://www.vbbaike/show.asp?id=101131]高手进来，看一下，用图片做皮肤窗体问题[/url]

[url=http://www.vbbaike/show.asp?id=101130]请各位看一下我的一个系统的两个界面[/url]

[url=http://www.vbbaike/show.asp?id=101129]listview控件填充表格错误,求如何解决方法[/url]

[url=http://www.vbbaike/show.asp?id=101128]进程的启动和关闭[/url]

[url=http://www.vbbaike/show.asp?id=101127]为什么我在记事本里输入\\却变成了＃＃，在cmd中也一样。[/url]

[url=http://www.vbbaike/show.asp?id=101126]Mschart控件的使用？？？？[/url]

[url=http://www.vbbaike/show.asp?id=101125]求教关于程序退出码[/url]

[url=http://www.vbbaike/show.asp?id=101124]如何向文本中添加数据而不是覆盖 ?[/url]

[url=http://www.vbbaike/show.asp?id=101123]高分求用hook任务管理器的API方法，隐藏进程的代码[/url]

[url=http://www.vbbaike/show.asp?id=101122]VB能实现这样的功能吗?[/url]

[url=http://www.vbbaike/show.asp?id=101121]请教一个我无头绪的问题 谢谢![/url]

[url=http://www.vbbaike/show.asp?id=101120]请教一个我认为很难的问题 谢谢[/url]

[url=http://www.vbbaike/show.asp?id=101119]关于Winsock的问题[/url]

[url=http://www.vbbaike/show.asp?id=101118]sql server 海量数据库中修改记录时产生“超时已过期”的错误！[/url]

[url=http://www.vbbaike/show.asp?id=101117]VB PaintPicture画窗体问题，不知道要如何搞？？？？[/url]

[url=http://www.vbbaike/show.asp?id=101116]如何用ado 读取 DBF 数据库中的逻辑删除记录?[/url]

[url=http://www.vbbaike/show.asp?id=101115]讨论CSDN新版论坛的缺陷[/url]

[url=http://www.vbbaike/show.asp?id=101114]TIOBE排名中的(Visual) Basic是VB6还是VB2005呢？[/url]

[url=http://www.vbbaike/show.asp?id=101113]会员软件源代码！！！！[/url]

[url=http://www.vbbaike/show.asp?id=101112]获取来电号码[/url]

[url=http://www.vbbaike/show.asp?id=101111]谁做过医院系统的 请进 有单做！！！[/url]

[url=http://www.vbbaike/show.asp?id=101110]如何在vista下取得硬盘序列号？[/url]

[url=http://www.vbbaike/show.asp?id=101109]关于获取其它窗口的信息[/url]

[url=http://www.vbbaike/show.asp?id=101108]请问DBGrid 如何绑定？[/url]

[url=http://www.vbbaike/show.asp?id=101107]大字符串处理[/url]

[url=http://www.vbbaike/show.asp?id=101106]关于播放asf影片的问题[/url]

[url=http://www.vbbaike/show.asp?id=101105]如何用ＶＢ判断是否插入Ｕ盘[/url]

[url=http://www.vbbaike/show.asp?id=101104]请好心的大侠帮忙：如何在SQL库新建一个受限用户？[/url]

[url=http://www.vbbaike/show.asp?id=101103]请问如何获取网页的公网ip[/url]

[url=http://www.vbbaike/show.asp?id=101102]VB，DataGrid多选的内容用DataReport打印[/url]

[url=http://www.vbbaike/show.asp?id=101101]如何在新的webbrowser開始frameset中的某一個frame?(vb2005)[/url]

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

本文标签： 如何写VBMail