從Windows應用程序中發送電子郵件

從我們的Windows應用程序發送郵件的Visual Basic。淨 System.Net.Mail.MailMessage使用類。

在下面的例子中,我們將創建一個窗體(Form1),一個文本框,鍵入消息(TextBox1的)和一個按鈕(button1)發送短信發送電子郵件。


昏暗作為新System.Net.Mail.MailMessage mymail

 miCorreo.IsBodyHtml = FALSE
 miCorreo.From =“info@solovb.net”“您發送郵件
 correo.To.Add(“usuario@hotmail.com)'郵件收件人
 correo.Subject =“Windows應用程序的測試消息solovb.net]”'案例

 miCorreo.Body = TextBox1.Text'郵件正文

 miCorreo.Priority = System.Net.Mail.MailPriority.Normal優先

暗淡SMTP作為新System.Net.Mail.SmtpClient

 smtp.Host =“smtp.solovb.net”
 “我通過你送的帳號和密碼的憑據
 smtp.Credentials =的新System.Net.NetworkCredential(,“info@solovb.net”clave123456“))

嘗試
       smtp.Send(mymail)
       MSGBOX(“發送的消息。”MsgBoxStyle.OKOnly,“solovb.net”)
作為例外趕上前
       MSGBOX(“錯誤:”錯誤!“&ex.Message,MsgBoxStyle.OKOnly)
最終的結局

事實上這個例子,您可以添加許多功能,如發件人,收件人和SMTP設置文本框。

但對於一個例子(我喜歡)越簡單越好你會有時間複雜,哈哈。

如果我們IsBodyHtml屬性為True,我們填寫HTML代碼,使我們的消息得到了更好的外觀身體。

如果你擔任,發表評論。

50“從Windows應用程序發送電子郵件。”

  1. Bitacoras.com 說:

    信息Bitacoras.com ...

    如果你願意,你可以點擊評價後Bitacoras.com。 謝謝....

  2. 何塞說:

    好。

    一個問題,在下面一行:

    miCorreo.From =“josem.flores @ sfb.es”您發送郵件

    它表明一個類型為“String”的值不能被轉換為“System.Net.Mail.MailAdress”

    讓我們來看看,如果我可以請幫幫忙。 因為我已經改變了,但我不能修復該錯誤。

    的問候和感謝

    • 以利沙說:

      你可以用下面的行,以避免錯誤

      新System.Net.Mail.MailAddress miCorreo.From =(的“josem.flores @ sfb.es”)

      以利沙

  3. 何塞說:

    非常感謝。

    但我有一個問題,我貼上我的代碼的問題,並告訴你:

    暗淡作為,新System.Net.Mail.MailMessage _Message()

    昏暗作為新System.Net.Mail.SmtpClient _SMTP

    'STMP設定

    =的新System.Net.NetworkCredential _SMTP.Credentials(“電子郵件帳戶”,“密碼”)

    _SMTP.Host =“Smtp.gmail.com”

    _SMTP.Port = 465

    _SMTP.EnableSsl = TRUE

    “配置消息

    _message [到]。(“電子郵件帳戶”)的郵件帳戶,你要發送的電子郵件

    _Message.From =新System.Net.Mail.MailAddress(“電子郵件帳戶”,“名”,System.Text.Encoding.UTF8)'發件人

    _Message.Subject =“測試”的電子郵件的主題

    _Message.SubjectEncoding = System.Text.Encoding.UTF8的編碼

    _Message.Body =“這是一個測試”'郵件的內容

    _Message.BodyEncoding = System.Text.Encoding.UTF8

    “_Message.Priority = System.Net.Mail.MailPriority.Normal

    _Message.IsBodyHtml = FALSE

    “添加附件

    “昏暗的String = My.Application.Info.DirectoryPath”文件“_file要附加文件

    “DIM作為新System.Net.Mail.Attachment _Attachment(_file,System.Net.Mime.MediaTypeNames.Application.Octet)

    '_Message.Attachments.Add(_Attachment)

    “商船

    嘗試

    _SMTP.Send(_Message)

    作為System.Net.Mail.SmtpException趕上前

    “MessageBox.Show(ex.ToString)

    最終的結局

    此代碼是確定的。

    現在,當我發送郵件時,我得到以下錯誤:

    它超過了應用程序的等待時間。

    一個telnet smtp.gmail.com 465連接完美,但它不發送電子郵件...

    我將不勝感激,如果你可以清除你給我一個解決方案,因為我無法得到它...

    一個問候,並感謝你非常提前。

  4. 以利沙說:

    代碼是好的,其實我在apliaciones和運行使用。 顯然,問題是缺少一些Gmail設置。 與Gmail,我得到一個錯誤。 如果我做它與Gmail的工作,我將發布的解決方案。

  5. foogeobre說:

    謝謝!

  6. 何塞說:

    確定以利沙。

    我更改了端口為587會不會讓我通過telnet,但仍然沒有工作......

    我會繼續找,如果我告訴他的東西。 我希望您的解決方案,如果它仍然失敗。 :D

    非常感謝和問候。

  7. 何塞說:

    的方式。

    你能告訴我任何SMTP服務器能夠正常工作,例如與your're運行,需要盡快實現它,我無法找到任何服務器,工作...

    見你做到這一點,我嘗試它,如果你能告訴我,如果因此,如果我的工作。 ;)

    再次非常感謝你。

    打了招呼。

  8. 何塞說:

    好。

    現在一切都塵埃落定,這是防病毒程序,削減進行大量郵件的蠕蟲問題,必須在例外進程進入正常工作。

    非常感謝。

    打了招呼。

  9. kyha說:

    早晨好。

    我有一個代碼非常,非常相似suyo.El問題是我不發送郵件,直到您關閉應用程序,或其他郵件投遞entionces後者不發送。你知道為什麼或如何我可以解決它?
    謝謝

  10. 卡洛斯說:

    這是一個很好的功能! 感謝與我們一起分享 :D

  11. 馬里諾說:

    感謝你分享這段代碼......這是推動我瘋了沒有我出去的郵件。 感謝你的解決了這個錯誤。 繼續努力吧... :)

  12. pharsat說:

    打著招呼,那些無法找到一個SMTP服務器的工作我給一個使用的Windows Live Hotmail的配置,是100%肯定,我離開我的代碼以觀察。

    請不要修改它的程序代碼有關服務器的配置,以避免錯誤。

    昏暗作為新System.Net.Mail.MailMessage mymail

    miCorreo.IsBodyHtml = FALSE
    miCorreo.From =新System.Net.Mail.MailAddress(“ejemplo@hotmail.com”),從那裡發送郵件
    miCorreo.To.Add(“ejemplo@hotmail.com)'郵件收件人
    miCorreo.Subject =“榜樣”,“案例
    miCorreo.Body =“你可以把文本或HTML代碼的字符串,如果expesificas它將包括消息”
    miCorreo.Priority = System.Net.Mail.MailPriority.Normal優先
    “不修改以下行qye的和微軟(的Windows Live SMTP服務器coniguracion的對應)
    暗淡SMTP作為新System.Net.Mail.SmtpClient

    smtp.Host =“smtp.live.com”
    smtp.Port =“25”
    smtp.EnableSsl = TRUE

    “我通過你送的帳號和密碼的憑據
    =的新System.Net.NetworkCredential smtp.Credentials(的“ejemplo@hotmail.com”,“密碼”)

    嘗試
    smtp.Send(mymail)
    MSGBOX(“發送消息”。MsgBoxStyle.OKOnly)
    作為例外趕上前
    MSGBOX(“錯誤:”)
    最終的結局

    該項目的創建者和最後agredezco我也一樣。 謝謝

  13. 奧斯卡說:

    合作夥伴非常感謝你的幾個老闆真理,擔任了我很多的信息。

  14. 貢薩洛說:

    你好,你要么andubo? 是能夠發送任何郵件?
    讓我的錯誤,當試圖發送電子郵件 :(
    憑據好嗎?
    我在哪裡可以得到另一個呢?

    的問候。

  15. 亞歷杭德羅說:

    對大家都有好處,這篇文章對我幫助很大,但我有一個小問題,我附加文件時,我得到以下錯誤:回NotSupportedException未處理
    不支持的格式提供路徑。

    代碼:
    昏暗文件字符串= My.Application.Info.DirectoryPath及“C:\ arcchivo.rar”

    __________________inicio錯誤的地方品牌
    昏暗的附件作為新System.Net.Mail.Attachment(文件System.Net.Mime.MediaTypeNames.Application.Pdf)
    msg.Attachments.Add(附後)
    __________________fin錯誤的地方品牌

    如果任何人都可以告訴我,我做錯了,我感謝你在前進。

    保持電腦是如此有用。

  16. gianpiere Bernuy拉莫斯說:

    TA HOLA的q TAL chebre您的職位,但對Q,你可以改變
    _SMTP.Port = 465
    通過
    _SMTP.Port = 587
    我說,我運行。
    q運氣上帝保佑

  17. 何塞說:

    我測試這段代碼,它的工作完美,我SMTP的服務器recomendades Pharsat變化和以利沙註釋miCorreo.From =新System.Net.Mail.MailAddress(的“josem.flores @ sfb.es”),並太好了,非常感謝你。

  18. charly說:

    感謝代碼

  19. dosmilcero說:

    嘿。

    我已經制定了一項計劃,通過SMTP訪問Exchange服務器,需要與SSL認證發送。 該項目工程完全從網絡交換服務器,但如果我安裝在PC上的網絡交換服務器,它不工作以外的任何計算機。 總是給服務器找不到錯誤。

    使用ping服務器從局域網的DNS,IP公共,私人,TELNET等。...... 提供沒有任何反應。 在Exchange服務器上的日誌什麼都不說,很顯然,沒有人知道。 殺毒軟件和防火牆斷開任何想法?

  20. 布希女士說:

    q DAS您好Parsat mefunciona代碼marabillas,但我有一個問題是,我有一個表格,其中q APODER將提出的任何郵件發送郵件,我可以看到在的腳本espesificar q表單字段知道q會發送E-AQ的消息,此事
    agradeseria你多,如果mepudes ayuadar

  21. 阿圖羅說:

    與Windows 7專業不起作用,為什麼?

  22. builes朱利安說:

    優秀的代碼兄弟

    非常感謝

  23. 克里斯蒂安說:

    大家,並嘗試與其他公司的原代碼,修改parshat禁用殺毒軟件和防火牆,仍然沒有給我的代碼複製並粘貼領域明顯有人可以給我另一種解決方案?

  24. 克里斯蒂安說:

    我再次,如果有人不嘗試在Hotmail端口587

  25. 約翰說:

    非常好感謝幫我一個偉大的

  26. 耶穌說:

    嘿。 這是我的第一個步驟,在vb.net中,(到目前為止,到用VB6)。 電子郵件服務器的代碼我很好,是很好的例子。 現在,我想複雜的確認,附件等。 我想問一個小東西,你給我一個例子來下載郵件? 非常感謝你的一切。

  27. 萊斯特說:

    阿美族的查詢​​和給我電子郵件的問題是我需要envviar在電子郵件正文中的圖像,而不是作為附件(廣告型),但沒有讓我送...... 我有一個RichTextBox中的形象,但不會發送任何東西......如果有人可以幫助我,我將不勝感激

    我的電子郵件是lesterelpepecalderon@hotmail.com的

  28. eigthy說:

    我把一點點比加入到窗體的文本框和一個按鈕和一個RichTextBox美容,使網頁形式更paresca。 為此,我們將創建:

    Textbox1的(案例)
    TextBox2中(接收機)
    textbox3(電子郵件)
    textbox4(passwor - 密碼)
    richTextBox1的(消息)
    Button1的(提交按鈕)

    配置到Hotmail,讓下面的代碼:

    Button1的Click:

    昏暗作為新System.Net.Mail.MailMessage mymail

    miCorreo.IsBodyHtml = FALSE
    miCorreo.From =新System.Net.Mail.MailAddress(TextBox2.Text)'發送郵件地址
    miCorreo.To.Add(TextBox3.Text)“郵件收件人
    miCorreo.Subject = TextBox1.Text“主題
    miCorreo.Body = RichTextBox1.Text
    miCorreo.Priority = System.Net.Mail.MailPriority.Normal優先

    “不修改以下行,因為它們涉及到微軟(的Windows Live SMTP服務器coniguracion的)
    暗淡SMTP作為新System.Net.Mail.SmtpClient

    smtp.Host =“smtp.live.com”
    smtp.Port = 25
    smtp.EnableSsl = TRUE

    “我通過你送的帳號和密碼的憑據
    =的新System.Net.NetworkCredential smtp.Credentials(TextBox3.Text,TextBox4.Text)

    嘗試
    smtp.Send(mymail)
    MSGBOX(“發送消息”。MsgBoxStyle.OKOnly)
    作為例外趕上前
    MSGBOX(“錯誤:”)
    最終的結局

    因為他們看到遵循的原代碼,但代碼沒有海洋的SMTP Hotmail的設置,我只是說更美的形式,在這個圖像顯示: http://i46.tinypic.com/34ir2c0.jpg

    我希望,並為他們服務的問候和感謝SoloVB

    我說再見!

  29. sagilman說:

    您好,我得到以下錯誤,而不是因為他們把所有的代碼,因為它是。
    錯誤的是:
    發送失敗的消息。

    誰可以幫我請。

  30. 胡安·米格爾說:

    感謝的貢獻muchisisisimo的擔任我認真 :)

  31. 雷南·卡多納說:

    與我奇妙的工作

  32. 索尼婭說:

    你好,我自動發送鏈接給一個按鈕,其中的數據,我帶來了在Oracle數據的基礎上選擇,唯一的問題是一個必須有主題:在文本和鏈接的憤怒應發送,但不是如何能幫助我!

  33. 費爾南多說:

    嘿我不要誤會我的朋友工作毫米

    所以我的codigolo

    公共類Form1

    enviarcorreo公共小組()

    昏暗作為新System.Net.Mail.MailMessage mymail
    miCorreo.IsBodyHtml = FALSE
    miCorreo.From =新System.Net.Mail.MailAddress(“luisfernandop.s @ hotmail.com”),從那裡發送郵件
    miCorreo.To.Add(“luisfernandop.s @ hotmail.com”)'郵件收件人
    miCorreo.Subject =“測試FER”“案
    miCorreo.Body =“無”
    miCorreo.Priority = System.Net.Mail.MailPriority.Normal優先
    “不修改以下行qye的和微軟(的Windows Live SMTP服務器coniguracion的對應)
    暗淡SMTP作為新System.Net.Mail.SmtpClient

    smtp.Host =“smtp.live.com”
    smtp.Port = 25
    smtp.EnableSsl = TRUE

    “我通過你送的帳號和密碼的憑據
    =新System.Net.NetworkCredential smtp.Credentials(“luisfernandop.s @ hotmail.com”,“/ N @ ndo/6724766887”)

    嘗試
    smtp.Send(mymail)
    MSGBOX(“發送消息”。MsgBoxStyle.OKOnly)
    作為例外趕上前
    MSGBOX(“錯誤:”)
    最終的結局
    END SUB

    私人小組中button1_Click(0 System.Object的,BYVAL e由於發件人)把手Button1.Click
    enviarcorreo()

    END SUB
    末級

    如果有人可以讓我看到我的錯誤,我將不勝感激

  34. chocobar克里斯蒂安說:

    muyyyy 10的好作品!...傑出的貢獻! 現在我堅持......謝謝你這麼多=)

  35. 埃德加說:

    芽通過Pharsat ......
    您的貢獻,對我幫助很大...

    感謝所有貢獻他們的幫助代碼q

  36. 埃德加說:

    您好XFA例如,有人可能會說我做時,我想比其他的hotmail郵件發送郵件..

    如雅虎,Gmail,等等......或我公司的服務器...

  37. leboche說:

    discula 1 dudami這是我的代碼:

    昏暗作為新System.Net.Mail.MailMessage mymail
    昏暗的郵件作為新System.Net.Mail.MailMessage
    micorreo.IsBodyHtml = FALSE
    ,新System.Net.Mail.MailAddress micorreo.From =(“leboche@hotmail.com”)
    correo.To.Add(“leboche@hotmail.com”)
    correo.Subject =“消息prueva”

    micorreo.Body = TextBox1.Text

    micorreo.Priority = Net.Mail.MailPriority.Normal

    暗淡SMTP作為新System.Net.Mail.SmtpClient
    smtp.Host =“smtp.live.com”
    smtp.Port = 587
    smtp.EnableSsl = TRUE
    =的新System.Net.NetworkCredential smtp.Credentials(“info@solovb.net”,“123456”)

    嘗試
    smtp.Send(mymail)
    MSGBOX(“發送的消息。”MsgBoxStyle.OKOnly,“info@solovb.net”)
    作為例外趕上前
    MSGBOX(“錯誤:”)

    最終的結局

    但不知道如果此代碼,在文本框或從或上一個按鈕,你能幫我嗎?
    我是一個初學者在ESOT

  38. melesio薩拉斯說:

    一切都太棒了!

    謝謝輸入

    問候語

  39. 吉爾默20說:

    有趣sobretod你的例子,很容易理解,但我有一個問題,我想你在郵件正文是報告的內容
    作為dificio是一部分,我希望你的幫助

  40. CarlosH說:

    非常感謝。 一個小的貢獻。
    發送一個副本(CC)
    correo.CC.Add(“地址”)

  41. 哈維爾說:

    您好,我有這個問題:

    我說:“沒有名字已被宣布放”

    “字符是無效的”,“”旁邊放。

    誰可以幫助我非常感謝你。

  42. 哈維爾說:

    muuuuchas感謝...... 我已經找到了solucioen :)

  43. 哈維爾說:

    您可以添加發送或元素或加入私人檔案?

  44. 霍爾迪說:

    感謝你的代碼!

    寓言作品!

  45. 馬爾塞說:

    您好!
    非常好的頁面,
    無論是通過發送郵件的代碼quisisera可以傳送密件副本密件傳給一個正方形,其中有幾個更多的電子郵件,是可能的嗎?

  46. jhoanna0627說:

    您好:

    感謝您非常送達我奇妙的,謝謝,我終於能夠發送郵件,但我有關於如何你把身體連結1 duditas,這樣你定制與HTML標籤和如何發送1酬謝adjunto.muchas的,在我的工作完美的代碼。

評論