mail寄信連接安全性問題 - 伊莉討論區

Try
         Dim myMail As New MailMessage()
         myMail.From = New MailAddress("~~@gmail.com", "~~") '發送者
         myMail.To.Add("fuchyunbih@gmail.com") '收件者
         myMail.Subject = "測試郵件" '主題
         myMail.Body = "aa~" '內文

         Dim mySmtp As New SmtpClient() '建立SMTP連線
         mySmtp.Credentials = New System.Net.NetworkCredential("~~@gmail.com", "~~") '連線驗證
         mySmtp.Port = 587 'SMTP Port
         mySmtp.Host = "smtp.gmail.com" 'SMTP主機名稱
         mySmtp.EnableSsl = True '開啟SSL驗證
         mySmtp.Send(myMail) '發送
      Catch ex As Exception
         MsgBox(ex.ToString)
      End Try

Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential(TextBox2.Text, TextBox5.Text)
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail = New MailMessage()
'多郵件分隔
Dim addr() As String = TextBox1.Text.Split(",")
Try
'顯示郵件地址 , 暱稱 , 文件格式
mail.From = New MailAddress(TextBox2.Text, TextBox6.Text, System.Text.Encoding.UTF8)
Dim i As Byte
For i = 0 To addr.Length - 1
'郵件集合（多人一次送出）
'mail.To.Add(addr(i))
'mail.CC.Add(addr(i))
mail.Bcc.Add(addr(i))
Next
mail.Subject = TextBox3.Text
mail.Body = TextBox4.Text
'檔案列表是否有檔案
If ListBox1.Items.Count <> 0 Then
For i = 0 To ListBox1.Items.Count - 1
mail.Attachments.Add(New Attachment(ListBox1.Items.Item(i)))
Next
End If
mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
mail.ReplyTo = New MailAddress(TextBox1.Text)
SmtpServer.Send(mail)
MsgBox("OK")
'清除列表
ListBox1.Items.Clear()
Catch ex As Exception
MsgBox(ex.ToString())
End Try

複製代碼

Imports System.IO
Imports EAGetMail 'imports EAGetMail namespace
Module Module1
Sub Main()
' Create a folder named "inbox" under current directory
' to save the email retrieved.
Dim curpath As String = Directory.GetCurrentDirectory()
Dim mailbox As String = [String].Format("{0}\inbox", curpath)
' If the folder is not existed, create it.
If Not Directory.Exists(mailbox) Then
Directory.CreateDirectory(mailbox)
End If
' Gmail IMAP server is "imap.gmail.com"
Dim oServer As New MailServer("imap.gmail.com", _
"gmailid@gmail.com", "yourpassword", ServerProtocol.Imap4 )
Dim oClient As New MailClient("TryIt")
' Enable SSL connection
oServer.SSLConnection = True
' Set IMAP4 SSL port
oServer.Port = 993
Try
oClient.Connect(oServer)
Dim infos As MailInfo() = oClient.GetMailInfos()
For i As Integer = 0 To infos.Length - 1
Dim info As MailInfo = infos(i)
Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}", _
info.Index, info.Size, info.UIDL)
' Receive email from Gmail server
Dim oMail As Mail = oClient.GetMail(info)
Console.WriteLine("From: {0}", oMail.From.ToString())
Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)
' Generate an email file name based on date time.
Dim d As System.DateTime = System.DateTime.Now
Dim cur As New System.Globalization.CultureInfo("en-US")
Dim sdate As String = d.ToString("yyyyMMddHHmmss", cur)
Dim fileName As String = [String].Format("{0}\{1}{2}{3}.eml", _
mailbox, sdate, d.Millisecond.ToString("d3"), i)
' Save email to local disk
oMail.SaveAs(fileName, True)
' Mark email as deleted in Gmail Account
oClient.Delete(info)
Next
' Quit and pure emails marked as deleted from Gmail IMAP4 server.
oClient.Quit()
Catch ep As Exception
Console.WriteLine(ep.Message)
End Try
End Sub
End Module

複製代碼