[雜事]2013-05-01 VB 實現 發MAIL 郵件

最近碩論要用到 VB這東西

話說寫VB 其實很簡單

雖然我好幾年沒碰了

依稀記得應該是大二的事情了

起碼也有三年多了

那時候是寫VB6

雖然現在 VB2010 2009 等等的 一堆

但是還是習慣用老介面

其實不會差太多  能實現功能最重要

講了一堆 要開始來講重點了    利用vb6 來實現 發送 MAIL　郵件


Set objCDO = CreateObject("CDO.Message")
strCfg = "http://schemas.microsoft.com/cdo/configuration/"
With objCDO
.From = "自己的郵件EMAIL網址"
.To = "要傳給誰"
.Fields("urn:schemas:mailheader:X-Priority") = 1
.Fields("urn:schemas:httpmail:priority") = 1
.Fields.Update
.Subject = "標題"
.TextBody = "信件本體"
.Configuration(strCfg & "sendusing") = 2
.Configuration(strCfg & "smtpserver") = "你採用的信箱都會有一個smtp網路上找就有"
.Configuration(strCfg & "smtpserverport") = 25 ' 預設即為 25
.Configuration(strCfg & "sendusername") = "名稱" ' Send User Name
.Configuration(strCfg & "sendpassword") = "密碼" ' Send Password

.Configuration.Fields.Update
.Send
End With

Set objCDO = Nothing


記得去  專案> 設定引用元件中 把  Microsoft CDO for  Windows 2000 Library 打勾