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

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 Instrumente > 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:

1) Codul VBA 1 vă ajută să deschideți folderul implicit Documente de pe computer.

2) În codul VBA 2, vă rugăm să schimbați calea dosarului din următoarea linie la calea folderului de care aveți nevoie.
xFileDlg.InitialFileName = "C:\Utilizatori\Win10x64Test\Desktop\salvați atașamente\"
Apoi folderul specificat va fi deschis de fiecare dată când rulați acest cod.

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 Acasă > 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ă.

6.1) În Alegeți comenzi de la lista derulantă, selectați Macro-uri;

6.2) Selectați macrocomanda pe care ați adăugat-o la pasul anterior;

6.3) Faceți clic pe Adăuga pentru a adăuga această macrocomandă la Personalizați bara de instrumente cu acces rapid cutie.

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.