- 浏览: 168186 次
- 性别:
- 来自: 广州
文章分类
最新评论
-
xiangyufangai:
很好很强大膜拜中哈哈!!
VB 两个字符串处理函数(类似Left/Mid/Right/Split的结合) -
hellohank:
这个……叫摘要算法,不叫加密算法~
Java实现的加密工具类(支持MD5和SHA) -
NIUCH1029291561:
接口有问题奥
网银在线支付接口和应用 -
yeuego:
能幫你就行了
MySQL索引分析 -
ForgiDaved:
很给力的介绍。记得前段时间给一个系统加功能,设计的表没有 ...
MySQL索引分析
Option Explicit
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 = "2688i " 'Email帐号
Jmail.MailServerPassWord = "******* " 'Email密码
Jmail.FromName = "邮件 " '发信人姓名
Jmail.From = "2688i@163.com " '发邮件地址地址
Jmail.Subject = sSubject '主题
Jmail.AddRecipient "2688i@163.com " '收信人地址
Jmail.Body = sBody '信件正文
Jmail.Send ( "smtp.163.com ") 'SMTP服务器,如smtp.sohu.com
Set Jmail = Nothing
End Sub
Sub Command1_Click()
SendMail "测试 ", "我爱你 ", "这里填附件地址 "
MsgBox "OK "
End Sub
(1)Body(信件正文) : 字符串
如:JMail.Body = "这里可以是用户填写的表单内容,可以取自From。"
(2)Charset(字符集,缺省为"US-ASCII") : 字符串
如:JMail.Charset = "US-ASCII"
(3)ContentTransferEncoding : 字符串
指定内容传送时的编码方式,缺省是"Quoted-Printable"
如:JMail.ContentTransferEncoding = "base64"
(4)ContentType(信件的contentype. 缺省是"text/plain") : 字符串
如果你以HTML格式发送邮件, 改为"text/html"即可。
如:JMail.ContentType = "text/html"
(5)Encoding : 字符串
设置附件编码方式(缺省是"base64)。 可以选择使用的是"base64", "uuencode" or "quoted-printable"
如:JMail.Encoding = "base64"
(6)Log(Jmail创建的日志,前提loging属性设置为true,见下面) : 字符串
如:使用Response.Write( JMail.Log )语句列出日志信息。
(7)Logging(是否使用日志) : 布尔型
如:JMail.Logging = true
(8)Recipients : 字符串
只读属性,返回所有收件人
如:Response.Write( "" + JMail.Recipients + "" );
(9)ReplyTo(指定别的回信地址) : 字符串
如:JMail.ReplyTo = "anyother@mailhost.com"
(10)Sender( 发件人的邮件地址) : 字符串
如:JMail.Sender = "sender@mailhost.com"
(11)SenderName(发件人的姓名) : 字符串
如:JMail.SenderName = "一克"
(12)ServerAddress(邮件服务器的地址) : 字符串
你可以指定多个服务器,用分号点开。可以指定端口号。
如果serverAddress保持空白,JMail会尝试远程邮件服务器,然后直接发送到服务器上去。
如:JMail.ServerAddress = "mail.263.net.cn"
(13)Subject(设定邮件的标题,可以取自From。):字符串
如:JMail.Subject = "客户反馈表单"
(14)添加文件附件到邮件
如:JMail.AddAttachment( "c:anyfile.zip" )
(15)AddCustomAttachment( FileName, Data )
添加自定义附件.
如:JMail.AddCustomAttachment( "anyfile.txt", "Contents of file" );
(16)AddHeader( Header, Value )
添加用户定义的信件标头。
如:JMail.AddHeader( "Originating-IP","192.168.10.10" );
(17)AddRecipient(收件人):字符串
如:JMail.AddRecipient( "info@dimac.net" );
(18)AddRecipientBCC( Email ),密件收件人:
如:JMail.AddRecipientBCC( "anyone@mailhost.com" );
(19)AddRecipientCC( Email ) ,抄送收件人:
如:JMail.AddRecipientCC( "anyone@mailhost.com" )
(20)AddURLAttachment( URL, 文档名)
下载并添加一个来自url的附件. 第二个参数"文档名", 用来指定信件收到后的文件名。
如:JMail.AddURLAttachment( "http://java2000.wol.com.cn/perl/files/jmail.zip", "jmail" )
(21)AppendBodyFromFile( 文件名) ,将文件作为信件正文:
如:JMail.AppendBodyFromFile( "c:anyfile.txt" )
(22)AppendText( Text )
追加信件的正文内容,比如增加问候语或者其它信息。
如:JMail.AppendText( "欢迎访问本站!" )
(23)Close() ,强制JMail关闭缓冲的与邮件服务器的连接:
如:JMail.Close()
(24)Execute() ,执行邮件的发送
如:JMail.Execute()
Private Sub SendMail()
Dim jmail As New SMTPMail
Dim Conn As New ADODB.Connection
Dim Rst As New ADODB.Recordset, Rst1 As New ADODB.Recordset
Dim strRec As String, strRecCC As String
'On Error GoTo Err:
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password=dir941421;User ID=kiss;Data Source=" & App.Path & "\OAData\OAData.mdb;Persist Security Info=True;Jet OLEDB:System database=" & App.Path & "\OAData\Secured.mdw"
'检测是否有要发送的信件
Rst.CursorLocation = adUseClient
Rst.Open "Select * From ztblMailBox Where BoxNum = 2", Conn, adOpenDynamic, adLockOptimistic, adCmdText
Do While Not Rst.EOF
'有要发送的信件
'先改变状态为已经发送失败,等发送成功后改变为成功
Conn.Execute "Update ztblMailBox Set BoxNum=3,SendState=False Where Id=" & Rst!id
'开始发送邮件Rst.CursorLocation = adUseClient
Rst1.Open "Select * From ztblMailConfig Where UserCode='" & Rst!UserCode & "'", Conn, adOpenDynamic, adLockOptimistic, adCmdText
If Rst1.EOF = False Then '有信箱存在
jmail.Sender = Rst1!MailName '取出发送者信箱名称
jmail.ServerAddress = Rst1!SmtpServer '服务器地址
jmail.ServerPort = "25"
jmail.SenderName = Rst1!Sender '取出发信人的姓名:汉字的也可以
jmail.Message.From = Rst1!MailName '来之何方
jmail.Message.FromName = Rst1!Sender '取出发信人的姓名:汉字的也可以
jmail.Message.Subject = Rst!Topic '标题
jmail.Message.Body = Rst!Content '内容
jmail.ClearAttachments '清除原来的附件
If FolderManager.FolderExists(Rst!Accessory) Then '判断文件夹是否存在
Set cFolder = FolderManager.GetFolder(Rst!Accessory)
Set cFile = cFolder.Files '建立文件集合
For Each FileInfo In cFile
jmail.Message.AddAttachment Rst!Accessory & "\" & FileInfo.Name
Next
End If
jmail.ClearRecipients '清除原来的地址
If Not IsNull(Rst!SendTo) Then
strRecCC = Rst!SendTo
If InStr(1, strRecCC, ";", vbTextCompare) <> 0 Then
strRec = Left(strRecCC, InStr(1, strRecCC, ";", vbTextCompare) - 1)
strRecCC = Mid(strRecCC, InStr(1, strRecCC, ";", vbTextCompare) + 1)
If InStr(1, strRecCC, "@", vbTextCompare) <> 0 Then
strRecCC = Replace(strRecCC, ";", "", 1, -1, vbTextCompare)
End If
End If
End If
jmail.Message.AddRecipient strRec
If strRecCC <> "" Then jmail.Message.AddRecipientCC strRecCC
jmail.Message.MailServerUserName = Left$(Rst1!MailName, InStr(1, Rst1!MailName, "@") - 1) '服务器的用户名称
jmail.Message.MailServerPassWord = Rst1!MailPass '密码验证
jmail.ContentTransferEncoding = "base64"
jmail.Encoding = "base64"
jmail.Message.Charset = "gb2312"
jmail.Message.Silent = True
jmail.Message.ContentType = "multipart/html" '文本还是网页
jmail.Logging = False '是否记录日志
If jmail.Message.Send(Rst1!SmtpServer) Then
Conn.Execute "Update ztblMailBox Set SendState=True Where Id=" & Rst!id
End If
End If
Rst1.Close
Rst.MoveNext
DoEvents
Loop
Err:
Rst.Close
jmail.Close
Set jmail = Nothing '彻底释放Jmail
Unload Me
End Sub
发表评论
-
vb 启动外部程序并且模拟鼠标点击
2011-03-09 13:28 1084Imports System.Runtime.InteropS ... -
VB 列出SQL数据库中所有表及字段信息
2011-03-09 13:24 1105程序思想:用Select name From sysobje ... -
VB 纯代码实现Timer控件的功能
2011-03-09 13:23 1247本博客有一篇类似的文章《VB 中运用 TimeSetEvent ... -
VB 控制音量
2011-03-09 13:22 1201'按钮一是音量增加,按钮二是音量减少,按钮三是静音切换. ... -
拦截 VB TextBox 双击消息
2011-03-09 13:22 922我们都知道在VB中TextBox默认是没有双击消息过程的(也就 ... -
VB 获取/设置屏幕分辨率
2011-03-09 13:21 1070Option ExplicitPrivate Decla ... -
VB 将数据快速导入EXCEL
2011-03-09 13:21 992Public Function ToExcel()On ... -
VB 建立快捷方式
2011-03-09 13:20 762Private Declare Function fCr ... -
VB 获取快捷方式原文件路径
2011-03-09 13:20 896'此方法不需要引用IShellLink.Private ... -
VB 的一组字符串转换函数
2011-03-09 13:20 756Public Function chrConvert(s ... -
VB 在浏览目录时指定初始目录
2011-03-09 13:19 975'VB也可以使用CallBack,下面是一个例子: '先 ... -
VB 获得鼠标滚轮的事件
2011-03-09 13:18 952'窗体代码Private Sub Form_Load() ... -
VB 比较两组字符串
2011-03-09 13:18 1240【方法一】 StrComp(string1, Stri ... -
VB 用API下载文件实例
2011-03-09 13:17 774'########################### ... -
VB 窗口处理技巧大全
2011-03-09 13:17 756VB提供了API函数SetWindowLong和GetWind ... -
VB 实现屏幕右下角浮出式消息窗口,透明淡出效果。
2011-03-09 13:16 923'任务栏高度[此部分相关代码转载自 枕善居]Privat ... -
VB Filter 函数用法
2011-03-09 13:16 1899例子1:Dim aa(10) As StringDim bbD ... -
VB 在EXPLORER进程崩溃之后重建托盘图标
2011-03-09 13:15 821重点为:向系统注册“TaskbarCreated”消息 ... -
Shell 调用程序后等待该程序结束后返回继续
2011-03-09 13:15 1194方法1: Private Declare Functi ... -
VB 最简单的WAV声音或音乐文件播放的代码
2011-03-09 13:14 1342'最简单的WAV声音或音乐文件播放的代码'API声明Pr ...
相关推荐
VB调用jmail发电子邮件的示例源码,如果你想使用jmail组件,但又不知道怎么调用,这个VB代码可以帮助你快速上手,里面包括了jmail.dll,附有jmail官方使用手册,双击reg.bat批处理文件可自动将jmail.dll注册到...
内容索引:VB源码,网络相关,发邮件,jMail jmail组件应用是很广泛的,使用方法简单,本程序是用VB调用此组件进行邮件发送,仅实现了发送核心代码,部分功能请根据你的需要扩展,里面有一个model方法类是为本发送程序...
jmail组件,用于通过pb\vb\delphi\.net\java等工具调用,发送邮件
我自己编写的利用jmail组件收发邮件的VB源代码.可以实现群发,将多个收件人添加到列表即可, 还可以对收件人列表进行保存和载入.. 程序绝对可以用,目前我自己用的就是这个. 内部代码无论是新手还是老手,都有其借鉴和...
使用说明:安装完Jmail之后(实际就是注册了Jmail.dll),可以用vb,js,C#等编程语言调用JMail.Message对象发信。
w3 JMail 是 Dimac 公司(www.dimac.net)推出的ASP发信组件,可以在ASP、VC、VB、Delphi等开发工具中调用。和其他发信组件相比,它具有支持HTML、多收件人、抄送、暗送等特点。4.0以上版本除了具备以上特点外,还有...
我自己编写的利用jmail组件收发邮件的VB源代码.可以实现群发,将多个收件人添加到列表即可, 还可以对收件人列表进行保存和载入.. 程序绝对可以用,目前我自己用的就是这个. 内部代码无论是新手还是老手,都有其借鉴和...
安装完Jmail之后(实际就是注册了Jmail.dll),可以用vb,js,C#等编程语言调用JMail.Message对象发信。
w3 JMail 是 Dimac 公司(www.dimac.net)推出的ASP发信组件,可以在ASP、VC、VB、Delphi等开发工具中调用。和其他发信组件相比,它具有支持HTML、多收件人、抄送、暗送等特点。4.0以上版本除了具备以上特点外,还有...
w3 JMail 是 Dimac 公司(www.dimac.net)推出的ASP发信组件,可以在ASP、VC、VB、Delphi等开发工具中调用。和其他发信组件相比,它具有支持HTML、多收件人、抄送、暗送等特点。4.0以上版本除了具备以上特点外,还有...
为了方便,我直接调用了Jmail组件来收邮件。(使用JMail.POP3接收21cn邮件) 步骤4,下载我们的文档。这步骤和步骤3一起,登录成功随即打开文档页并点下载(文档链接就是步骤1中的)。 //基本测试得出:21cn免费...
QuickWAP的开发集成了微软的ASP、VB、ActiveX、Windows2003(2007)、IIS6.0(5.0)、Access、MSSQL2000(2005)、SQL和WAP的WML、XHTML MP语言,以及ASPJPEG、JMail组件、CSS语言等技术于一体,其中以微软的各种技术为...
QuickWAP的开发集成了微软的ASP、VB、ActiveX、Windows2003(2007)、IIS6.0(5.0)、Access、MSSQL2000(2005)、SQL和WAP的WML、XHTML MP语言,以及ASPJPEG、JMail组件、CSS语言等技术于一体,其中以微软的各种技术为...