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

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.


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.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Sórtáil tuairimí de réir
Comments (0)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Níl aon tráchtanna curtha suas anseo go fóill

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL