Ինչպե՞ս ավտոմատ կերպով լրացնել էլփոստի թեման 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)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

Alexander

մոտ 2 շաբաթ առաջ

#42567

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Добрый день. Подскажите пожалуйста можно ли сделать что бы թեմաների ձևափոխություն из 2 и более файлов с разделение И? Կարո՞ղ եք արդյոք այլ տվյալներ գրել կամ գրել: Заранее спасибо

պատասխանել

բյուրեղապակի Alexander

մոտ 1 շաբաթ առաջ

#42696

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Ալեքսանդր,

Նկատի ունեք մի քանի կցորդներ ավելացնելու միևնույն ժամանակ այդ հավելվածների անունները թեմային ավելացնելով և այնուհետև դրանք կապելով AND-ի հետ:

պատասխանել

հաշվետվություն

Alexander բյուրեղապակի

մոտ 1 շաբաթ առաջ

#42763

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.

պատասխանել

Alexander

մոտ 1 շաբաթ առաջ

#42786

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И

պատասխանել

Alexander

մոտ 4 օր առաջ

#42847

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Добрый день. ДА при добавлении 2 файлов в тему писалось через И.

պատասխանել

բյուրեղապակի Alexander

20 ժամ առաջ

#42933

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Ալեքսանդր,

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

պատասխանել

հաշվետվություն

Առայժմ ոչ մի մեկնաբանություն չկա

Թողեք ձեր մեկնաբանությունները

Հրապարակում որպես հյուր

Մուտք

Անուն (պարտադիր է)

Email (պահանջվում է)

Գնահատեք այս գրառումը.

Նորից դնել

0 Անձնավորություններ

Ես համաձայն եմ, որ պայմանները եւ պայմանները