幾種不同的郵件傳送解決方案

幾種不同的郵件傳送解決方案

private sub send()

dim item as outlook.mailitemclass
item = outobj.createitem(0)
item.to = "[email protected] "
item.subject = "hello"
item.body = "hell"
item.attachments.add("c:/abc.txt")
item.send()
end sub

private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click

dim mailobj as new mailmessage()
dim **tp as **tpmail
'定義**tp伺服器的名稱 
**tp.**tpserver = "**tp.***.com"
'定義郵件的傳送位址 
mailobj.from = "lihonggen@***.com"
'定義郵件的接收位址 
mailobj.to = " aaa@***.com"
'定義郵件的暗送位址 
mailobj.bcc= "[email protected]"
'定義郵件的抄送位址 
mailobj.cc = "[email protected]"
'定義郵件的主題 
mailobj.subject = "主題"
'定義郵件的主體 
mailobj.body = "郵件主體！"
'郵件以 html的格式傳送 
mailobj.bodyformat = mailformat.html
'定義郵件的有限級，在此設定為高 
mailobj.priority = mailpriority.high
mailobj.attachments.add(new mailattachment("c:/aa.doc"))
**tp.send(mailobj)
end sub

dim senddata as string

dim szdata as byte()
dim crlf as string
crlf = "/r/n"
'建立與伺服器25埠的連線
dim **tpserv as new tcpclient(txt**tp.text, 25)
lstlog.items.clear()
'顯示伺服器初始資訊
dim netstrm as networkstream
netstrm = **tpserv.getstream()
dim rdstrm as new streamreader(**tpserv.getstream())
if rdstrm.readline() <> "" then lstlog.items.add(rdstrm.readline())
'
senddata = "helo server " + crlf
szdata = system.text.encoding.ascii.getbytes(senddata.tochararray())
netstrm.write(szdata, 0, szdata.length)
lstlog.items.add(rdstrm.readline())
'標誌發件人
senddata = "mail from: " + "<" + txtfrom.text + ">" + crlf
szdata = system.text.encoding.ascii.getbytes(senddata.tochararray())
netstrm.write(szdata, 0, szdata.length)
lstlog.items.add(rdstrm.readline())
'標誌收件人
senddata = "rcpt to: " + "<" + txtto.text + ">" + crlf
szdata = system.text.encoding.ascii.getbytes(senddata.tochararray())
netstrm.write(szdata, 0, szdata.length)
lstlog.items.add(rdstrm.readline())
'準備傳送內容
senddata = "data " + crlf
szdata = system.text.encoding.ascii.getbytes(senddata.tochararray())
netstrm.write(szdata, 0, szdata.length)
lstlog.items.add(rdstrm.readline())
'傳送主題
senddata = "subject: " + txtsub.text + crlf
'傳送內容
senddata = senddata + txtmsg.text + crlf
'結束傳送
senddata = senddata + "." + crlf
szdata = system.text.encoding.ascii.getbytes(senddata.tochararray())
netstrm.write(szdata, 0, szdata.length)
lstlog.items.add(rdstrm.readline())
'退出
senddata = "quit " + crlf
szdata = system.text.encoding.ascii.getbytes(senddata.tochararray())
netstrm.write(szdata, 0, szdata.length)
lstlog.items.add(rdstrm.readline())
'關閉連線
netstrm.close()
rdstrm.close()
lstlog.items.add("連線關閉")
lstlog.items.add("傳送成功")

4、iis **tp自帶的基本的發信元件cdonts

優點：元件由作業系統自帶

缺點：功能比較差，可擴充套件性不強

mymail = createobject("cdonts.newmail")

mymail.from = *** '信件傳送者信箱
mymail.to = *** 『信件接收者信箱
mymail.cc = *** '抄送
mymail.bcc = *** 』密件傳送
mymail.subject = *** 『信件主題
mymail.body = *** 』信件正文
'設定優先順序，0-不重要，1-一般，2-重要。
Jmail c 傳送郵件完全解決方案
清單 using jmail using system.net email 的摘要說明 public class email 傳送郵件 沒有抄送人 接收郵件名 發件人姓名 郵件標題 郵件內容 public static bool sendmail string usermail,string use...
用Flask mail傳送郵件失敗解決方案
在看flask web開發第六章的時候發現執行書上的 有錯誤，在掙扎了一中午，終於找到問題所在以及解決方法 shell方面 from hello import mail from flask mail import message from hello import mail msg message...
流程節點中傳送郵件的解決方案
在流程引擎中，需要內建傳送郵件的功能，當流程流轉的時候，提交給下一步人辦理時，可以傳送郵件通知下一步的辦理人，及時登入系統，處理相應的任務。郵件的傳送，需要在當前節點辦理完成後，有流程引擎來呼叫傳送郵件的功能，傳送郵件，同時獲取傳送人的郵件位址，傳送給誰的郵件位址，郵件正文的資訊等等。郵件位址，郵件...