Kuinka tallentaa kaikki liitteet useista sähköpostiviesteistä kansioon Outlookissa?
Kaikki sähköpostin liitteet on helppo tallentaa Outlookin sisäänrakennetun Tallenna kaikki liitteet -ominaisuuden avulla. Jos kuitenkin haluat tallentaa kaikki liitteet useista sähköpostiviesteistä kerralla, mikään suora ominaisuus ei voi auttaa. Sinun on käytettävä Tallenna kaikki liitteet -ominaisuutta toistuvasti jokaisessa sähköpostissa, kunnes kaikki liitteet on tallennettu kyseisistä sähköpostiviesteistä. Se on aikaa vievää. Tässä artikkelissa esittelemme kaksi tapaa, joilla voit joukkotallentaa kaikki liitteet useista sähköpostiviesteistä tiettyyn kansioon helposti Outlookissa.
Tallenna kaikki liitteet useista sähköpostiviesteistä kansioon VBA-koodilla
Useita napsautuksia tallentaaksesi kaikki liitteet useista sähköpostiviesteistä kansioon hämmästyttävällä työkalulla
Tallenna kaikki liitteet useista sähköpostiviesteistä kansioon VBA-koodilla
Tämä osa esittelee VBA-koodin vaiheittaisessa oppaassa, jonka avulla voit nopeasti tallentaa useiden sähköpostien liitteet tiettyyn kansioon kerralla. Toimi seuraavasti.
1. Ensin sinun on luotava kansio liitteiden tallentamista varten tietokoneellesi.
Siirry "Dokumentit"-kansioon ja luo kansio nimeltä "Attachments". Katso kuvakaappaus:
2. Valitse sähköpostit, joihin tallennat liitteet, ja paina sitten Alt + F11 näppäimiä avataksesi Microsoft Visual Basic for Applications -ikkunan.
3. Napsauta "Lisää" > "Moduuli" avataksesi "Moduuli"-ikkunan ja kopioi sitten jokin seuraavista VBA-koodeista ikkunaan.
VBA-koodi 1: Joukkotallenna liitteet useista sähköpostiviesteistä (tallenna täsmälleen samannimiset liitteet suoraan)
Vinkkejä: Tämä koodi tallentaa täsmälleen samannimiset liitteet lisäämällä numerot 1, 2, 3... tiedostonimien jälkeen.
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 & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
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
VBA-koodi 2: Joukkotallenna liitteet useista sähköpostiviesteistä (tarkista kaksoiskappaleet)
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
Dim xYesNo As Integer
Dim xFlag As Boolean
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
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
xFilePath = xFolderPath & xAttachments.Item(i).FileName
xFlag = True
If VBA.Dir(xFilePath, 16) <> Empty Then
xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
If xYesNo = vbNo Then xFlag = False
End If
If xFlag = True Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
Huomautuksia:
5. Paina "F5"-näppäintä suorittaaksesi koodin.
Sitten kaikki valittujen sähköpostien liitteet tallennetaan kansioon, jonka loit vaiheessa 1.
Huomautuksia: Näyttöön saattaa tulla "Microsoft Outlook" -kehote. Siirry eteenpäin napsauttamalla "Salli"-painiketta.
Tallenna kaikki liitteet useista sähköpostiviesteistä kansioon hämmästyttävällä työkalulla
Jos olet aloittelija VBA:ssa, tässä erittäin suositeltavaa "Kutools for Outlook" -sovelluksen "Tallenna kaikki liitteet" -apuohjelma sinulle. Tämän apuohjelman avulla voit nopeasti tallentaa kaikki liitteet useista sähköpostiviesteistä kerralla useilla napsautuksella vain Outlookissa.
Avaa äärimmäinen sähköpostitehokkuus Kutools for Outlookin avulla! Pääsy 70 tehokkaat ominaisuudet täysin ilmaisia, ikuisesti. Lataa ilmainen versio nyt!
1. Valitse sähköpostit, jotka sisältävät tallennettavat liitteet.
Vinkkejä: Voit valita useita vierekkäisiä sähköposteja pitämällä Ctrl-näppäintä painettuna ja valitsemalla ne yksitellen.
Tai valitse useita vierekkäisiä sähköposteja pitämällä "Shift"-näppäintä painettuna ja valitsemalla ensimmäinen sähköposti ja viimeinen.
2. Napsauta "Kutools Plus" > "Attachment Tools" > "Save All". Katso kuvakaappaus:
3. Napsauta "Tallenna asetukset" -valintaikkunassa -kuvaketta 
-painiketta valitaksesi kansio, johon liitteet tallennetaan, ja napsauta sitten "OK"-painiketta.
4. Napsauta "OK" kahdesti seuraavissa ponnahdusikkunoissa. Sitten kaikki valittujen sähköpostien liitteet tallennetaan määritettyyn kansioon kerralla.
Huomautuksia:
- 1. Jos haluat tallentaa liitetiedostoja eri kansioihin sähköpostien perusteella, valitse "Luo alikansiot seuraavassa tyylissä" -ruutu ja valitse kansiotyyli avattavasta valikosta.
- 2. Kaikkien liitteiden tallentamisen lisäksi voit tallentaa liitteitä tietyillä ehdoilla. Jos esimerkiksi haluat tallentaa vain PDF-tiedostoliitteet, joiden tiedostonimessä on sana "Lasku", napsauta "Lisäasetukset" -painiketta laajentaaksesi ehdot ja määritä sitten alla olevan kuvan mukaisesti.
- 3. Jos haluat tallentaa liitteet automaattisesti sähköpostien saapuessa, Liitteiden automaattinen tallennus ominaisuus voi auttaa.
- 4. Jos haluat irrottaa liitteet suoraan valituista sähköpostiviesteistä, Irrota kaikki liitteet "Kutools for Outlook" -ominaisuus voi tehdä sinulle palveluksen.
Liittyvät artikkelit
Lisää liitteet sähköpostiviestin tekstiosaan Outlookissa
Normaalisti liitteet näkyvät kirjoitettavan sähköpostin Liitteet-kentässä. Tässä opetusohjelmassa on menetelmiä, joiden avulla voit helposti lisätä liitteitä Outlookin sähköpostin runkoon.
Lataa / tallenna liitteet automaattisesti Outlookista tiettyyn kansioon
Yleisesti ottaen voit tallentaa kaikki yhden sähköpostin liitteet valitsemalla Outlookissa Liitteet > Tallenna kaikki liitteet. Mutta jos sinun on tallennettava kaikki liitteet kaikista vastaanotetuista sähköposteista ja vastaanottavista sähköposteista, onko ihanteellinen? Tässä artikkelissa esitellään kaksi ratkaisua liitteiden lataamiseen automaattisesti Outlookista tiettyyn kansioon.
Tulosta kaikki liitteet yhteen tai useaan sähköpostiin Outlookissa
Kuten tiedät, se tulostaa vain sähköpostin sisällön, kuten otsikon ja tekstin, kun napsautat Tiedosto > Tulosta Microsoft Outlookissa, mutta ei tulosta liitteitä. Tässä näytämme, kuinka voit tulostaa kaikki valitun sähköpostin liitteet helposti Microsoft Outlookissa.
Hae sanoja liitteestä (sisällöstä) Outlookissa
Kun kirjoitamme avainsanan Outlookin Pikahaku-kenttään, se etsii avainsanaa sähköpostien aiheista, rungoista, liitteistä jne. Mutta nyt minun on vain haettava avainsanaa liitesisällöstä vain Outlookissa, onko ideaa? Tämä artikkeli näyttää yksityiskohtaiset vaiheet, joiden avulla voit etsiä sanoja helposti Outlookin liitesisällöstä.
Säilytä liitteet, kun vastaat Outlookissa
Kun välitämme sähköpostiviestin Microsoft Outlookissa, tämän sähköpostiviestin alkuperäiset liitteet säilyvät edelleenlähetetyssä viestissä. Kuitenkin, kun vastaamme sähköpostiviestiin, alkuperäisiä liitteitä ei liitetä uuteen vastausviestiin. Tässä esittelemme pari temppua alkuperäisten liitteiden säilyttämisestä, kun vastaat Microsoft Outlookissa.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
