Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ավտոմատ կերպով լրացնել էլփոստի թեման 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) Եթե դուք միաժամանակ տեղադրեք մի քանի հավելվածներ, ապա միայն առաջին հավելվածի անունը կարող է օգտագործվել որպես էլփոստի թեմա:

Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ Pro: Խմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

 

 

Comments (11)
No ratings yet. Be the first to rate!
karloslb
karloslb
This comment was minimized by the moderator on the site
Everything works now. Thanks very much.
Reply
Report
0
0
crystal
crystal     karloslb
This comment was minimized by the moderator on the site
I'm glad I could help you.
Reply
Report
0
0
karloslb
karloslb
This comment was minimized by the moderator on the site
Hello,
I pasted your code. Outlook 365 restarted. I've tried several times, but it doesn't work. The subject line remains empty. What could be the problem?
Reply
Report
0
0
crystal
crystal     karloslb
This comment was minimized by the moderator on the site
Hi Karol,

Please check if the corresponding Macro settings are enabled in your Outlook.
Go to File > Options. In the Outlook Options window, select Trust Center in the left pane. In the Trust Center window, select Macro Settings in the left pane, and then select the Enable all macros option in the Macro Settings section and check the Apply macro security settings to installed add-ins box in the Add-ins section.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/subject-auto.png
Reply
Report
0
0
Александр
Александр
This comment was minimized by the moderator on the site
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Reply
0
0
crystal
crystal     Александр
This comment was minimized by the moderator on the site
Hi Александр,

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
Reply
Report
0
0
Александр
Александр     crystal
This comment was minimized by the moderator on the site
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Reply
0
0
Александр
Александр
This comment was minimized by the moderator on the site
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Reply
0
0
Александр
Александр
This comment was minimized by the moderator on the site
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с разделение И? Может в данном коде дописать или вообще другой существует? Заранее спасибо
Reply
0
0
crystal
crystal     Александр
This comment was minimized by the moderator on the site
Hi Александр,

Do you mean adding multiple attachments while adding those attachment names at the same time to the subject and then linking them with AND?
Reply
Report
0
0
Александр
Александр     crystal
This comment was minimized by the moderator on the site
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations