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