使用W3 JMail實現郵件傳送的解決方案（3）（完） (轉)

8、  Attachment

屬性（或方法）

描述

New(FileName,ContentType,Data):Pointer

建立一個可以加入到Attachments集合的附件。如果指定Data的值，那麼將建立一個以Data引數為內容的自定義附件。

SaveToFile(FileName)

儲存附件到。

ContentType():String

返回附件型別（ContentType）

Data():String

返回附件的內容。

BinaryData():String

以二進位制返回附件的內容。

IsInline():Boolean

如果附件被設定為可嵌入（inline）,則返回True。

Name():String

返回附件的名稱。

Size():Integer

返回附件的大小。

9、  MailMerge物件

屬性（或方法）

描述

BulkMerge(RecordSet,enque,Maildestination)

參照郵件模板合併所有記錄，要指定使用的pickuo資料夾或郵件。

Expand():Pointer

參照指定的方式合併郵件模板（mailTemplate）。

ExpandFromRecordSet(RecordSet):Pointer

參照郵件模板（mailTemplate）合併ADO物件中的一例。

SetDeMode(TestMailAddress,TestCount)

將郵件合併（mailMerge）設定為測試模式。

Item(VariableNmae):String

手工設定合併引數。注意：該功能不使用於ADO資料例的合併。

MailTemplate():Pointer

設定一個建立好的Message物件，這個物件將被作為郵件合併的模板。

MergeAttachments():Boolean

當該屬性設定為 True時，附件被作為郵件合併的一個選項。

10、  PGPKeys物件

屬性（或方法）

描述

Count():Integer

返回密碼的總數。

Item(Index):Pointer

返回PGPKey資訊物件。

11、  PGPKeyInfo物件

屬性（或方法）

描述

KeyCreateDate():String

返回郵件密碼建立的時間。

KeyID():String

返回密碼的ID號。

KeyUser():String

返回建立密碼的使用者名稱。

12、  SpeedMailer物件

屬性（或方法）

描述

Enqu(FromEmail,RecipientEmails,

Subject,Body,MsPickupdirectory)

新增一個郵件到傳送佇列。內容、主題等資料透過該方法的引數傳遞。

(FromEMail,RecipientEMails,

Subject,Body,MailServers)

透過SMTP傳送一封郵件。內容、主題等資料透過該方法的引數傳遞。

SendXMLMail(XML)

關於該的用法請訪問：/namespace/jmail">

四、利用Jmail4.3郵件傳送郵件示例：

透過以上的介紹，相信讀者對Dimac W3 Jmail及其一些常用的物件已有了比較全面的瞭解。下面將透過一個例子來講解如何建立w3 Jmail物件，並使用它來建立一個新郵件，設定郵件的標題、內容等併傳送該郵件。

JmailSend.

Response.Buffer=True

‘建立Jmail.Message物件例項oJmail

Set oJmail=Server.Create(“Jmail.Message”)

‘啟動日誌功能

oJmail.Logging=True

‘不將錯誤返回給操作

oJmail.Silent=True

‘設定郵件傳送者的郵件地址

”

‘設定郵件傳送者的姓名

oJmail.FromName=”小虎”

‘設定接收郵件人的地址

oJmail.AddRecipient ”

‘設定郵件標題

oJmail.Subject=”郵件測試系統”

‘郵件正文

oJmail.Body=”朋友：”&vbCrLf&vbCrLf&”最近，我使用Jmail開發一個郵件傳送系統。”

‘傳送郵件，Mail.myain.com假設為SMTP伺服器

oJmail.Send(“Mail.myDomain.com”)

%>

接下來我們再來看一個比較簡單的郵件接收系統。這個例子的過程，首先是從存放郵件的伺服器上取出郵件，然後把它同附件一起顯示在也面上。

JmailReceipt.asp

Set pJmail = Server.CreateObject( "JMail.POP3" )
pJmail.Connect "username", "pass", "mail.mydomain.com"
Response.Write( "你有 " & pJmail.count & " 封新郵件

" )
if pJmail.count > 0 then
Set msg = pJmail.Messages.item(1)
ReTo = ""
ReCC = ""
Set Recipients = msg.Recipients
separator = ", "
For i = 0 To Recipients.Count - 1
 If i = Recipients.Count - 1 Then
 separator = ""
 End If
 Set re = Recipients.item(i)
 If re.ReType = 0 Then
 ReTo = ReTo & re.Name & " (" & re.EMail & ")" & separator
 else
 ReCC = ReTo & re.Name & " (" & re.EMail & ")" & separator
 End If
Next
Function getAttachments()
 Set Attachments = msg.Attachments
  separator = ", "
 For i = 0 To Attachments.Count - 1
 If i = Attachments.Count - 1 Then
 separator = ""
 End If
 Set at = Attachments(i)
 at.SaveToFile( "c:fujian" & at.Name )
 getAttachments = getAttachments & " at.Name &""">" & at.Name & "(" & at.Size & " bytes)" &_
 "" & separator
 Next
End Function

%>

  至此，一個簡單的郵件傳送和接收系統就開發完成了。至於有些網友要開發比較複雜的郵件系統，可以結合以上所講的物件及其屬性方法來開發，肯定會開發出功能強大齊全的郵件系統。