excel - 如何将excel文件复制到outlook文件夹中

Question

我正在尝试将 excel 文件复制到 Outlook 文件夹。我可以找到 Outlook 文件夹，但我不知道如何在那里复制 excel 文件。

Const olFolderInbox = 6

set fso = CreateObject("Scripting.FileSystemObject")
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objInbox = objNamespace.Folders("ServiceDesk Support")
Set colItems = objInbox.Items
sourcefolder = "c:\"
strfilename = "Online Status -Test.xlsx"
sourcefile = "C:\Online Status -Test.xlsx"
set strfile = fso.GetFolder(sourcefolder)

GetSubfolders(objInbox)

Sub GetSubfolders(objParentFolder)
    Set colFolders = objParentFolder.Folders
    For Each objFolder in colFolders
        Set objSubfolder = objParentFolder.Folders(objFolder.Name)
        if objSubfolder = "File Status" then
            set savefolder = objSubfolder
            fso.CopyFile sourcefile, objSubfolder.Name
        end if
        GetSubfolders objSubfolder
    Next
End Sub

脚本成功完成，但 Outlook 文件夹中没有文件。

标签： excelvbscriptoutlookwsh