熟悉了下用VB.NET如何发送邮件并带附件,
经个人测试OK
界面如下:
Imports System.Net Imports System.Net.Mail Public Class Form1 Dim mms As New System.Net.Mail.MailMessage Dim smt As New System.Net.Mail.SmtpClient() 'SMTP Server Dim maillist As String Dim mSplit As Array Dim mlist As New ArrayList Dim mMailAddr As String Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click send_mail("test Mail " & Now,"Hello<br>" & Now & "<br>Comput Name :" & My.Computer.Name & "<br> Mail server name :" & txt_server.Text.Trim) Close() End Sub Private Sub send_mail(ByVal strSubject As String,ByVal mFile As String) Dim madFrom As New System.Net.Mail.MailAddress(TextBox1.Text.Trim) '寄件人 Dim i,j As Integer smt.Host = txt_server.Text.Trim '發信主機名稱 mms.From = madFrom ' mms.To.Add(txt_mail.Text.Trim) maillist = txt_mail.Text.Trim mSplit = Trim(maillist.ToLower).Split(",") If mSplit.Length > 0 Then For j = 0 To mSplit.Length - 1 If mSplit(j).ToString.Trim <> "" Then If InStr(mSplit(j).ToString.Trim,"@") = 0 Then '用户输入@前面的就可以了,系统会自动加上下面的邮箱后缀 mSplit(j) &= "@hotmail.com" '自己设定如果是公司内部用,就写公司邮箱后缀 End If mlist.Add(mSplit(j).ToString.Trim) End If Next End If If mlist.Count <> 0 Then For i = 0 To mlist.Count - 1 mMailAddr = Trim(mlist.Item(i)) If mMailAddr.Trim <> "" Then If InStr(mMailAddr,"@") = 0 Then mMailAddr &= "@hotmail.com" End If mms.To.Add(mMailAddr) End If Next End If mms.Subject = strSubject.Replace(Chr(10),"").Replace(Chr(13),"") '信件主旨 'charycheng 20120510 + Dim attach As Net.Mail.Attachment = New Net.Mail.Attachment(TextBox2.Text) mms.Attachments.Add(attach) mms.Body = "<BR> <table>Test Mail If you have any questions,please contact Chary <br> Thanks! " '信件內容 mms.IsBodyHtml = True Try smt.Send(mms) Label4.Text = "MSG:Send Mail OK!" Catch ex As Exception MsgBox(ex.Message) Finally mms.dispose() End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox2.Text = OpenFileDialog1.FileName End If End Sub End Class
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。