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

Sut i greu cwymplen ar gyfer pynciau yn Outlook?

Efallai bod gennych chi wahanol bynciau e-bost rhagosodedig y mae angen eu dosbarthu i wahanol dderbynwyr yn Outlook. Byddai'n effeithlon iawn cael cwymplen llinell pwnc ar gyfer dewis pwnc heb ei deipio â llaw wrth gyfansoddi e-bost. Yn union fel y gif a ddangosir isod. Mae'r tiwtorial hwn yn darparu tri chod VBA i'ch helpu i greu rhestr gwympo gyda gwahanol bynciau rhagosodedig. Wrth gyfansoddi e-bost, gallwch ddewis unrhyw bwnc sydd ei angen arnoch o'r gwymplen i lenwi'r llinell pwnc yn awtomatig. Dilynwch y canllaw cam wrth gam i'w gyflawni.


Creu rhestr gwympo ar gyfer pynciau yn Outlook gyda chod VBA

Mewn gwirionedd, nid yw Outlook yn caniatáu ychwanegu rhestr gwympo yn y llinell bwnc. Yma mae angen i chi greu ffurflen ddefnyddiwr a'i chyfuno â chodau VBA i'w chwblhau.

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 Mewnosod > Ffurflen Defnyddiwr.

3. Yna y DefnyddiwrForm1 yn cael ei fewnosod o dan Project1 yn y cwarel chwith y Visual Basic golygydd. Mae angen i chi ychwanegu blwch combo a botwm gorchymyn i'r ffurflen ddefnyddiwr hon trwy lusgo'r ComboBox ac Botwm Gorchymyn yn y drefn honno o'r Blwch offer i'r DefnyddiwrForm1.

4. De-gliciwch y botwm gorchymyn a dewiswch Eiddo yn y ddewislen de-gliciwch.

5. Yn y Priodweddau – CommandButton1 cwarel, newid y Geiriad maes i OK. Bydd y weithred hon yn newid y testun a ddangosir ar y botwm gorchymyn.

6. Cliciwch ddwywaith ar yr ardal wag yn y UserForm i agor y cyfatebol Ffurflen Defnyddiwr (Cod) ffenestr, yna disodli'r cod presennol gyda'r cod VBA canlynol.

Cod VBA 1: UserForm gyda gwymplen yn cynnwys pynciau e-bost rhagosodedig lluosog

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

Nodyn: Yn y cod, y Testun 1, 2, 3, 4 ac 5 yw'r pynciau e-bost rhagosodedig rydych chi am eu defnyddio yn eich e-byst. “Dim newid” yn golygu peidio â newid unrhyw beth o'r pwnc e-bost presennol. Gallwch newid y pynciau e-bost rhagosodedig yn y cod VBA yn unol â'ch anghenion.

7. Cliciwch ddwywaith Project1 > Gwrthrychau Microsoft Outlook > SesiwnOutlook. Yna copïwch y cod VBA canlynol i ffenestr ThisOutlookSession (Cod).

Cod VBA 2 a ddefnyddir yn y ffenestr 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. Ewch ymlaen i glicio Mewnosod > Modiwlau yn y Visual Basic golygydd. Yna copïwch a gludwch y cod VBA canlynol i mewn i'r Modiwl (Cod) ffenestr.

Cod VBA 3 a ddefnyddir yn ffenestr y Modiwl

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. Arbedwch y codau a gwasgwch y Alt + Q allweddi i gau'r Golygydd Sylfaenol Gweledol ffenestr a dychwelyd i Outlook cais.

10. Cliciwch ar y Ebost Newydd botwm o dan y Hafan tab i greu e-bost.

11. Yn y ffenestr neges newydd, cliciwch Addasu Bar Offer Mynediad Cyflym > Mwy o Orchmynion.

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

12.1) Dewis Macros yn y Dewiswch orchmynion oddi wrth rhestr ostwng;
12.2) Dewis Project1.ChangeSubject yn y blwch rhestr gorchmynion;
12.3) Cliciwch y Ychwanegu botwm;
12.4) Cliciwch y OK botwm. Gweler y screenshot:

13. Yna gallwch weld bod botwm wedi ei ychwanegu at y rhuban y ffenestr neges.

14. Nawr mae angen i chi ailgychwyn eich Outlook.

15. Wrth gyfansoddi neges e-bost, os oes angen i chi fewnosod pwnc rhagosodedig, does ond angen i chi glicio ar y botwm sydd newydd ei ychwanegu ar y rhuban i arddangos y ffurflen defnyddiwr, dewiswch bwnc o'r gwymplen, ac yna cliciwch ar y OK botwm i'w lenwi yn y llinell bwnc.

Nodiadau:

1) Gallwch newid y pwnc presennol gydag unrhyw bwnc a ddewiswyd yn y gwymplen;
2) Mae'r dull hwn yn gweithio'n dda wrth ateb neu anfon e-bost ymlaen mewn ffenestr newydd;
3) Os ydych yn dueddol o ymateb i e-byst yn-lein o'r cwarel darllen yn hytrach nag agor ffenestr ar wahân, gallwch ddod â'r ffurflen defnyddiwr i fyny fel a ganlyn.
3.1) Cliciwch Datblygwr > Macros > Project1.ChangeSubject. Gweler y screenshot:

3.2) Pan fydd y ffurflen defnyddiwr yn ymddangos, dewiswch bwnc rhagosodedig o'r gwymplen a chliciwch ar y OK botwm, bydd y pwnc gwreiddiol yn cael ei newid ar unwaith.

4) Os dewiswch Dim newid yn y gwymplen, bydd y pwnc gwreiddiol yn cael ei gadw heb unrhyw newidiadau.

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