如何实现自动保存报表到指定目录,自动发送报表到指定到指定邮箱

winner

我想通过按钮把报表自动存放到指定的文件夹,发送到指定的邮箱,该如何实现?(例子中的邮箱名是乱写上去的)

winner

fan0217:那你用SendObject发送,是否会出现警告框?那个存在不美观,而且还要按"是"的按钮,麻烦!

fan0217

我在我的电脑上调试通过，在我的邮箱也收到了发送的邮件，主要看看你的Outlook的配置。

我的例子是把报表用附件的形式发送的，所以需要导出。

用SendObject发送就不需要了导出文件了。

winner

补充:我已改了自己的邮箱号,但仍收不到邮件.

winner

我加了DoCmd.SetWarnings False语句,它还是弹出警告框,而且邮箱收不到发出的邮件,怎么回事?(发送邮件时不用保存到D盘的ACCESS目录)

fan0217

这个例子是将报表以附件的形式发送。

fan0217

应该是：注意红色的部分

Dim stDocName As String

    stDocName = "R_Report"
    DoCmd.SendObject acSendReport, stDocName, acFormatRTF, "43544@163.com", , , "Report", "Report", False

winner

发送邮件的代码我写成这样:

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

    Dim stDocName As String

    stDocName = "R_Report"
    DoCmd.SendObject acReport, stDocName, acFormatRTF, "43544@163.com", , , "Report", "Report", True

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
   
End Sub


它停留在邮箱的界面,还不能发出去,加什么代码才能直接发出去呢?

fan0217

导出到指定文件夹是可以实现的。

[此贴子已经被作者于2006-1-13 12:54:25编辑过]

winner

还是不行哦,按完保存按钮后没反应哦.

而且发送邮件的例子在我的机上运行不了,不过我看它的界面,它是要我录入地址,选择发送文件后才能发送的,我想要的是不需要输入任何东西,只要选择了该报表,按发送按钮,就可以发送到一个默认的邮箱.