自动发送邮件程序,自动发送邮件程序是什么
利用excel自动发邮件
1.?准备待发送的数据:
?a.) 打开Excel,新建Book1.xlsx。
?b.) 填入下面的内容。
第一列:接收人,第二列:邮件标题,第三列:正文,第四列:附件路径。
注意:附件路径中可以有中文,但是不能有空格。
这里可以写更多内容,每一行作为一封邮件发出。
注意:邮件正文是黑白文本内容,不支持加粗、字体颜色等。
2.?编写宏发送邮件
a.) Alt + F11 打开宏编辑器,菜单中选:插入-模块。
b.) 将下面的代码粘贴到模块代码编辑器中:
Public Declare Function SetTimer Lib "user32" _
? ? ? (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As Long
Public Declare Function KillTimer Lib "user32" _
? ? ? (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Function WinProcA(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal SysTime As Long) As Long
? KillTimer 0, idEvent
? DoEvents
? Sleep 100
? '使用Alt+S发送邮件,这是本文的关键之处,免安全提示自动发送邮件全靠它了
? Application.SendKeys "%s"
End Function
' 发送单个邮件的子程序
Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String)
? Dim objOL As Object
? Dim itmNewMail As Object
? '引用Microsoft Outlook 对象
? Set objOL = CreateObject("Outlook.Application")
? Set itmNewMail = objOL.CreateItem(olMailItem)
? With itmNewMail
? ? ? .subject = subject ?'主旨
? ? ? .body = body ? '正文本文
? ? ? .To = to_who ?'收件者
? ? ? .Attachments.Add attachement '附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦
? ? ? .Display ?'启动Outlook发送窗口
? ? ? SetTimer 0, 0, 0, AddressOf WinProcA
? End With
? Set objOL = Nothing
? Set itmNewMail = Nothing
End Sub
'批量发送邮件
Sub BatchSendMail()
? Dim rowCount, endRowNo
? endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
? '逐行发送邮件
? For rowCount = 1 To endRowNo
? ? ? SendMail Cells(rowCount, 1), Cells(rowCount, 2), Cells(rowCount, 3), Cells(rowCount, 4)
? Next
End Sub
3.最终代码编辑器中的效果如下图:
为了正确执行代码还需要在
菜单中选择: 工具-引用 。
中的Microseft Outlook X.0 Object Library ?勾选上 。
?c)?粘贴好代码、勾选上上面的东东后可以发送邮件了,点击上图A红圈所示的绿色三角按钮,会弹出下图所示的对话框,点运行,就开始批量发送邮件了。
.NET 自动发送邮件程序
/// summary
/// 邮件初始化
///自己发送给自己 /// /summary
/// returns/returns
public MailMessage InitMail(string Address)
{
MailMessage mail = new MailMessage();
//发件人
mail.From = new MailAddress(Address);
//收件人
mail.To.Add(new MailAddress(Address));
//主题
mail.Subject = "ASP.NET send mail testing!";
//内容
mail.Body = "Welcome to join us,let me instruduce myself!";
//邮件主题和正文编码格式
mail.SubjectEncoding = System.Text.Encoding.UTF8;
mail.BodyEncoding = System.Text.Encoding.UTF8;
//邮件正文是Html编码
mail.IsBodyHtml = true;
//优先级
mail.Priority = MailPriority.High;
//密件抄送收件人
mail.Bcc.Add(Address);
//抄送收件人
mail.CC.Add(Address); //添加附件
mail.Attachments.Add(new Attachment("d:\\tes.txt")); return mail;
} /**/
/// summary
/// 发送126邮箱 /// /summary
public bool Sendmail()
{
SmtpClient client = new SmtpClient(); //这个地方需要填写自己申请126邮箱的用户名和密码
client.Credentials = new System.Net.NetworkCredential("userName", "password");
//上述写你的126邮箱和密码
client.Port =25;//126使用的端口
client.Host = "smtp.126.com";
client.EnableSsl = true;//经过ssl加密 try
{
client.Send(InitMail("userName@126.com"));
return true;
}
catch (System.Net.Mail.SmtpException ex)
{
return false;
}
} 当然你也可以换用其他的邮件提供商。邮件提供商一般都是smtp.XXX.comsmtp是邮件协议xxx是邮件提供商名称邮件通过的端口号一般都是25号，
如何编写自动发邮件的程序。用VB编写，开机自动后台运行，并发送邮件到指定邮箱。
用我这个，根据发件邮箱，更改下面的服务器，原邮箱，目的邮箱，然后将程序快捷方式放在启动里就可实现开机运行，不要做非法的事
Private Sub Form_Load()
Me.Visible = False
Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "原邮箱"
objEmail.To = "目的邮箱"
objEmail.Subject = "邮件标题"
objEmail.Textbody = "邮件正文 "
objEmail.AddAttachment App.Path "\abc.ini" '附件内容，不要可删掉
objEmail.Configuration.Fields.Item("") = 2
objEmail.Configuration.Fields.Item("") = "smtp.163.com" '发信服务器，假设为163邮箱
objEmail.Configuration.Fields.Item("") = 25
objEmail.Configuration.Fields.Item("") = 1
objEmail.Configuration.Fields.Item("") = " 发信的邮箱名"
objEmail.Configuration.Fields.Item("") = "发信的邮箱密码"
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub