Блог

Я пытаюсь скопировать файл 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 нет файла.