我有一个宏,它创建一个pdf,然后发送到outlook作为电子邮件附加,但它试图打开应用程序,而不是使用基于网络的版本。我可以用什么代码来替换它呢?

发布于 2022-05-03 17:53:33
您需要将工作簿保存在磁盘上,然后使用刚刚保存的文件的文件路径将其添加为Outlook中的附件。附件的源可以是文件(由具有文件名的完整文件系统路径表示),也可以是构成附件的Outlook项。例如:
Sub AddAttachment()
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "D:\Test.xlsx", _
olByValue, 1, "Test"
myItem.Display
End Sub自动使用Outlook桌面的代码将不适用于浏览器。
https://stackoverflow.com/questions/72103417
复制相似问题