Note: The other languages of the website are Google-translated. Back to English

Sut i agor y blwch deialog ffeil yn gyflym i fewnosod atodiad yn Outlook?

Pan fydd angen i ni fewnosod atodiad mewn e-bost cyfansoddi, fel arfer mae angen i ni glicio Mewnosod > Atodi Ffeil > Pori'r PC hwn i agor y blwch deialog Mewnosod Ffeil, yna darganfyddwch a mewnosodwch y ffeil sydd ei hangen arnom. Yn y tiwtorial hwn, rydym yn darparu dau god VBA i'ch helpu i agor y blwch deialog Mewnosod Ffeil yn hawdd gyda dim ond un clic.


Agorwch y Blwch Ymgom Ffeil yn Gyflym I Mewnosod Atodiad Gyda VBA

Gall y codau VBA canlynol gyflawni:

Cod VBA 1: Agorwch y ffolder Dogfennau rhagosodedig yn eich cyfrifiadur
Cod VBA 2: Agorwch y ffolder penodedig yn eich cyfrifiadur

Gwnewch fel a ganlyn i'w gyflawni.

1. Lansio eich Rhagolwg, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > Cyfeiriadau, yna gwiriwch y Amser Rhedeg Sgriptio Microsoft blwch yn y Cyfeiriadau – Prosiect1 blwch deialog.

3. Cliciwch Mewnosod > Modiwl. Yna copïwch un o'r codau VBA canlynol i'r Modiwlau ffenestr.

Cod VBA 1: Agorwch y ffolder Dogfennau rhagosodedig yn eich cyfrifiadur

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: Agorwch y ffolder penodedig yn eich cyfrifiadur

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

Nodiadau:

1) Mae'r cod VBA 1 yn helpu i agor y ffolder Dogfennau rhagosodedig yn eich cyfrifiadur.
2) Yn y cod VBA 2, newidiwch y llwybr ffolder yn y llinell ganlynol i'r llwybr ffolder sydd ei angen arnoch.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\cadw atodiadau\"
Yna bydd y ffolder penodedig yn cael ei agor bob tro y byddwch chi'n rhedeg y cod hwn.

4. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Nawr mae angen botwm arnoch i redeg y macro.

5. Cliciwch Hafan > Ebost Newydd i greu e-bost newydd. Yn y ffenestr neges, cliciwch Addasu Bar Offer Mynediad Cyflym > Mwy o Orchmynion.

6. Yn y Dewisiadau Outlook blwch deialog, mae angen i chi ffurfweddu fel a ganlyn.

6.1) Yn y Dewiswch orchmynion oddi wrth rhestr ostwng, dewiswch Macros;
6.2) Dewiswch y macro a ychwanegwyd gennych yn y cam blaenorol;
6.3) Cliciwch y Ychwanegu botwm i ychwanegu'r macro hwn i'r Addasu Bar Offer Mynediad Cyflym blwch.

7. Cadwch y sgript a ddewiswyd yn y blwch cywir, ac yna cliciwch ar y Addasu botwm. Yn y Addasu Botwm blwch deialog, aseinio botwm newydd i'r sgript a chliciwch OK.

8. Cliciwch OK yn y Dewisiadau Outlook blwch deialog i achub y newidiadau.

9. Yna caiff y botwm a nodwyd gennych yng ngham 7 ei ychwanegu at y Bar Offer Mynediad Cyflym. Wrth gyfansoddi e-bost, os ydych am fewnosod atodiad, gallwch glicio ar y botwm hwn i agor y Pori ffolder a dewiswch y ffeil y mae angen i chi ei mewnosod.


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir