Я нашел макрос, который сохраняет вложение из электронной почты в outlook, и в этом аспекте он работает довольно хорошо, но он сохраняет его в папке "мой документ"
Я хотел бы, чтобы он сохраняет его в другой папке, которые имеют совершенно другой путь, однако у меня есть проблемы, чтобы увидеть, как код, который делает это работает, и, таким образом, я не преуспеть в изменении его
текущий путь к папке Мои документы
C:UsersmeDocumentsOLAttachments но это должно быть
Y:work_networkmeoutlook-file
текущий код у меня есть
Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String
' Get the path to your My Documents folder
strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
On Error Resume Next
' Instantiate an Outlook Application object.
Set objOL = CreateObject("Outlook.Application")
' Get the collection of selected objects.
Set objSelection = objOL.ActiveExplorer.Selection
' Set the Attachment folder.
strFolderpath = strFolderpath & "OLAttachments"
' Check each selected item for attachments.
For Each objMsg In objSelection
Set objAttachments = objMsg.Attachments
lngCount = objAttachments.Count
If lngCount > 0 Then
For i = lngCount To 1 Step -1
' Get the file name.
strFile = Left(objAttachments.Item(i).FileName, Len(stry) - 4) & Format(Date, "DDMMYY") & ".xls"
' Combine with the path to the Temp folder.
strFile = strFolderpath & strFile
' Save the attachment as a file.
objAttachments.Item(i).SaveAsFile strFile
Next i
End If
Next
ExitSub:
Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub
Я не очень понимаю, как эта линия работает
strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
и у меня есть проблемы, чтобы адаптировать его к тому, что мне нужно.
может ли кто-нибудь помочь в этом?
Большое спасибо