mail寄信 連接安全性問題

fenghsite

小弟需要使用到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

...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

一般來說 就只能手動開關吧...只是一般人好像不會動用到那邊吧？

fenghsite

darkjack 發表於 2015-3-26 07:22 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

不是很懂你那個 安全性的 開關在哪
我用win 7 64 bit 一切內定設定（除了瀏覽器之外)
我寫的一小段 並沒有 ...

...

瀏覽完整內容，請先 註冊 或 登入會員

Jeepluo

這裡有一段程式，供參考看看

1. Imports System.IO
   
2. Imports EAGetMail 'imports EAGetMail namespace
   
3. 
   
4. Module Module1
   
5.     Sub Main()
   
6.         ' Create a folder named "inbox" under current directory
   
7.         ' to save the email retrieved.
   
8.         Dim curpath As String = Directory.GetCurrentDirectory()
   
9.         Dim mailbox As String = [String].Format("{0}\inbox", curpath)
   
10. 
    
11.         ' If the folder is not existed, create it.
    
12.         If Not Directory.Exists(mailbox) Then
    
13.             Directory.CreateDirectory(mailbox)
    
14.         End If
    
15.             
    
16.         ' Gmail IMAP server is "imap.gmail.com"
    
17.         Dim oServer As New MailServer("imap.gmail.com", _
    
18.             "gmailid@gmail.com", "yourpassword", ServerProtocol.Imap4 )
    
19.         Dim oClient As New MailClient("TryIt")
    
20. 
    
21.         ' Enable SSL connection
    
22.         oServer.SSLConnection = True
    
23. 
    
24.         ' Set IMAP4 SSL port
    
25.         oServer.Port = 993
    
26. 
    
27.         Try
    
28.             oClient.Connect(oServer)
    
29.             Dim infos As MailInfo() = oClient.GetMailInfos()
    
30.             For i As Integer = 0 To infos.Length - 1
    
31.                 Dim info As MailInfo = infos(i)
    
32.                 Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}", _
    
33.                         info.Index, info.Size, info.UIDL)
    
34. 
    
35.                 ' Receive email from Gmail server
    
36.                 Dim oMail As Mail = oClient.GetMail(info)
    
37. 
    
38.                 Console.WriteLine("From: {0}", oMail.From.ToString())
    
39.                 Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)
    
40. 
    
41.                 ' Generate an email file name based on date time.
    
42.                 Dim d As System.DateTime = System.DateTime.Now
    
43.                 Dim cur As New System.Globalization.CultureInfo("en-US")
    
44.                 Dim sdate As String = d.ToString("yyyyMMddHHmmss", cur)
    
45.                 Dim fileName As String = [String].Format("{0}\{1}{2}{3}.eml", _
    
46.                      mailbox, sdate, d.Millisecond.ToString("d3"), i)
    
47. 
    
48.                 ' Save email to local disk
    
49.                 oMail.SaveAs(fileName, True)
    
50. 
    
51.                 ' Mark email as deleted in Gmail Account
    
52.                 oClient.Delete(info)
    
53.             Next
    
54. 
    
55.             ' Quit and pure emails marked as deleted from Gmail IMAP4 server.
    
56.             oClient.Quit()
    
57.         Catch ep As Exception
    
58.             Console.WriteLine(ep.Message)
    
59.         End Try
    
60. 
    
61.     End Sub
    
62. End Module

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

johnwanz

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

依照此網頁所說, 該功能鎖定是在個人google帳戶的安全性設定中, 正常流程應該是沒辦法從應用程序修改的.

darkjack

不是很懂你那個 安全性的 開關在哪
我用win 7 64 bit 一切內定設定（除了瀏覽器之外)
我寫的一小段 並沒有這樣的問題喔
textbox 請自己增加喔

1.   Dim mail As New MailMessage()
   
2.   Dim SmtpServer As New SmtpClient()
   
3.     SmtpServer.Credentials = New Net.NetworkCredential(TextBox2.Text, TextBox5.Text)
   
4.     SmtpServer.Port = 587
   
5.     SmtpServer.Host = "smtp.gmail.com"
   
6.     SmtpServer.EnableSsl = True
   
7. 
   
8.     mail = New MailMessage()
   
9.     '多郵件分隔
   
10.     Dim addr() As String = TextBox1.Text.Split(",")
    
11. 
    
12.     Try
    
13.       '顯示 郵件地址 , 暱稱 , 文件格式
    
14.       mail.From = New MailAddress(TextBox2.Text, TextBox6.Text, System.Text.Encoding.UTF8)
    
15. 
    
16.       Dim i As Byte
    
17.       For i = 0 To addr.Length - 1
    
18.         '郵件集合（多人一次送出）
    
19.         'mail.To.Add(addr(i))
    
20.         'mail.CC.Add(addr(i))
    
21.         mail.Bcc.Add(addr(i))
    
22.       Next
    
23. 
    
24.       mail.Subject = TextBox3.Text
    
25.       mail.Body = TextBox4.Text
    
26. 
    
27.       '檔案列表是否有檔案
    
28.       If ListBox1.Items.Count <> 0 Then
    
29.         For i = 0 To ListBox1.Items.Count - 1
    
30.           mail.Attachments.Add(New Attachment(ListBox1.Items.Item(i)))
    
31.         Next
    
32.       End If
    
33.       mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
    
34.       mail.ReplyTo = New MailAddress(TextBox1.Text)
    
35.       SmtpServer.Send(mail)
    
36.       MsgBox("OK")
    
37.       '清除列表
    
38.       ListBox1.Items.Clear()
    
39.     Catch ex As Exception
    
40.       MsgBox(ex.ToString())
    
41.     End Try

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員