Колачићи нам помоћи да испоручи наше услуге. Коришћењем наше услуге, сагласни сте да наше коришћење колачића.
Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како да сачувате само одређени (екцел) прилог у програму Оутлоок?

Оутлоок пружа функцију Сачувај све прилоге за брзо чување свих прилога у е-поруци у одређену фасциклу одједном. Међутим, ако желите да сачувате само одређени тип прилога у е-поруци, као што је Екцел прилог, Ворд документ и тако даље, шта можете учинити да бисте то постигли? Овдје нудимо ВБА метод за рјешавање проблема.

Сачувајте само одређени прилог у програму Оутлоок


Једноставно сачувајте све прилоге из више одабраних е-пошта у фолдер:

Са Одвојите све прилоге корисност Кутоолс за Екцел, можете лако сачувати све прилоге из више одабраних е-пошта до одређеног фасцикла у програму Оутлоок као што је приказано испод.

Кутоолс за Оутлоок: са више од КСНУМКС-а корисних Оутлоок-ових додатака, слободно покушати без ограничења у КСНУМКС данима. Преузмите и пробајте сада!

Кутоолс за Оутлоок: КСНУМКС + Нови напредни алати за Оутлоок.
Оффице Таб: Омогућите уређивање језичака и прегледање у канцеларији, Јуст Лике Цхроме, Фирефок, ИЕ КСНУМКС / КСНУМКС / КСНУМКС.
Цлассиц Мену: Донесите старе меније и алатне траке назад у Оффице КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС.

Сачувајте само одређени прилог у програму Оутлоок

Доњи ВБА код може помоћи да се у одређеној фасцикли чува само одређени прилог у е-маилу или више емаилова. Урадите како следи.

КСНУМКС. Покрените Оутлоок, у маилинг листи, изаберите е-пошту или више е-порука које ћете сачувати одређени прилог.

КСНУМКС. притисните други + ФКСНУМКС тастере за отварање Мицрософт Висуал Басиц за апликације прозор. У прозору за отварање кликните на дугме Убацити > Модули, а затим копирајте испод ВБА кода у прозор Модуле.

ВБА код: Сачувајте само одређени прилог у е-маилу или више емаилова у фасциклу

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

КСНУМКС. клик алат > Референце, У Референце - Пројекат дијалог, проверите Мицрософт Сцриптинг Рунтиме бок и кликните на OK дугме.

КСНУМКС. притисните F5 кључ за покретање кода. У искоченом Претражите фолдер дијалог, изаберите једну фасциклу да бисте сачували прилоге.

КСНУМКС. И онда кликните OK, у следећем тексту Кутоолс за Оутлоок дијалог бок, унесите проширење датотеке у прилог који ћете сачувати у текстуалном пољу и кликните OK.

Затим се сачувају само одређени прилози.

белешке:

КСНУМКС. Ако желите да сачувате различите врсте прилога, унесите проширења датотека у текстуално поље и одвојите их по зарезама.

КСНУМКС. Након сачувања, на телу поруке се приказује пут за уштеду прилога. Можете отворити прилог притиском на хипервезу директно.


Повезани чланци:



Кутоолс за Оутлоок

Више од КСНУМКС напредних функција за Оутлоок КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС

сцреен схот кутоолс фор оутлоок тини за баннер КСНУМКС

Још карактеристика | Бесплатно скидање | Само $ КСНУМКС за стотине функција

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.