Skip i'r prif gynnwys

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.

Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau ProArbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

I have made the procedure but when i clic on the macro button, they don't have any action ?
Could you help me ?
This comment was minimized by the moderator on the site
Hi,

Sorry for the inconvenience. Did you follow the instructions provided in the post exactly? Can you tell me which version of Excel you are using?
This comment was minimized by the moderator on the site
I would like to creat an E-mail draft with such a drop down list for the subject.
Is it possible to attache this function to an mail template or does it have to be installed in the software of each user?
This comment was minimized by the moderator on the site
Hi Hana,

The code can't be attached to an email template, users who need to use this dropdown list will need to follow the steps in the tutorial to add the code to their Outlook.
This comment was minimized by the moderator on the site
Hi,

This is great. Is it possible to do the same for Outlook Calendar invites...meetings and appointments?
This comment was minimized by the moderator on the site
Hi James Marr,

This method does not support Outlook Calendar at the moment. Sorry for the inconvenience.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations