建站
咨詢
售后
建站咨詢
新聞中心
關(guān)于vb.net 發(fā)送郵件附件的問題，大家?guī)兔Γ。。?/h2>
相當(dāng)多的郵件服務(wù)器不支持大附件，一般為32MB，網(wǎng)易的是50MB。參照鏈接：
成都創(chuàng)新互聯(lián)公司主營泰興網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,App定制開發(fā),泰興h5重慶小程序開發(fā)搭建,泰興網(wǎng)站營銷推廣歡迎泰興等地區(qū)企業(yè)咨詢
所以發(fā)送失敗未必是你代碼的問題。很有可能是你服務(wù)器的問題。請找一個支持大附件的郵箱試一試，找不到的話看能不能把附件拆到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ā)件連接,根據(jù)你的發(fā)送郵箱的SMTP設(shè)置填充
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("[email protected]")
'郵件優(yōu)先級
mail.Priority = System.Net.Mail.MailPriority.Normal
'HTML格式的郵件,為false則發(fā)送純文本郵箱
mail.IsBodyHtml = True
'郵件內(nèi)容
mail.Body = "郵件正文內(nèi)容"
'添加收件人,如果有多個,可以多次添加
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
網(wǎng)站名稱：vb.net上傳附件 vbnet ftp
文章源于：http://fisionsoft.com.cn/article/dddjece.html
