用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

jmail收取未读邮件(带附件)

/** jmail 收取"未读邮件" **/ //测试邮箱地址为 recieveceshi@163.com   /* pop.DownloadUnreadMessages()是用来“收取未读邮件...
  • aAa9079
  • aAa9079
  • 2014年08月27日 18:09
  • 1446

Java邮件开发(二):使用JMail发送一封图文并茂且包含附件的邮件(下)

在上一篇文章Java邮件开发(二):使用JMail发送一封图文并茂且包含附件的邮件(上) 中,我们大概了解了一封邮件的组成。 下面我们完成发送有以下要求的邮件: 1.正文是一段html代码 2...
  • zyh5540
  • zyh5540
  • 2014年02月09日 22:12
  • 2022

jmail + c#实现邮件的接收

引言    在上一篇博客中和大家分享了关于邮件发送的学习,既然邮件实现了发送,那么我们仍然需要实现邮件接收的 功能,那么下面就和大家分享一下关于邮件发送的基本实现过程,当然我们在实...
  • u013045437
  • u013045437
  • 2015年11月17日 23:52
  • 1963

.net jMail邮件发送(含抄送、密送、多发、日志记录)

jmail是一个第三方邮件操作组件,通常位于web服务器端,实现收邮件及发邮件功能(客户端用Foxmail这类就很好了)。可以利用它轻松实现发邮件、抄送、密送、多发、日志记录及收邮件功能。本章要讲的,...
  • z1119815468
  • z1119815468
  • 2013年11月20日 16:20
  • 2439

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

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

Asp.net中用Jmail发送邮件

Jmail 很简单使用,非常简单使用,明了!
  • u010270049
  • u010270049
  • 2015年07月14日 11:37
  • 1150

Jmail发送Html邮件内容

Jmail发送Html邮件内容
  • u010407050
  • u010407050
  • 2015年07月13日 17:15
  • 1441

X64操作系统组件Jmail无法正常服务问题

故障现象:近日,在VMware虚拟化部署迁移中,之前物理服务器中部署网站ASP组件Jmail服务一切正常,迁移完成后发现Jmail无法正常工作,其余组件能正常工作。环境:Windows Server ...
  • l472995348
  • l472995348
  • 2016年05月26日 21:19
  • 642

JMail的SSL以及非SSL发送邮件

import java.io.BufferedReader; import java.io.IOException; import java.io.InputStreamReader; impo...
  • ywz315318
  • ywz315318
  • 2013年12月10日 19:16
  • 1925

asp使用JMAIL发送SMTP邮件超过10条就失败原因查询

我使用内外asp程序发送忘记密码邮件,超过10条就再不成功。经过反复查找原因,才知道mail.qq.com和mail.163.com限制,把我的邮件当作垃圾邮件。 asp程序如下: ...
  • hughhzh
  • hughhzh
  • 2016年12月21日 17:03
  • 758
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用JMail发送邮件
举报原因:
原因补充:

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