adminVisualBasic6中發送郵件的新方法
用VB6編寫郵件程序時有很多郵件組件可供選擇，如IIS4.0附帶的MAPIMessages、CDONTS (NTS協作數據對象)，以及很多第三方廠商開發的郵件軟件。介紹了用CDONTS在VB中開發郵件程序的方法。
1.確認SMTP服務器已安裝
首先，您必須確認SMTP服務器已安裝在IIS服務器上，這是安裝Option Pack時的默認選項。如果安裝了SMTP服務器，System32目錄中將有一個名爲cdonts.dll的文件。
2.最簡單的郵件發送者
下麪是最簡單的郵件發送者，Me@hotmail.net曏abc@263.net發送了一封以“你好”爲標題和內容的郵件:
private subcmd sendmail _ click()
dimobjmail as object
Set objMail = CreateObject(" CD fonts。DLL")
ObjMail。發送"me@hotmail.net"，" abc@263.net"，" Title"，" Hello"
Set objMail = nothing
End Sub
3.發送郵件附件
如果有需要隨郵件發送的附件，可以使用CDONTS的AttachFile方法:
private subcmd sendmail _ click()
dimobjmail as object
setobjmail = createobject(" CD fonts . dll")
With ObjMail
。來自="me@hotmail.net"
。To="abc@263.net"
。Subject="Title"
。Body="Hello"
。attach file" c:\ document \ sample . doc"，" sample.doc"
。send
End With
Set obj mail = nothing
End Sub
4.CDONTS組件的常用屬性和方法
CDONTS組件的常用屬性和方法如下:
屬性:
版本:返廻CDONTS組件的版本號
MailFormat:郵件格式，1-普通文本類型；0-MIME類型
抄送:設置一個或多個電子郵件地址
發件人地址
收件人地址
主題:標題
正文:內容
正文格式:內容格式，1 0-超文本
方法:
AttachFile:附加文件
AttachURL:附加地址
Send:發送郵件。
5.用超文本格式發郵件
你一定見過很多超文本格式的郵件，裡麪不僅可以有圖片、聲音，還可以嵌入動畫。如果你給你的朋友發一封這樣的郵件，一定會給他(她)帶來意想不到的驚喜，因爲普通的郵件發送程序是你無能爲力的。下麪的CDONTS組件用來發送一條HTML消息，圖片名爲sample.gif，程序如下:
private subcmd sendmail _ click()
dimobjmail as object
set objmail = createobject(" CD fonts . dll")
dimstrtml as string
str HTML =""
str HTML = str HTML""
str HTML = str HTML"[/br
"
strtml = strtml"
上麪的示例嵌入了圖像sample.gif
"
str html = str html""
With obj mail
。來自="me@hotmail.net"
。To="abc@263.net"
。Subject="Title"
。Body=strHTML
。attacherl"c: \ mydata \ sample.gif"，" sample.gif"
。bodyformat = 0
。emailformat = 0
。send
end with
SMTP obj mail = nothing。SMTP服務器接收您的外發郵件，但不騐証發件人的姓名和地址。這是SMTP的異步發送機制決定的，但是可能有人別有用心的利用它來冒充別人發送郵件！這篇文章強烈建議你不要輕易嘗試。一旦ISP知道了你的行爲，你的賬號很可能會立刻被刪除。
0條評論