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

Ինչպե՞ս ստեղծել բացվող ցուցակ Outlook-ում առարկաների համար:

Դուք կարող եք ունենալ տարբեր նախադրված էլփոստի թեմաներ, որոնք պետք է բաժանվեն տարբեր հասցեատերերի Outlook-ում: Շատ արդյունավետ կլիներ թեմա ընտրելիս ունենալ թեմայի բացվող ցուցակ՝ առանց այն ձեռքով մուտքագրելու՝ նամակ կազմելիս: Ճիշտ այնպես, ինչպես ստորև ներկայացված gif-ը: Այս ձեռնարկը տրամադրում է երեք VBA կոդ, որոնք կօգնեն ձեզ ստեղծել բացվող ցուցակ տարբեր նախադրված թեմաներով: Նամակ գրելիս բացվող ցանկից կարող եք ընտրել ձեզ անհրաժեշտ ցանկացած թեմա՝ թեմայի տողն ավտոմատ կերպով լրացնելու համար: Խնդրում ենք հետևել քայլ առ քայլ ուղեցույցին, որպեսզի այն կատարվի:


Ստեղծեք բացվող ցուցակ Outlook-ում VBA կոդով առարկաների համար

Իրականում, Outlook-ը թույլ չի տալիս թեմայի տողում ավելացնել բացվող ցուցակ: Այստեղ դուք պետք է ստեղծեք օգտվողի ձև և այն լրացնելու համար այն համատեղեք VBA կոդերի հետ:

1. Գործարկեք ձեր Outlook- ը, սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Օգտագործողի ձև.

3. Հետո UserForm1 տեղադրված է տակ Project1 -ի ձախ վահանակում Visual Basic խմբագիր. Դուք պետք է ավելացնեք համակցված տուփ և հրամանի կոճակ այս օգտվողի ձևին՝ քաշելով կոճակը ComboBox- ը և CommandButton համապատասխանաբար ից Այստեղ հղվող էջերը դեպի UserForm1.

4. Աջ սեղմեք հրամանի կոճակը և ընտրեք Հատկություններ աջ կտտոցի ընտրացանկում:

5. Մեջ Հատկություններ – CommandButton1 պատուհանը, փոխել Ձերբակալություն դաշտը OK. Այս գործողությունը կփոխի հրամանի կոճակի վրա ցուցադրվող տեքստը:

6. Կրկնակի սեղմեք UserForm-ի դատարկ տարածքի վրա՝ համապատասխանը բացելու համար Օգտագործողի ձև (կոդ) պատուհան, ապա փոխարինեք գոյություն ունեցող կոդը հետևյալ VBA կոդով.

VBA կոդ 1. UserForm բացվող ցուցակով, ներառյալ բազմաթիվ նախադրված էլփոստի թեմաներ

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

ՆշումՕրենսգրքում, որ Թեմա 1, 2, 3, 4 և 5 էլփոստի նախադրված թեմաներն են, որոնք ցանկանում եք օգտագործել ձեր էլ. նամակներում: «Ոչ մի փոփոխություն” նշանակում է ոչինչ չփոխել առկա էլփոստի թեմայի վերաբերյալ: Դուք կարող եք փոխել նախադրված էլփոստի թեմաները VBA կոդի մեջ՝ ըստ ձեր կարիքների:

7. Կրկնակի սեղմում Project1 > Microsoft Outlook օբյեկտներ > ԱյսOutlookSession- ը. Այնուհետև պատճենեք հետևյալ VBA կոդը ThisOutlookSession (Code) պատուհանում:

VBA կոդը 2, որն օգտագործվում է 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. Անցեք կտտացնելով Տեղադրել > Մոդուլներ է Visual Basic խմբագիր. Այնուհետև պատճենեք և տեղադրեք հետևյալ VBA կոդը մեջ Մոդուլ (կոդ) պատուհան.

VBA կոդը 3, որն օգտագործվում է Module պատուհանում

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. Պահպանեք ծածկագրերը և սեղմեք կոճակը ալտ + Q ստեղները փակելու համար Visual Basic խմբագիր պատուհան և վերադառնալ Outlook հավելված:

10. Սեղմեք Նոր էլ կոճակը տակ Գլխավոր ներդիր՝ էլփոստ ստեղծելու համար:

11. Նոր հաղորդագրության պատուհանում սեղմեք Անհատականացրեք Արագ մուտքի Գործիքադարակը > Ավելի շատ հրամաններ.

12. Մեջ Outlook տարբերակները երկխոսության տուփ, դուք պետք է կազմաձևեք հետևյալը.

12.1) Ընտրեք Մակրո է Ընտրեք հրամաններ բացվող ցուցակ;
12.2) Ընտրեք Project1.ChangeSubject հրամանների ցուցակում վանդակում;
12.3) Կտտացրեք այն Ավելացնել կոճակ;
12.4) Կտտացրեք այն OK կոճակ Տեսեք,

13. Ապա դուք կարող եք տեսնել, որ կոճակը ավելացվել է հաղորդագրության պատուհանի ժապավենին:

14. Այժմ դուք պետք է վերագործարկեք ձեր Outlook-ը:

15. Էլփոստի հաղորդագրություն կազմելիս, եթե ձեզ անհրաժեշտ է նախադրված թեմա տեղադրել, պարզապես անհրաժեշտ է սեղմել ժապավենի վրա նոր ավելացված կոճակը, որպեսզի ցուցադրվի օգտագործողի ձևը, ընտրեք թեմա բացվող ընտրացանկից և սեղմեք OK կոճակը՝ այն թեմայի տողում համալրելու համար:

Notes:

1) Դուք կարող եք փոխել առկա թեման բացվող ցանկում ընտրված ցանկացած առարկայով.
2) Այս մեթոդը լավ է աշխատում նոր պատուհանում էլփոստին պատասխանելիս կամ փոխանցելիս.
3) Եթե դուք հակված եք էլեկտրոնային նամակներին պատասխանելու ընթերցման վահանակից, այլ ոչ թե առանձին պատուհան բացելու, կարող եք օգտատիրոջ ձևը բերել հետևյալ կերպ.
3.1) Կտտացրեք Երեվակիչ > Մակրո > Project1.ChangeSubject, Տեսեք,

3.2) Երբ օգտագործողի ձևը հայտնվում է, ընտրեք նախադրված թեմա բացվող ցանկից և սեղմեք OK կոճակը, սկզբնական թեման անմիջապես կփոխվի:

4) Եթե ընտրում եք Ոչ մի փոփոխություն բացվող ընտրացանկում բնօրինակ թեման կպահպանվի առանց որևէ փոփոխության:

Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից