怎么做个自动发邮件

Outlook Express 设置 ：（以中文版Outlook Express 6为例）

一、首先设置邮件帐号：打开Outlook Express后，单击菜单栏中的“工具”，然后选择“帐号”；

二、点击“邮件”标签，点击右侧的“添加”按钮，在d出的菜单中选择“邮件”；

三、在d出的对话框中，根据提示，输入您的“显示名”，然后点击“下一步”；

四、输入您已经申请过的电子邮件地址，如： ***@163.com ，然后点击“下一步”；

五、邮件接收服务器您可以选择POP3或IMAP服务器；

如果您选择POP3服务器：请输入您邮箱的的POP3和SMTP服务器地址后，再点击“下一步”；

POP3服务器：pop.163.com SMTP服务器：smtp.163.com（端口号使用默认值）

如果您选择IMPA服务器：请输入您邮箱的的IMAP和SMTP服务器地址后，再点击“下一步”；

IMAP服务器：imap.163.com SMTP服务器：smtp.163.com（端口号使用默认值）

六、输入您邮箱的帐号名及密码（帐号只输入@前面的部分），再点击“下一步”；

七、单击“完成”按钮保存您的设置；

八、别忘记设置SMTP服务器身份验证：在“邮件”标签中，双击刚才添加的帐号，d出此帐号的属性框；

九、请点击“服务器”标签，然后在下端“发送邮件服务器”处，选中“我的服务器要求身份验证”选项，并点击右边“设置”标签，选中“使用与接收邮件服务器相同的设置”；

十、如需在邮箱中保留邮件备份，点击“高级”，勾选“在服务器上保留邮件副本”；

注：如您选用了“IMAP”服务器，可将“此服务器要求安全链接（SSL）”打勾，这样所有通过IMAP传输的数据都会被加密，从而保证通信的安全性；

十一、点击“确定”，然后“关闭”帐户框，现在设置成功！点击主窗口中的“发送接收”按钮即可进行邮件收发。

如果邮件的内容已经遍及好了，可以使用系统自带的outlook 邮件客户端，将编辑好的邮件存储为eml文件，然后通过控制面板中的任务与计划执行定时启动outlook并且发送文件.eml的命令。即可执行自动发送。

用我这个，根据发件邮箱，更改下面的服务器，原邮箱，目的邮箱，然后将程序快捷方式放在启动里就可实现开机运行，不要做非法的事

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("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.163.com" '发信服务器，假设为163邮箱

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = " 发信的邮箱名"

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "发信的邮箱密码"

objEmail.Configuration.Fields.Update

objEmail.Send

End Sub

---