Cum să deschideți rapid caseta de dialog Fișier pentru a insera un atașament în Outlook?

Când trebuie să inserăm un atașament într-un e-mail de redactare, de obicei trebuie să facem clic pe Insert > Attach File > Browse This PC pentru a deschide caseta de dialog Insert File, apoi găsim și inserăm fișierul de care avem nevoie. În acest tutorial, oferim două coduri VBA pentru a vă ajuta să deschideți cu ușurință caseta de dialog Inserare fișier, cu un singur clic.

Deschideți rapid caseta de dialog Fișier pentru a insera un atașament cu VBA

Următoarele coduri VBA pot obține:

Cod VBA 1: deschideți folderul implicit Documente de pe computer
Cod VBA 2: deschideți folderul specificat pe computer

Vă rugăm să faceți după cum urmează pentru a finaliza.

1. Lansați Outlook, apăsați butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe unelte > Referințe, apoi verificați Runtime Microsoft Scripting cutie în Referințe – Proiect1 căsuță de dialog.

3. clic Insera > Modul. Apoi copiați unul dintre următoarele coduri VBA în Module fereastră.

Cod VBA 1: deschideți folderul implicit Documente de pe computer

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

Cod VBA 2: deschideți folderul specificat pe computer

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

note:

4. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

Acum aveți nevoie de un buton pentru a rula macro-ul.

5. clic Acasa > Email nou pentru a crea un e-mail nou. În fereastra de mesaj, faceți clic Personalizați bara de instrumente cu acces rapid > Mai multe comenzi.

6. În Opțiuni Outlook casetă de dialog, trebuie să configurați după cum urmează.

7. Păstrați scriptul selectat în caseta din dreapta, apoi faceți clic pe Modifica buton. În Buton Modificare caseta de dialog, atribuiți un nou buton scriptului și faceți clic OK.

8. clic OK în Opțiuni Outlook casetă de dialog pentru a salva modificările.

9. Butonul specificat la pasul 7 este apoi adăugat la Bara de instrumente pentru acces rapid. Când compuneți un e-mail, dacă doriți să inserați un atașament, puteți doar să faceți clic pe acest buton pentru a deschide Naviga folder și selectați fișierul pe care trebuie să-l inserați.

---

Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

• Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
• Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
• Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
• Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
• E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.

Citeşte mai mult ... Descarcă acum...