用JMail发送邮件

原创 2004年08月23日 15:35:00

Function SendMail(ByVal From As String, _
                ByVal Recipient As String, _
                ByVal RecipientCC As String, _
                ByVal RecipientBCC As String, _
                ByVal Subject As String, _
                ByVal Body As String, _
                ByVal Attachment As String, _
                ByVal Priority As Integer, _
                ByVal MailServer As String, _
                ByVal MailServerUserName As String, _
                ByVal MailServerPassWord As String) As Boolean

        'From                 发送地址
        'Recipient            接收地址
        'RecipientCC          副本抄送
        'RecipientBCC         隐藏的副本抄送
        'Subject              邮件标题
        'Body                 邮件内容
        'Attachment           附件
        'Priority             邮件的优先程度,从1到5
        'MailServer           SMTP服务器的IP地址或名称
        'MailServerUserName   SMTP服务器用户名
        'MailServerPassWord   SMTP服务器密码

        Dim eMail As New jmail.Message
        With eMail
            .Logging = True '调用Log记录,供Debug用
            .Silent = True

            .MailServerUserName = MailServerUserName  'SMTP服务器用户名
            .MailServerPassWord = MailServerPassWord  'SMTP服务器密码
            .From = From                                  '发送地址
            .AddRecipient (Recipient)                 '接收地址
            .AddRecipientBCC (RecipientBCC)           '隐藏的副本抄送
            .AddRecipientCC (RecipientCC)                '副本抄送
            .Subject = Subject                        '邮件标题
            .Body = Body                               '邮件内容
            If Len(Attachment) > 0 Then .AddAttachment (Attachment) '附件
            .Priority = Priority

            If eMail.Send(MailServer) Then            '发送到SMTP服务器
                SendMail = True
            Else
                SendMail = False
            End If
        End With
        DoEvents
        Set eMail = Nothing    '销毁实例
End Function

在VBA中用Jmail发邮件代码

在VBA中用Jmail发邮件其实很简单,下面以新浪邮箱为例。(需要下载注册jmail.dll) Sub SendMail(mail_from, mail_email, mail_subject, ma...
  • ccwanlxg
  • ccwanlxg
  • 2009-12-27 15:53:00
  • 1509

Jmail发送Html邮件内容

Jmail发送Html邮件内容
  • u010407050
  • u010407050
  • 2015-07-13 17:15:13
  • 1594

如何使用Jmail组件实现邮件的收发

Jmail是一个使用非常广泛的收发邮件的组件,发送邮件速度快,功能丰富并且不需要诸如Eudora、Exchange、Outlook之类的邮件客户端,并且是免费的。 下载地址:http://www...
  • zpp19901988
  • zpp19901988
  • 2015-07-22 09:59:47
  • 1684

Java邮件开发(一):使用JMail发送一封简单邮件

JMail是进行邮件开发的组件。由于所需要的jar非官方开发,需要自行下载所需jar包,我使用的是javamail-1.4.7。 不了解收发邮件过程的请先浏览我的另一片博客:电子邮件工作原理   大...
  • zyh5540
  • zyh5540
  • 2014-02-06 22:56:58
  • 4107

Asp.net中用Jmail发送邮件

Jmail 很简单使用,非常简单使用,明了!
  • u010270049
  • u010270049
  • 2015-07-14 11:37:04
  • 1428

ASP_jmail 实现网站留言自动发送到邮箱功能 含教程示例和jmail4.5安装文件

  • 2016年08月05日 10:50
  • 428KB
  • 下载

基于jmail控件实现邮件发送源码

  • 2015年11月15日 21:27
  • 1.48MB
  • 下载

新改的jmail发送邮件代码,有解释

%获得发送人的姓名fsname = request.Form("fsname")获得发送人的邮件地址fsemail = request.Form("fsemail")将发送人的邮件地址通过@分离开,放...
  • chinmo
  • chinmo
  • 2008-04-03 18:09:00
  • 7278

asp用jmail发送邮件,jmail邮件发送组件(成功发送附详细说明)

  • 2011年04月25日 14:45
  • 1.18MB
  • 下载

PHP使用JMail发送邮件

我使用的是IIS+PHP,没有安装和配置stmp,无法用自带的mail()函数发送邮件。不支持socket和PHPMailer,可以使用Jmail组件的虚拟主机,测试通过下面一段邮件发送代码:$jma...
  • pengyouchuan
  • pengyouchuan
  • 2010-02-23 13:41:00
  • 2723
收藏助手
不良信息举报
您举报文章:用JMail发送邮件
举报原因:
原因补充:

(最多只允许输入30个字)