使用相同代码（VBA）上传和发送电子邮件

Question

我目前正在使用Microsoft Access发送每周电子邮件。该代码的目标是将附带报告的电子邮件发送给我的经理，然后将其上传到SharePoint。问题在于它可以单独发送电子邮件并上传报告，但是当我将它们放入相同的代码并运行它时，它执行第一项任务，但不执行另一项任务。

 DoCmd.SendObject acSendReport, "TestingReport", acFormatPDF, "testing@gmail.com", , , "Testing", "Test", False

 Dim MyPath As String
 Dim MyFiLeName As String
 MyFilter = ""
 MyPath = "https://www.testing.com/"
 MyFiLeName = "Weekly Report_" & Int(Format(Date, "m")) & "_" & Int(Format(Date, "d")) & "_" & Year(Date) & ".pdf"

 DoCmd.OutputTo acOutputReport, "TestingReport",acFormatPDF, MyPath & MyFiLeName, False

可能是时间和速度问题吗？我不确定。谢谢！