编制自动方案代码
启动Outlook2010，按下Alt+F11组合键，启动VBA编辑器，在代码窗口左侧点击ThisOutlookSession，然后在右侧代码窗口中输入如下代码（图1）：
Sub Application_Startup()
Set oApp = Outlook.Application
Set oMessage = oApp.CreateItem(olMailItem)
oMessage.To = "wangxiang169@163.com "
oMessage.Subject = "姣忔棩鎶ヨ〃 "
oMessage.Attachments.Add ("E:\鏂板缓鏂囦欢澶筡姣忔棩鎶ヨ〃.xls ")
oMessage.Send
Set oMessage = Nothing
Set oApp = Nothing
End Sub
以上代码中的oMessage.To = 后面是收件人地址，oMessage.Subject =指的是邮件标题，而oMessage.Attachments.Add则指的是所添加的附件文件路径。
输入完毕，检查无误后，点击“保存”按钮，关闭Outlook。
此段代码的作用是当启动Outlook时，新建一封邮件，自动添加附件，并将此发邮件予以发送。
制定自动发送任务
执行“开始→程序→系统工具→任务计划”命令，选择“添加计划任务”，然后单击“下一步”，在弹出的任务计划向导的程序列表中，选择Microsoft Outlook 2010，在随之弹出的向导对话框中选择执行此任务的循环周期，如“每天”，单击“下一步”按钮（图2），在弹出的对话框中设置起始时间以及日期，如16：30，单击“下一步”按钮。
接着在弹出的用户名以及密码设置对话框中，输入你登录本机的用户名以及密码（必须输入，否则无法运行任务计划）（图3），单击“下一步”，最后单击“完成”按钮即可。这样，当每周的星期五就会自动将带有附件的邮件自动发送到指定邮箱了。
需要注意的是，如果服务中的任务计划程序没有运行，运行上面设置的任务计划时，会提示错误，这时候，可以执行“开始→程序→管理工具→服务”命令，将其中的Task Scheduler设置为“自动”，然后予以启动即可。
备注
这个需要用到宏的，具体步骤如下：
1、在Outlook里面键入ALT+F11打开VBA编辑器；
2、键入CTRL+R激活左边的那个工程面板，展开并双击上面的“Project (VbaProject.OTM)Microsoft Office Outlook 对象ThisOutlookSession”；
3、将下面的代码粘贴到右边打开的编辑区里面去：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
strBcc = "xxx@xxx.com" #这里写入你的邮箱地址
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "不能解析密件抄送人邮件地址， " & _
"请确认是否仍然发送邮件？"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"不能解析密件抄送人邮件地址")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub
4、根据需要按照我上面代码中的注释增删BCC收件人地址；
5、键入CTRL+S保存，再键入ALT+Q退出VBA编辑器返回Outlook主界面；
6、选择菜单“文件-选项-信任中心--信任中心设置--宏设置”；
7、选择“为所有宏提供通知”或者“启用所有宏”（建议选择前者）；
8、重新启动Outlook，看到提示是否否用宏，选择启用。
9、再次按ALT+F11 会提示是否启用宏，点击启用宏，这个时候就可以了，发送邮件测试一下；
现在你发出去的每一封邮件都自动抄送给了代码中设置的那些BCC收件人了。
