Conas an Bosca Dialóige Comhad a Oscailt go Tapa Chun Ceangaltán a chur isteach in Outlook?
Nuair is gá dúinn ceangaltán a chur isteach i ríomhphost cumadóireachta, de ghnáth ní mór dúinn cliceáil Ionsáigh > Ceangail Comhad > Brabhsáil an ríomhaire seo chun an bosca dialóige Ionsáigh Comhad a oscailt, ansin faigh agus cuir isteach an comhad a theastaíonn uainn. Sa rang teagaisc seo, cuirimid dhá chód VBA ar fáil chun cabhrú leat an bosca dialóige Ionsáigh Comhad a oscailt go héasca le cliceáil amháin.
Oscail an Bosca Dialóige Comhad go Tapa Chun Ceangaltán Le VBA a Iontráil
Is féidir leis na cóid VBA seo a leanas a bhaint amach:
Cód VBA 1: Oscail an fillteán Doiciméid réamhshocraithe i do ríomhaire
Cód VBA 2: Oscail an fillteán sonraithe i do ríomhaire
Déan mar a leanas le do thoil chun é a dhéanamh.
1. Seoladh do Outlook, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil uirlisí > Tagairtí, ansin seiceáil an Microsoft Scripting Runtime bosca sa Tagairtí – Tionscadal1 dialóg.
3. cliceáil Ionsáigh > Modúl. Ansin cóipeáil ceann amháin de na cóid VBA seo a leanas chuig an Modúil fhuinneog.
Cód VBA 1: Oscail an fillteán Doiciméid réamhshocraithe i do ríomhaire
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
Cód VBA 2: Oscail an fillteán sonraithe i do ríomhaire
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
Nótaí:
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\sábháil ceangaltáin\"
Ansin osclófar an fillteán sonraithe gach uair a ritheann tú an cód seo.
4. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
Anois tá cnaipe ag teastáil uait chun an macra a rith.
5. cliceáil Baile > Ríomhphost Nua chun ríomhphost nua a chruthú. I bhfuinneog na teachtaireachta, cliceáil Saincheap Barra Uirlisí Rochtana Tapa > Tuilleadh Orduithe.
6. Sa Roghanna Outlook bosca dialóige, ní mór duit a chumrú mar seo a leanas.
7. Coinnigh an script roghnaithe sa bhosca ar dheis, agus ansin cliceáil ar an Athraigh cnaipe. Sa Cnaipe Athraigh bosca dialóige, cnaipe nua a shannadh don script agus cliceáil OK.
8. cliceáil OK sa Roghanna Outlook bosca dialóige chun na hathruithe a shábháil.
9. Ansin cuirtear an cnaipe a shonraigh tú i gcéim 7 leis an Barra Uirlisí Rochtana Tapa. Agus ríomhphost á chumadh, más mian leat ceangaltán a chur isteach, ní féidir leat ach cliceáil ar an gcnaipe seo chun an Brabhsáil fillteán agus roghnaigh an comhad is gá duit a chur isteach.
Kutools for Outlook - Tugann sé 100 Ardghné go Outlook, agus Déan Obair i bhfad níos éasca!
- Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
- Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
- Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
- Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
- Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.

