3 начина за преузимање свих прилога из Оутлоок-а

Прођите кроз овај водич да бисте научили све начине

Као професионалном кориснику, преузимање тона прилога из е-порука примљених у Оутлоок-у може бити монотоно и дуготрајно.

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

Ако сте радознали да знате поступак корак по корак, останите са нама док вас водимо кроз процедуру.

Како да преузмем све прилоге из е-поште?

1. Коришћење десктоп апликације

1. Покрените Мицрософт Оутлоок апликацију на вашем Виндовс рачунару.
2. Потражите и отворите ту е-пошту у окну за читање са којег преузимате прилоге.
3. Пребаците се на Прилози одељак са горње траке менија, кликните десним тастером миша на један од прилога датотеке у десном одељку и изаберите
   instagram story viewer
   Сачувајте све прилоге у падајућем менију.
4. притисните Цтрл тастер и изаберите све прилоге које желите да преузмете у малом дијалогу који се отвара.
5. притисните У реду дугме након што изаберете потребне прилоге.
6. А ново Сачувај као отвориће се искачући прозор за чување прилога. Дођите до фасцикле у којој желите да сачувате датотеке прилога и притисните У реду дугме у доњем десном углу да започнете преузимање прилога.

Можете лако да преузмете све датотеке приложене е-поруци одједном уместо да преузимате сваку датотеку појединачно.

2. Коришћење веб апликације

1. Приступите Мицрософт Оутлоок веб апликација користећи свој жељени веб прегледач и наведите своје акредитиве за пријаву када се од вас затражи да се пријавите.
2. Изаберите Инбок фолдер са леве траке менија у Кућа одељак веб апликације.
3. Двапут кликните на дотичну е-пошту да бисте видели садржај е-поште у новом прозору.
4. Кликните Преузмите све дугме за преузимање прилога у облику ЗИП датотеке.
5. Изаберите локацију за преузимање и притисните У реду дугме ако је Сачувај као отвара се оквир за дијалог.

Ово је једноставан метод за преузимање свих прилога е-поште из једне е-поште ако више волите веб апликацију уместо Оутлоок апликације.

Како да преузмем све прилоге са више имејлова?

БЕЛЕШКА

Ову методу можете испробати само ако користите Оутлоок 2019, 2016, 2013, 2010, 2007 или 2003.

1. Креирате нову фасциклу

1. Користити Виндовс + Е пречица за покретање Филе Екплорер.
2. Идите до Документи фолдер са леве бочне траке.
3. Кликните десним тастером миша било где у десном делу и изаберите Нова затим Фолдер из контекстног менија.
4. Двапут кликните на име фасцикле и преименујте га у Прилози.

2. Направите ВБА скрипту

1. Сада покрените апликацију Оутлоок на свом Виндовс рачунару.
2. Изабрати Филе опцију, а затим изаберите Опције са леве бочне траке.
3. Изаберите Прилагодите траку са левог панела Ворд опције прозор.
4. Изаберите Девелопер опција у Главне картице и притисните Плус икона за додавање режима програмера у Оутлоок мени траке.
5. Затворите искачући прозор Опције програма Ворд, а затим изаберите Режим програмера затим Вижуал бејзик из главног менија.
6. Изаберите Пројецт1 приказано као подразумевано, а затим изаберите Уметните затим Модул да бисте приступили прозору Модул.
7. Сада копирајте и налепите следећи код Модул1 и затвори прозор.

Dim GCount As Integer. Dim GFilepath As String. Public Sub SaveAttachments()
'Update 20200821. Dim xMailItem As Outlook.MailItem. Dim xAttachments As Outlook.Attachments. Dim xSelection As Outlook.Selection. Dim i As Long. Dim xAttCount As Long. Dim xFilePath As String, xFolderPath As String, xSaveFiles As String. On Error Resume Next. xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection. xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then VBA.MkDir xFolderPath. End If. GFilepath = ""
For Each xMailItem In xSelection Set xAttachments = xMailItem.Attachments xAttCount = xAttachments.Count xSaveFiles = "" If xAttCount > 0 Then For i = xAttCount To 1 Step -1 GCount = 0 xFilePath = xFolderPath & xAttachments.Item(i).FileName GFilepath = xFilePath xFilePath = FileRename(xFilePath) If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then xAttachments.Item(i).SaveAsFile xFilePath If xMailItem.BodyFormat <> olFormatHTML Then xSaveFiles = xSaveFiles & vbCrLf & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" End If End If Next i End If. Next. Set xAttachments = Nothing. Set xMailItem = Nothing. Set xSelection = Nothing. End Sub Function FileRename(FilePath As String) As String. Dim xPath As String. Dim xFso As FileSystemObject. On Error Resume Next. Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath. FileRename = xPath. If xFso.FileExists(xPath) Then GCount = GCount + 1 xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath) FileRename = FileRename(xPath)
End If. xFso = Nothing. End Function Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem. Dim xCid As String. Dim xID As String. Dim xHtml As String. On Error Resume Next. IsEmbeddedAttachment = False. Set xItem = Attach.Parent. If xItem.BodyFormat <> olFormatHTML Then Exit Function. xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then xHtml = xItem.HTMLBody xID = "cid:" & xCid If InStr(xHtml, xID) > 0 Then IsEmbeddedAttachment = True End If. End If. End Function

3. Покрените ВБС скрипту

1. Пребаците се на Режим програмера а затим изаберите Вижуал бејзик са Оутлоок траке.
2. Изаберите Модул1 и погодио Ф5 кључ за покретање кода.
3. Кликните Сачувај прилог дугме након одабира прилога за потврду радње.

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

То је све у овом водичу! Надамо се да сте свесни различитих начина на које можете лако да преузмете све прилоге е-поште из апликације Мицрософт Оутлоок.

Ако наиђете на Нешто је пошло наопако, грешка у Оутлоок-у апликацију, испробајте решења предложена у овом водичу.

Ако имате било каквих питања или знате за друге методе, јавите нам у одељку за коментаре.