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

Conas liosta anuas a chruthú le haghaidh ábhar in Outlook?

D'fhéadfadh go mbeadh ábhair ríomhphoist réamhshocraithe éagsúla agat a chaithfear a dháileadh ar fhaighteoirí éagsúla in Outlook. Bheadh ​​sé an-éifeachtach liosta anuas ar an ábhar a bheith agat chun ábhar a roghnú gan é a chlóscríobh de láimh agus ríomhphost á chumadh. Díreach mar a léirítear sa gif thíos. Soláthraíonn an teagasc seo trí chód VBA chun cabhrú leat liosta anuas a chruthú le hábhair réamhshocraithe éagsúla. Agus ríomhphost á chumadh, is féidir leat aon ábhar a theastaíonn uait a roghnú ón anuas chun an líne ábhair a líonadh isteach go huathoibríoch. Lean an treoir céim ar chéim chun é a chur i gcrích.


Cruthaigh liosta anuas d'ábhair in Outlook le cód VBA

I ndáiríre, ní cheadaíonn Outlook liosta anuas a chur leis sa líne ábhair. Anseo ní mór duit foirm úsáideora a chruthú agus é a chomhcheangal le cóid VBA chun é a chomhlánú.

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 Ionsáigh > ÚsáideoirForm.

3. Ansin an ÚsáideoirForm1 cuirtear isteach faoi Project1 sa phána clé den Visual Basic eagarthóir. Ní mór duit bosca teaglama agus cnaipe ordaithe a chur leis an bhfoirm úsáideora seo trí an Bosca teaglama agus Cnaipe Ordú faoi ​​seach ó na Bosca uirlisí go dtí an ÚsáideoirForm1.

4. Cliceáil ar dheis ar an gcnaipe ordú agus roghnaigh Airíonna sa roghchlár deaschliceáil.

5. Sa Airíonna – CommandButton1 pána, athraigh an Fotheideal réimse go OK. Athróidh an gníomh seo an téacs a thaispeántar ar an gcnaipe ordaithe.

6. Cliceáil faoi dhó ar an limistéar bán sa UserForm chun an comhfhreagrach a oscailt Foirm Úsáideora (Cód) fhuinneog, ansin cuir an cód VBA seo a leanas in ionad an chóid atá ann cheana féin.

Cód VBA 1: UserForm le liosta anuas lena n-áirítear ábhair ríomhphoist réamhshocraithe iolracha

Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
  With ComboBox1
    .AddItem "Subject 1"
    .AddItem "Subject 2"
    .AddItem "Subject 3"
    .AddItem "Subject 4"
    .AddItem "Subject 5"
    .AddItem "No change"
  End With
End Sub

Private Sub CommandButton1_Click()
  GCbbIndex = ComboBox1.ListIndex
  GSelSubject = ComboBox1.Value
  Unload Me
End Sub

nótaí: Sa chód, an Ábhar 1, 2, 3, 4 agus 5 is iad na hábhair ríomhphoist réamhshocraithe is mian leat a úsáid i do ríomhphoist. “Gan athrúciallaíonn “gan athrú ar bith ar an ábhar ríomhphoist atá ann cheana. Is féidir leat na hábhair ríomhphoist réamhshocraithe a athrú sa chód VBA de réir do riachtanas.

7. Cliceáil dúbailte Project1 > Microsoft Outlook Object > ThisOutlookSession. Ansin cóipeáil an cód VBA seo a leanas isteach sa fhuinneog ThisOutlookSession (Cód).

Cód VBA 2 a úsáidtear i bhfuinneog ThisOutlookSession

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub

8. Téigh ar cliceáil Ionsáigh > Modúil sa Visual Basic eagarthóir. Ansin cóipeáil agus greamaigh an cód VBA seo a leanas isteach sa Modúl (Cód) fhuinneog.

Cód VBA 3 a úsáidtear i bhfuinneog an Mhodúil

Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
  Dim xItem As MailItem
  Dim xMail As Outlook.MailItem
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set xMail = GInlineMail
      Debug.Print "Explorer"
    Case "Inspector"
      Set xMail = Application.ActiveInspector.CurrentItem
      Debug.Print "Inspector"
  End Select
  UserForm1.Show
  If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
    xMail.Subject = GSelSubject
  End If
End Sub

9. Sábháil na cóid agus brúigh an Eile + Q eochracha chun an Eagarthóir amhairc bhunúsach fhuinneog agus filleadh ar iarratas Outlook.

10. Cliceáil ar an Ríomhphost Nua cnaipe faoi Baile cluaisín chun ríomhphost a chruthú.

11. Sa fhuinneog teachtaireachta nua, cliceáil Saincheap Barra Uirlisí Rochtana Tapa > Tuilleadh Orduithe.

12. Sa Roghanna Outlook bosca dialóige, ní mór duit a chumrú mar seo a leanas.

12.1) Roghnaigh Macraí sa Roghnaigh orduithe ó liosta anuas;
12.2) Roghnaigh Tionscadal1.ChangeSubject sa bhosca liosta orduithe;
12.3) Cliceáil ar an Cuir cnaipe;
12.4) Cliceáil ar an OK cnaipe. Féach an pictiúr:

13. Ansin, is féidir leat a fheiceáil go bhfuil cnaipe curtha le ribín na fuinneoige teachtaireachta.

14. Anois ní mór duit do Outlook a atosú.

15. Nuair a bheidh teachtaireacht ríomhphoist á chumadh, más gá duit ábhar réamhshocraithe a chur isteach, ní gá duit ach cliceáil ar an gcnaipe nua-bhreise ar an ribín chun an fhoirm úsáideora a thaispeáint, roghnaigh ábhar ón roghchlár anuas, agus ansin cliceáil ar an OK cnaipe chun é a líonadh isteach sa líne ábhair.

nótaí:

1) Is féidir leat an t-ábhar atá ann cheana féin a athrú le haon ábhar a roghnaíodh sa liosta anuas;
2) Oibríonn an modh seo go maith agus tú ag freagairt nó ag cur ríomhphost ar aghaidh i bhfuinneog nua;
3) Más gnách leat ríomhphoist a fhreagairt in-líne ón bpána léitheoireachta seachas fuinneog ar leith a oscailt, is féidir leat an fhoirm úsáideora a thabhairt suas mar seo a leanas.
3.1) Cliceáil Forbróir > Macraí > Tionscadal1.ChangeSubject. Féach an pictiúr:

3.2) Nuair a thagann an fhoirm úsáideora aníos, roghnaigh ábhar réamhshocraithe ón liosta anuas agus cliceáil ar an gcnaipe OK cnaipe, athrófar an t-ábhar bunaidh láithreach.

4) Má roghnaíonn tú Gan athrú sa roghchlár anuas, coinneofar an t-ábhar bunaidh gan aon athruithe.

Kutools for Outlook - Tugann sé 100 Gné Ard le Outlook, agus Déan 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
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

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