Conas an bosca dialóige comhad a oscailt go tapa chun ceangaltán a chur isteach in Outlook?

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

1) Cuidíonn an cód VBA 1 leis an bhfillteán Doiciméid réamhshocraithe a oscailt i do ríomhaire.

2) Sa chód VBA 2, le do thoil athraigh an cosán fillteáin sa líne seo a leanas go dtí an cosán fillteáin atá uait.
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.

6.1) Sa Roghnaigh orduithe ó liosta anuas, roghnaigh Macraí;

6.2) Roghnaigh an macra a chuir tú leis sa chéim roimhe seo;

6.3) Cliceáil ar an Cuir cnaipe chun an macra seo a chur leis an Saincheap Barra Uirlisí Rochtana Tapa bosca.

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.