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

winner

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

fan0217

可以用以下代码，发送到邮箱下一步提供，需要Outlook的支持。


Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

    Dim stDocName As String

    stDocName = "R_Report"
    DoCmd.OutputTo acReport, stDocName

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
   
End Sub

[此贴子已经被作者于2006-1-12 21:20:51编辑过]

winner

我试过了，不行啊。应该要写出路径的吧，如：D://ACCESS/报表名。大家再帮我看看吧

secowu

呵呵，你首先要配置好OE

然后，查看你的杀毒软件有没有禁止宏的操作

如果有，就全部关闭

因为，100%宏代码中的复制与发送操作会被拦住而不告诉你

winner

我希望得到的是固定保存到指定目录(如D盘名为ACCESS文件夹中),如果按第 2 楼的方法,则是要每次都要选择路径,不是固定的保存路径,各位再看看

fan0217

先前没有看到要导出到指定文件夹。

应该是以下代码：必须保证要有D:\Access文件夹，否则要出现错误。也可以用代码创建个文件夹。

如果需要导出别的文件格式，请修改acFormatRTF参数和文件后缀，详细内容请查阅OutputTo帮助信息。

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

    Dim stDocName As String

   Dim myFile As String

    stDocName = "R_Report"

    myFile = "D:\Access\" & stDocName & ".doc"
    DoCmd.OutputTo acReport, stDocName, acFormatRTF, myFile , True

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
   
End Sub

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

fan0217

你的电脑必须已经设置好能够用Outlook发送邮件。

导出的报表可通过附件发送，将上面的示例修改修改可满足你的需求。

winner

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

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

fan0217

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

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

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


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