Kuinka avata nopeasti Tiedosto-valintaikkuna liitteen lisäämiseksi Outlookiin?

Kirjailija: Siluvia Viimeksi muokattu: 2024-09-13

Kun meidän on lisättävä liite sähköpostiviestiin, meidän on yleensä napsautettava Lisää > Liitä tiedosto > Selaa tätä tietokonetta avataksemme Lisää tiedosto -valintaikkunan. Etsi ja lisää sitten tarvitsemamme tiedosto. Tässä opetusohjelmassa tarjoamme kaksi VBA-koodia, joiden avulla voit avata Lisää tiedosto -valintaikkunan helposti yhdellä napsautuksella.

Avaa nopeasti Tiedosto-valintaikkuna lisätäksesi liitteen VBA:lla

Seuraavat VBA-koodit voivat saavuttaa:

VBA-koodi 1: Avaa oletusasiakirjat-kansio tietokoneellasi
VBA-koodi 2: Avaa määritetty kansio tietokoneellasi

Tee se seuraavasti.

1. Käynnistä Outlook, paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications -ikkunassa Työkalut > Referenssit, tarkista sitten Microsoft Scripting Runtime laatikko Referenssit – Project1 valintaikkuna.

tiedoston valintaikkunan avaamisen vaiheet liitteen lisäämiseksi Outlookiin

3. napsauttaa liite > Moduuli. Kopioi sitten jokin seuraavista VBA-koodeista tiedostoon Moduulit ikkunassa.

VBA-koodi 1: Avaa oletusasiakirjat-kansio tietokoneellasi

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

VBA-koodi 2: Avaa määritetty kansio tietokoneellasi

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

Huomautuksia:

1) VBA-koodi 1 auttaa avaamaan oletusasiakirjat-kansion tietokoneellasi.

2) Vaihda VBA-koodissa 2 seuraavalla rivillä oleva kansiopolku tarvitsemasi kansiopoluksi.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\tallenna liitteet\"
Sitten määritetty kansio avataan aina, kun suoritat tämän koodin.

4. paina muut + Q avaimet sulkeaksesi Microsoft Visual Basic for Applications ikkunassa.

Nyt tarvitset painikkeen makron suorittamiseen.

5. napsauttaa ETUSIVU > uusi sähköposti luodaksesi uuden sähköpostin. Napsauta viestiikkunassa Muokkaa pikakäyttötyökaluriviä > Lisää komentoja.

6. Vuonna Outlook-asetukset valintaikkunassa, sinun on määritettävä seuraavasti.

6.1) kohdassa Valitse komennot avattavasta luettelosta makrot;

6.2) Valitse edellisessä vaiheessa lisäämäsi makro;

6.3) Napsauta painiketta Lisää -painiketta lisätäksesi tämän makron Muokkaa pikakäyttötyökaluriviä laatikko.

7. Pidä komentosarja valittuna oikeanpuoleisessa ruudussa ja napsauta sitten Muuttaa painiketta. Vuonna Muokkaa-painike -valintaikkunassa, määritä komentosarjalle uusi painike ja napsauta OK.

8. napsauttaa OK vuonna Outlook-asetukset valintaikkuna tallentaaksesi muutokset.

9. Vaiheessa 7 määrittämäsi painike lisätään sitten kohtaan Pikavalinta-työkalurivi. Kun kirjoitat sähköpostia, jos haluat lisätä liitteen, voit avata sen napsauttamalla tätä painiketta selailla kansio ja valitse lisättävä tiedosto.

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!

🤖 Kutools AI : Käyttää edistynyttä tekoälytekniikkaa sähköpostien vaivattoman käsittelyyn, mukaan lukien sähköpostien vastaaminen, yhteenveto, optimointi, laajentaminen, kääntäminen ja kirjoittaminen.

📧 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 ...

Avaa Kutools for Outlook välittömästi yhdellä napsautuksella. Älä odota, lataa nyt ja lisää tehokkuuttasi!

Ominaisuusluettelo Kutooleista Outlookille Lataa ilmainen versio Päivitä Professionaliin