在vb.net中发送邮件错误 [英] sending mail error in vb.net

问题描述

  Imports  System.Net.Mail 
 公开 类 Form1 
 公开 属性 EnableSsl  As   Boolean  
 私有  Sub  Button1_Click（ ByVal  sender  As  System。 对象，_ 
  ByVal  e  As  System.EventArgs）句柄 Button1.Click 
 尝试 
  Dim  SmtpServer  As  新 SmtpClient（）
  D. im  mail 作为 新 MailMessage（）
 
 SmtpServer.Credentials = 新 Net.NetworkCredential（  username，  pwd）
 SmtpServer.Port =  993  
 SmtpServer.Timeout =  30000  
 SmtpServer.Host =   smtp.gmail.com 
 SmtpServer.EnableSsl =  True  
 mail = 新 MailMessage（）
 mail.From = 新 MailAddress（  username.com）
 mail。 To  .Add（  toadress）
 mail.Subject =  测试邮件 
 mail.Body =  这是用于测试来自GMAIL的SMTP邮件 
 SmtpServer.Send（mail）
 MsgBox（   mail send）
  Catch  ex  As 异常
 MsgBox（ex.ToString）
 结束 尝试 
 结束  Sub  
 结束 班级 

无法读取数据传输层错误c

解决方案

 Imports System.IO 
 Imports System.Net 
 Imports System.Net.Mail 
 
 Public Class Mail 
 
 Public共享子发送（fromEmail As String，toEmail As String，subject As String，body As String）
 
使用mm作为新MailMessage（fromEmail，toEmail）
 mm.Subject = subject 
 mm.IsBodyHtml = True 
 mm.Body = body 
'如果fuAttachment.HasFile则
'Dim FileName As String = Path.GetFileName（fuAttachment.PostedFile.FileName）
' mm.Attachments.Add（新附件（fuAttachment.PostedFile.InputStream，FileName））
'结束如果
 mm.IsBodyHtml = False 
 Dim smtp As New SmtpClient（）
 smtp .Host =smtp.gmail.com
 smtp.EnableSsl = True 
 Dim NetworkCred As New NetworkCredential（fromEmail，ThatPasswordOfYours）
 smtp.UseDefaultCredentials = True 
 smtp。证书= NetworkCred 
 smtp.Port = 587 
 smtp.Send（mm）
结束使用
结束子
 
结束Cla SS 

Imports System.Net.Mail
Public Class Form1
    Public Property EnableSsl As Boolean
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()

            SmtpServer.Credentials = New Net.NetworkCredential("username", "pwd")
            SmtpServer.Port = 993
            SmtpServer.Timeout = 30000
            SmtpServer.Host = "smtp.gmail.com"
            SmtpServer.EnableSsl = True
            mail = New MailMessage()
            mail.From = New MailAddress("username.com")
            mail.To.Add("toadress")
            mail.Subject = "Test Mail"
            mail.Body = "This is for testing SMTP mail from GMAIL"
            SmtpServer.Send(mail)
            MsgBox("mail send")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class

Unable to read data transport layer error c

解决方案

Imports System.IO
Imports System.Net
Imports System.Net.Mail

Public Class Mail

	Public Shared Sub Send(fromEmail As String, toEmail As String, subject As String, body As String)

		Using mm As New MailMessage(fromEmail, toEmail)
			mm.Subject = subject
			mm.IsBodyHtml = True
			mm.Body = body
			'If fuAttachment.HasFile Then
			'	Dim FileName As String = Path.GetFileName(fuAttachment.PostedFile.FileName)
			'	mm.Attachments.Add(New Attachment(fuAttachment.PostedFile.InputStream, FileName))
			'End If
			mm.IsBodyHtml = False
			Dim smtp As New SmtpClient()
			smtp.Host = "smtp.gmail.com"
			smtp.EnableSsl = True
			Dim NetworkCred As New NetworkCredential(fromEmail, "ThatPasswordOfYours")
			smtp.UseDefaultCredentials = True
			smtp.Credentials = NetworkCred
			smtp.Port = 587
			smtp.Send(mm)
		End Using
	End Sub

End Class

这篇关于在vb.net中发送邮件错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！