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

Ինչպե՞ս ավտոմատ կերպով լրացնել էլփոստի թեման Outlook-ում հավելվածի անունով:

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


Ավտոմատ կերպով լրացրեք էլփոստի թեման կցորդի անունով VBA կոդով

Խնդրում ենք գործարկել հետևյալ VBA կոդը՝ Outlook-ում տեղադրված հավելվածի անունով էլփոստի թեման ավտոմատ կերպով լրացնելու համար:

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

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Նախագիծ 1 (VbProject.OTM) > Microsoft Outlook օբյեկտներ > ԱյսOutlookSession- ը բացելու համար ThisOutlookSession (ծածկագիր) խմբագիր:

3. Այնուհետև պատճենեք հետևյալ VBA կոդը մեջ ThisOutlookSession (ծածկագիր) խմբագիր:

VBA կոդ. Էլփոստի թեման ավտոմատ լրացրեք հավելվածի անունով

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

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

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

4. Այժմ դուք պետք է պահպանեք կոդը և վերագործարկեք Outlook-ը:

5. Այսուհետ, երբ դուք կցորդ եք տեղադրում նամակում, որը դեռ չունի լրացված թեմա, ա. Outlook- ի համար նախատեսված գործիքներ Երկխոսության պատուհանը կհայտնվի՝ հարցնելով, թե արդյոք ցանկանում եք օգտագործել հավելվածի անունը որպես թեմա, սեղմեք կոճակը այո կոճակը:

Այնուհետև թեմայի տողն ավտոմատ կերպով լրացվելու է տեղադրված հավելվածի անունով:

Notes:

1) Եթե դուք արդեն լրացրել եք թեման, ապա հավելված տեղադրելը երկխոսության տուփ չի հայտնվի:
2) Եթե դուք հեռացնում եք առկա թեման ընթացիկ էլ.փոստից, բայց կուրսորը դեռ ցուցադրվում է թեմայի տողում, ապա հավելված տեղադրելը նույնպես չի հայտնվի երկխոսության վանդակում: Թեման հեռացնելուց հետո դուք պետք է սեղմեք թեմայի տողից հեռու՝ հաղորդագրության տուփը թարմացնելու համար, որպեսզի կոդը աշխատի:
3) Եթե դուք միաժամանակ տեղադրեք մի քանի հավելվածներ, ապա միայն առաջին հավելվածի անունը կարող է օգտագործվել որպես էլփոստի թեմա:

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

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (6)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Добрый день. Подскажите пожалуйста можно ли сделать что бы թեմաների ձևափոխություն из 2 и более файлов с разделение И? Կարո՞ղ եք արդյոք այլ տվյալներ գրել կամ գրել: Заранее спасибо
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ալեքսանդր,

Նկատի ունեք մի քանի կցորդներ ավելացնելու միևնույն ժամանակ այդ հավելվածների անունները թեմային ավելացնելով և այնուհետև դրանք կապելով AND-ի հետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ալեքսանդր,

The following VBA code can help to solve your problem. Please give it a try.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
  GFileName = ""
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then
    GFileName = ""
    Exit Sub
  End If
End Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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