Private Sub A1()
'创建发件连接,根据你的发送邮箱的SMTP设置填充
Dim a As System.Net.Mail.Attachment
Dim smtp As New System.Net.Mail.SmtpClient("郵箱地址", 25)
'发件邮箱身份验证,参数分别为 发件邮箱登录名和密码
smtp.Credentials = New System.Net.NetworkCredential("登录名", "密码")
'创建邮件
Dim mail As New System.Net.Mail.MailMessage()
'邮件主题
mail.Subject = "邮件主题測試"
'主题编码
mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
'邮件正文件编码
mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
'发件人邮箱
mail.From = New System.Net.Mail.MailAddress("发件人邮箱")
'邮件优先级
mail.Priority = System.Net.Mail.MailPriority.Normal
'HTML格式的邮件,为false则发送纯文本邮箱
mail.IsBodyHtml = False
'邮件内容
mail.Body = "邮件内容測試"
'添加收件人
mail.To.Add("leo.chen@deca.com.tw")
a = New System.Net.Mail.Attachment("D:\ATT2000.xls") : a.Name = "ATT2000.xls" : mail.Attachments.Add(a) '加入附件,附件文件名,及用于收件人收到附件时显示的名称
Try
smtp.Send(mail)
MessageBox.Show("发送成功")
Catch
MessageBox.Show("发送失败")
Finally
mail.Dispose()
End Try
End Sub