Dim Lines = System.IO.File.ReadAllLines("D:\zhege\qp.txt")
公主嶺ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景，ssl證書未來市場廣闊！成為成都創(chuàng)新互聯公司的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯系或者加微信：028-86922220（備注：SSL證書合作）期待與您的合作！
'郵件源代碼應該是分行讀取，替換掉這個數組就行。for代碼段符合流的讀取行方法（readline）。
Dim codeBuilder As New System.Text.StringBuilder
For Each code As String In Lines
code = code.Replace("==", "=")
If code.EndsWith("=") Then
code = code.Substring(0, code.Count - 1)
codeBuilder.Append(code)
ElseIf code "" Then
codeBuilder.AppendLine(code)
End If
Next
Dim reg As New System.Text.RegularExpressions.Regex("(=(\d|[A-F]){2}){1,}")
Dim match As System.Text.RegularExpressions.Match = Nothing
While reg.IsMatch(codeBuilder.ToString)
match = reg.Match(codeBuilder.ToString)
Dim Bytes As New List(Of Byte)
For Each cMatch As String In Replace(match.Value, "=", "", 1, 1).Split("="c)
Bytes.Add(CByte("h" cMatch))
Next
codeBuilder = codeBuilder.Replace(match.Value, System.Text.Encoding.Default.GetString(Bytes.ToArray))
End While
MsgBox(codeBuilder.ToString)
我只測試了一段qp代碼，可能有誤。如果qp不是Default編碼，結果可能是亂碼，需要注意
在Identity2.0里面封裝了IIdentityMessageService接口，可以用來發(fā)送接收郵件。
看看
Imports System.Threading.Tasks
Imports System.Security.Claims
Imports Microsoft.AspNet.Identity
Imports Microsoft.AspNet.Identity.EntityFramework
Imports Microsoft.AspNet.Identity.Owin
Imports Microsoft.Owin
Imports Microsoft.Owin.Security
public function SendAsync(message as IdentityMessage) as task
dim credentialUserName = "郵箱登錄名"
dim sentFrom = "你的郵箱地址"
dim pwd= "郵箱登錄密碼";
dim client as new System.Net.Mail.SmtpClient("smtp服務器地址")
client.Port = 25'mtp郵件服務器端口
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
client.UseDefaultCredentials = false
dim credentials as new System.Net.NetworkCredential(credentialUserName, pwd)
client.EnableSsl = true
client.Credentials = credentials
dim mail as new System.Net.Mail.MailMessage(sentFrom, message.Destination)
mail.Subject = message.Subject
mail.Body = message.Body
return client.SendMailAsync(mail)
end function
Visual Basic 6中發(fā)送郵件的新方法
用VB6編寫發(fā)送郵件的程序，有多種E-mail組件可供選擇，如MAPIMessages、IIS4.0附帶的CDONTS（NTS Collaboration Data Objects）以及許多第三方廠商開發(fā)的Email軟件等。本文介紹用CDONTS開發(fā)VB下的郵件程序方法。
1. 確認已安裝SMTP服務器
首先，必須確認在IIS服務器上已安裝SMTP服務器，這是安裝Option Pack時被缺省安裝的選項。如果SMTP服務器已安裝，在System32目錄下會存在一個名為cdonts.dll的文件。
2. 最簡單的郵件發(fā)送程序
以下是一個最簡單的郵件發(fā)送程序，它由me@hotmail.net向abc@263.net發(fā)出一封標題為“Title”、內容為“Hello”的E-mail：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
ObjMail.Send "me@hotmail.net ", "abc@263.net","Title","Hello"
Set objMail=nothing
End Sub
3. 發(fā)送郵件附件
如果有附加的文件需要隨同郵件傳送，可以使用CDONTS的AttachFile方法：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
With ObjMail
.From= "me@hotmail.net "
.To= "abc@263.net"
.Subject="Title"
.Body="Hello"
.AttachFile "c:\document\ sample.doc","sample.doc"
.Send
End With
Set objMail=nothing
End Sub
4. CDONTS組件常用屬性和方法
CDONTS組件常用的屬性和方法列舉如下：
屬性：
Version：返回CDONTS組件的版本號
MailFormat：郵件格式，1-普通文本類型；0-MIME類型
Cc：設置一個或多個參閱的郵件地址
From：郵件發(fā)送者的地址
To ：郵件接受者的地址
Subject：標題
Body：內容
BodyFormat：內容格式，1-普通文本；0-超文本
方法：
AttachFile：附加一個文件
AttachURL：附加一個地址
Send：發(fā)送郵件
5. 發(fā)送超文本格式的E-mail
你一定見到過許多使用超文本格式的E-mail，其中不但可以有圖片、聲音，甚至還可以嵌入動畫。如果給你的朋友也發(fā)送一封這樣的郵件，一定會帶給他（她）意外的驚喜，因為這用一般的郵件發(fā)送程序是無能為力的。以下使用CDONTS組件發(fā)送一個HTML格式的郵件，其中包含有一幅名為sample.gif的圖片，程序如下：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
Dim strHTML as String
StrHTML=""
StrHTML= StrHTML+""
StrHTML = StrHTML +"
用CDONTS發(fā)送Email的例子"
StrHTML= StrHTML+"
"
StrHTML= StrHTML+"
以上例子嵌入了圖片sample.gif
"
StrHTML= StrHTML+""
With ObjMail
.From= "me@hotmail.net "
.To= "abc@263.net"
.Subject="Title"
.Body=strHTML
.AttachURL "c:\mydata\sample.gif","sample.gif"
.BodyFormat=0
.EmailFormat=0
.Send
End With
Set objMail=nothing
End Sub
到這里，相信大家一定發(fā)現SMTP郵件處理的一個缺陷了。SMTP服務器接收你的輸出消息，但并不做發(fā)送者名字和地址的驗證，這本是由SMTP的異步發(fā)送機制所決定的，但有人可能別有用心地用它來假扮別人發(fā)送郵件！本文強烈建議各位切勿輕易試用，一旦讓ISP知道你的行徑，你的帳號極可能會被立即刪除。
重慶分公司
重慶分公司
