как скопировать файл Excel в папку Outlook - PullRequest
Новая
       44

как скопировать файл Excel в папку Outlook

0 голосов
/ 27 марта 2019

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

...