Ինչպես ավտոմատ լրացնել էլփոստի թեմայի տողը Outlook-ում հավելվածի անունով

Outlook լուծումներ Սեպտեմբեր 29, 2025

Հաճա՞խ եք Outlook-ում հավելվածի անունը որպես էլփոստի թեմա օգտագործում: Եթե այո, դուք պետք է հուսաք, որ Outlook-ը կարող է ավտոմատ կերպով լրացնել այն: Այս հոդվածը կներկայացնի մի հարմար մեթոդ՝ այն իրականացնելու Outlook VBA-ի միջոցով:

Շատ օգտատերեր սովոր են նամակի թեմայի տողում կցորդի անունը ձեռքով մուտքագրել։ Նման դեպքում, եթե Outlook-ը կարողանա ավտոմատ կերպով լրացնել դա, դա շատ ավելի հարմար կլինի։ Բացի այդ, որոշ օգտատերեր հաճախ մոռանում են լրացնել թեմայի տողը։ Այսպիսով, «Ուղարկել» կոճակը սեղմելիս նրանք կստանան «առանց թեմայի» նախազգուշացնող հաղորդագրություն։ Նման դեպքում, եթե Outlook-ը կարողանա ավտոմատ կերպով լրացնել թեման կցորդի անվամբ, նրանք կկարողանան խուսափել նյարդայնացնող «առանց թեմայի» նախազգուշացումից։ Ամփոփելով՝ կարծում են, որ Outlook-ի շատ օգտատերեր ցանկանում են այնպիսի մեթոդ, որը թույլ կտա Outlook-ին ավտոմատ կերպով լրացնել նամակի թեմայի տողը կցորդի անվամբ։ Բարեբախտաբար, Outlook VBA-ի օգնությամբ մենք կարող ենք դա անել առավելագույն հեշտությամբ։ Ահա մանրամասն VBA կոդերը և քայլերը։

Ավտոմատ լրացնել էլփոստի թեմայի տողը Հավելվածի անունով

Նախ, կարող եք գործարկել Outlook-ը և անցնել «Մշակող» ներդիրին։
Այնուհետև այս ներդիրի տակ պետք է սեղմել «Visual Basic» կոճակը, որը կբերի VBA խմբագրիչը:
Հաջորդ պատուհանում դուք նախ պետք է գտնեք «ThisOutlookSession» նախագիծը աջ կողմում գտնվող նախագծերի ցանկում:
Հաջորդ կրկնակի սեղմեք այս նախագիծը բացելու համար: Եվ հետո դրա մեջ պատճենեք հետևյալ ծածկագրերը.

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

Դրանից հետո դուք պետք է շարունակեք սովորական թվային վկայական հատկացնել ընթացիկ VBA նախագծին:

Նախ, օգտագործեք ներկառուցված «Թվային վկայականներ VBA նախագծերի համար» ներկառուցված ծրագիրը՝ թվային վկայական ստեղծելու համար:
Այնուհետև կարող եք ստորագրել ընթացիկ մակրո:

Ավելի ուշ դուրս եկեք VBA խմբագրիչից և փոխեք մակրո կարգավորումները «Ծանուցումներ թվային ստորագրված մակրոների համար, բոլոր մյուս մակրոներն անջատված են»:
Վերջապես կարող եք փորձել:

Ստեղծեք նոր էլ.
Եթե դուք չեք լրացրել թեման և մտադիր եք ֆայլ կցել, կստանաք հաղորդագրություն, ինչպես հետևյալ պատկերը.
Երբ ընտրեք «Այո», թեման միանգամից կլցվի հավելվածի անունով:

Հաղթահարել Outlook- ի հաճախակի խնդիրները

Պայմանով, որ դուք օգտագործել եք Outlook-ը տասնամյակներ շարունակ, դուք պետք է հանդիպած լինեք Outlook-ի բազմաթիվ խնդիրների: Հետո, ի՞նչ գործողություններ եք սովորաբար անում նրանց հանդիպելիս: Առաջարկվում է հնարավորինս շուտ պարզել և վերացնել դրանք։ Դա պայմանավորված է նրանով, որ կուտակված խնդիրները ցանկացած պահի կարող են վնասել ձեր Outlook-ի տվյալները: Հետևաբար, նույնիսկ եթե Outlook-ը կարող է նորմալ աշխատել, ավելի լավ է կիրառեք կամ մուտքի արկղի վերանորոգման գործիքը կամ արտաքինը Outlook PST սխալի վերանորոգման կոմունալՆման DataNumen Outlook Repair, ձեր PST ֆայլերը սկանավորելու համար՝ սխալները հայտնաբերելու և լուծելու համար:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերանորոգումը վնասված է SQL Server բազա և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com