导航

« SQL SERVER 存储过程实例(转)windows 常用命令  »

vb.net 程序自动发邮件

虚位以待 VB.NET

以下是vb.net自动发邮件的代码,目前只支持单发,正在想办法群发

        Dim mf As MailAddress = New MailAddress("sun@163.com") '表示电子邮件发件人或收件人的地址。
        Dim mt As MailAddress = New MailAddress("sun@qq.com") '表示电子邮件发件人或收件人的地址。
        Dim strmail As MailMessage = New MailMessage("sun@163.com", "sun@qq.com") '设置发件人与收件人

        strmail.Subject = "Mthis is a test email." '邮件标题
        strmail.IsBodyHtml = True '设置成为html显示
        strmail.Body = "Mthis is my test email body.<br><b>this part is in bold</b>" '邮件内容
        Dim strSmtpMail As SmtpClient = New SmtpClient("smtp.163.com") '调用邮箱服务器
        strSmtpMail.Credentials = New NetworkCredential("name", "password") '发件人的用户登录名与密码
        strSmtpMail.Send(strmail) '发送邮件
需要导入的命名空间:

Imports System.Net
Imports System.Net.Mail

  • 顶一下
虚位以待




原创文章如转载,请注明:转载自落日故乡

本文链接地址:http://www.spersky.com/post/netmail.html

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

内容搜索


虚位以待

常用链接

最新评论及回复

Powered By Z-Blog

Copyright spersky All Rights Reserved.Theme Moonlight,Calf modified.n 浙ICP备16017820号-1