Kuinka tallentaa vain tietty (Excel) liite Outlookiin?
Outlook tarjoaa Tallenna kaikki liitteet -ominaisuuden, jonka avulla voit tallentaa kaikki sähköpostin liitteet tiettyyn kansioon kerralla. Jos kuitenkin haluat tallentaa vain tietyn tyyppisiä liitteitä yhteen tai useampaan sähköpostiin, kuten Excel-työkirjat, Word-asiakirjat ja niin edelleen, miten saavutat sen? Tässä opetusohjelmassa tarjoamme sinulle kaksi tapaa ratkaista tämä ongelma.
Tallenna vain tiettyjä tiedostomuotoisia liitteitä Outlookiin VBA-koodilla
Tallenna helposti vain tiettyjä tiedostomuotoisia liitteitä Outlookiin hämmästyttävän työkalun avulla
Tallenna vain tiettyjä tiedostomuotoisia liitteitä Outlookiin VBA-koodilla
Seuraava VBA-koodi voi auttaa tallentamaan vain tiettyjä tiedostomuotoisia liitteitä yhdessä tai useammassa valitussa sähköpostissa tiettyyn kansioon. Toimi seuraavasti.
1. Käynnistä Outlook. Valitse postiluettelosta yksi tai useampi sähköposti, josta haluat tallentaa vain liitetiedostoja tietyssä tiedostomuodossa.
2. Paina "Alt" + "F11" avataksesi "Microsoft Visual Basic for Applications" -ikkunan. Napsauta avautuvassa ikkunassa "Lisää" > "Moduuli" ja kopioi alla oleva VBA-koodi Moduuli-ikkunaan.
VBA-koodi: Tallenna vain tietty sähköpostin liite tai useita sähköposteja kansioon
Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
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 & "" & "" & xFilePath & ""
End If
End If
Next
xItem.Save
End If
Next
Set xFSO = Nothing
End Sub3. Napsauta "Työkalut" > "Referenssit"; Valitse "References – Project" -valintaikkunassa "Microsoft Scripting Runtime" -ruutu ja napsauta "OK"-painiketta.
4. Paina "F5"-näppäintä suorittaaksesi koodin. Valitse avautuvasta Selaa kansiota -valintaikkunasta yksi kansio liitteiden tallentamista varten.
5. Napsauta sitten "OK", kirjoita seuraavassa "Kutools for Outlook" -valintaikkunassa tallennettavan liitteen tiedostopääte tekstiruutuun ja napsauta "OK".
Huomautus: Useita tiedostotunnisteita varten sinun on erotettava ne pilkuilla.
Sitten vain määritetyt liitteet tallennetaan.
Tallenna helposti vain tiettyjä tiedostomuotoisia liitteitä Outlookiin hämmästyttävän työkalun avulla
Jos olet uusi VBA:ssa, tässä suosittelemme käyttämään Tallenna kaikki liitteet "Kutools for Outlook" -ominaisuus. Tämän ominaisuuden avulla voit helposti tallentaa vain liitteet tietyssä tiedostomuodossa Outlookiin.
1. Valitse sähköpostit, joista haluat tallentaa vain liitteet tietyssä tiedostomuodossa.
2. Napsauta "Kutools" > "Attachment Tools" > "Save All".
3. "Tallenna asetukset" -valintaikkunassa sinun on määritettävä seuraavasti.
-painiketta valitaksesi kansion liitteiden tallentamista varten;
4. Näyttöön tulee valintaikkuna, joka muistuttaa sinua, jos haluat tallentaa liitteet. Jatka napsauttamalla "OK".
5. Sitten toinen valintaikkuna avautuu kertomaan kuinka monta liitettä on tallennettu. Napsauta "OK"-painiketta.
Nyt vain tietyt tiedostomuodon liitteet tallennetaan.
Aiheeseen liittyviä artikkeleita:
- Kuinka tallentaa kaikki sähköpostiviestien liitteet Outlookissa?
- Kuinka poistaa kaikki liitteet sähköpostista 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 ...
