關于vb.net 發(fā)送郵件附件的問題，大家?guī)兔Γ。。?/h2>

相當多的郵件服務器不支持大附件，一般為32MB，網易的是50MB。參照鏈接：

成都創(chuàng)新互聯(lián)公司主營泰興網站建設的網絡公司,主營網站建設方案,App定制開發(fā),泰興h5重慶小程序開發(fā)搭建,泰興網站營銷推廣歡迎泰興等地區(qū)企業(yè)咨詢

所以發(fā)送失敗未必是你代碼的問題。很有可能是你服務器的問題。請找一個支持大附件的郵箱試一試，找不到的話看能不能把附件拆到32M以下，然后多次發(fā)送。

vb.net ftp上傳文件

Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

' TODO: 在此處添加打開文件的代碼。

textbox1.Text = FileName

End If

第一個按鈕 上傳

Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))

MessageBox.Show(filelast)

My.Computer.Network.UploadFile(textbox1.Text, "" 文件名.Text filelast, "登錄名1", "登錄密碼", True, 100)

第二個按鈕

vb.net如何上傳文件

My.Computer.Network.UploadFile

比如上傳到FTP

My.Computer.Network.UploadFile("d:\1.txt", "“, "FTP賬號", "FTP密碼", True, 100)

新手路過。

要一段VB.NET發(fā)郵件的代碼

'創(chuàng)建發(fā)件連接,根據你的發(fā)送郵箱的SMTP設置填充

Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)

'發(fā)件郵箱身份驗證,參數(shù)分別為 發(fā)件郵箱登錄名和密碼

smtp.Credentials = New System.Net.NetworkCredential("用戶名", "密碼")

'創(chuàng)建郵件

Dim mail As New System.Net.Mail.MailMessage()

'郵件主題

mail.Subject = "郵件主題"

'主題編碼

mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")

'郵件正文件編碼

mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")

'發(fā)件人郵箱

mail.From = New System.Net.Mail.MailAddress("example@163.com")

'郵件優(yōu)先級

mail.Priority = System.Net.Mail.MailPriority.Normal

'HTML格式的郵件,為false則發(fā)送純文本郵箱

mail.IsBodyHtml = True

'郵件內容

mail.Body = "郵件正文內容"

'添加收件人,如果有多個,可以多次添加

mail.To.Add("收件人地址")

'定義附件,參數(shù)為附件文件名,包含路徑,推薦使用絕對路徑

'如果不需要附件,下面三行可以不要

Dim a As New System.Net.Mail.Attachment("附件文件")

'附件文件名,用于收件人收到附件時顯示的名稱

a.Name = "附件文件名"

'加入附件,可以多次添加

mail.Attachments.Add(a)

'發(fā)送郵件

Try

smtp.Send(mail)

MessageBox.Show("發(fā)送成功")

Catch

MessageBox.Show("發(fā)送失敗")

Finally

mail.Dispose()

End Try