Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
Dim strHTML as String
StrHTML=""
StrHTML= StrHTML+""
StrHTML = StrHTML +"
用CDONTS发送Email的例子"
StrHTML= StrHTML+"
"
StrHTML= StrHTML+"
以上例子嵌入了图片sample.gif
"
StrHTML= StrHTML+""
With ObjMail
.From= "me@hotmail.net "
.To= "abc@263.net"
.Subject="Title"
.Body=strHTML
.AttachURL "c:\mydata\sample.gif","sample.gif"
.BodyFormat=0
.EmailFormat=0
.Send
End With
Set objMail=nothing
End Sub
到这里 , 相信大家一定发现SMTP邮件处理的一个缺陷了 。SMTP服务器接收你的输出消息,但并不做发送者名字和地址的验证,这本是由SMTP的异步发送机制所决定的,但有人可能别有用心地用它来假扮别人发送邮件!本文强烈建议各位切勿轻易试用,一旦让ISP知道你的行径,你的帐号极可能会被立即删除 。
要一段VB.NET发邮件的代码'创建发件连接,根据你的发送邮箱的SMTP设置填充
Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 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("example@163.com")
'邮件优先级
mail.Priority = System.Net.Mail.MailPriority.Normal
'HTML格式的邮件,为false则发送纯文本邮箱
mail.IsBodyHtml = True
'邮件内容
mail.Body = "邮件正文内容"
'添加收件人,如果有多个,可以多次添加
mail.To.Add("收件人地址")
'定义附件,参数为附件文件名,包含路径,推荐使用绝对路径
'如果不需要附件,下面三行可以不要
Dim a As New System.Net.Mail.Attachment("附件文件")
'附件文件名,用于收件人收到附件时显示的名称
a.Name = "附件文件名"
'加入附件,可以多次添加
mail.Attachments.Add(a)
'发送邮件
Try
smtp.Send(mail)
MessageBox.Show("发送成功")
Catch
MessageBox.Show("发送失败")
Finally
mail.Dispose()
End Try
如何用vb.net2010打开outlook2010?Dim outObj As New Microsoft.Office.Interop.Outlook.Application
Dim Item As Microsoft.Office.Interop.Outlook.MailItemClass
Item = outObj.CreateItem(0)
Item.To =
Item.Subject = "反馈建议"
Item.Body = "正文"
Item.Attachments.Add("C:\附件.txt")
Item.Send()
需要在工程中引用 Microsoft Office Interop Outlook
【vb.net收邮件 vb发送邮件的代码】关于vb.net收邮件和vb发送邮件的代码的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息 , 记得收藏关注本站 。
推荐阅读
- 为什么cpu不能买套装,cpu为什么不能当显卡
- excel表每行如何数数,每行的数值怎么相加
- 安卓教程视频图片下载不了,安卓手机下载不了视频
- 网页访问数据库php 网页如何访问数据库
- c语言编程聊天室实现私聊,c语言实现多人聊天室
- 买腾达路由器怎么安装,腾达路由器安装流程
- asp.net配置系统,aspnet 50
- vb.net水仙花制作 水仙花数vb程序代码
- 鸿蒙系统支持小米的米家吗,鸿蒙系统支持小米手机