VBA 文件 OneDrive

根据引用\[1\]和引用\[2\]的内容，你想知道如何使用VBA将文件从OneDrive发送给目标用户。根据引用\[2\]中提供的代码，你可以使用VBA编写一个宏来实现这个功能。以下是一个示例代码，可以在打开Excel文件时启动定时器，定时发送文件给目标用户：

Private Sub Workbook_Open()
    Call timedelay3
End Sub

Sub timedelay3()
    Application.OnTime Now() + TimeValue("00:10:00"), "SendFile"
End Sub

Sub SendFile()
    ' 在这里编写发送文件的代码，将文件作为附件发送给目标用户
    ' 你可以使用Outlook对象模型来发送邮件，将文件作为附件添加到邮件中
    ' 例如：
    ' Dim OutlookApp As Object
    ' Dim OutlookMail As Object
    ' Set OutlookApp = CreateObject("Outlook.Application")
    ' Set OutlookMail = OutlookApp.CreateItem(0)
    ' With OutlookMail
    '     .To = "目标用户的邮箱地址"
    '     .Subject = "文件发送"
    '     .Body = "这是您的文件"
    '     .Attachments.Add "文件路径"
    '     .Send
    ' End With
    ' 请注意，你需要将目标用户的邮箱地址和文件路径替换为实际的值

    ' 发送完文件后关闭Excel
    ThisWorkbook.Close SaveChanges:=False
End Sub

请根据你的具体需求修改代码中的目标用户邮箱地址和文件路径。这样，当你打开Excel文件时，VBA宏会在10分钟后自动发送文件给目标用户，并关闭Excel。
#### 引用[.reference_title]
- *1* [不用VBA，Sharepoint/Onedrive有了Excel报表，怎样每天Outlook推送给用户---试了十几次，总算搞清楚微软...](https://blog.csdn.net/SuperQSweet/article/details/115498073)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down28v1,239^v3^insert_chatgpt"}} ] [.reference_item]
- *2* [每隔十分钟弹窗提醒（Ontime函数）](https://blog.csdn.net/m0_59951054/article/details/128814745)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down28v1,239^v3^insert_chatgpt"}} ] [.reference_item]
- *3* [VBA如何遍历文件夹下面的所有文件](https://blog.csdn.net/sinat_41870148/article/details/123359401)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down28v1,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]