როგორ ავტომატურად შეავსოთ ელ.ფოსტის თემის ხაზი დანართის სახელით Outlook-ში

ხშირად იყენებთ დანართის სახელს, როგორც ელფოსტის თემას Outlook-ში? თუ ასეა, იმედი უნდა გქონდეთ, რომ Outlook ავტომატურად დაასრულებს მას. ეს სტატია შემოგთავაზებთ ხელსაყრელ მეთოდს, რათა ის განხორციელდეს Outlook VBA-ით.

ბევრი მომხმარებელი მიჩვეულია ელფოსტის სათაურის ველში დანართის სახელის ხელით აკრეფას. ასეთ სცენარში, თუ Outlook-ს შეუძლია ამის ავტომატურად შესრულება, ეს ბევრად უფრო მოსახერხებელი იქნება. ასევე, ზოგიერთ მომხმარებელს ხშირად ავიწყდება სათაურის ხაზის შევსება. ამიტომ, „გაგზავნის“ ღილაკზე დაჭერისას, ისინი მიიღებენ გამაფრთხილებელ შეტყობინებას „სათაურის გარეშე“. ასეთ შემთხვევაში, თუ Outlook-ს შეუძლია ავტომატურად შეავსოს სათაური დანართის სახელით, ისინი შეძლებენ თავიდან აიცილონ შემაწუხებელი „სათაურის გარეშე“ გაფრთხილება. მოკლედ, ითვლება, რომ Outlook-ის ბევრ მომხმარებელს სურს ისეთი მეთოდი, რომელიც Outlook-ს საშუალებას მისცემს ავტომატურად შეავსოს წერილის სათაურის ველი დანართის სახელით. საბედნიეროდ, Outlook VBA-ს დახმარებით, ამის მიღწევა ძალიან მარტივად შეგვიძლია. აქ მოცემულია დეტალური VBA კოდები და ნაბიჯები.

ავტომატური შევსება ელ.ფოსტის თემის ხაზში დანართის სახელით

1. პირველ რიგში, შეგიძლიათ გაუშვათ Outlook და გადახვიდეთ „დეველოპერის“ ჩანართზე.
2. შემდეგ ამ ჩანართში უნდა დააჭიროთ ღილაკს „Visual Basic“, რომელიც გამოვა VBA რედაქტორი.
3. მომდევნო ფანჯარაში, თქვენ ჯერ უნდა იპოვნოთ პროექტი „ThisOutlookSession“ პროექტის სიაში მარჯვენა მხარეს.
4. შემდეგი ორჯერ დააწკაპუნეთ ამ პროექტის გასახსნელად. და შემდეგ დააკოპირეთ მასში შემდეგი კოდები.

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

5. ამის შემდეგ, თქვენ უნდა გააგრძელოთ ციფრული სერთიფიკატის მინიჭება მიმდინარე VBA პროექტზე, როგორც წესი.

• პირველ რიგში, გამოიყენეთ ჩაშენებული პროგრამა "ციფრული სერთიფიკატები VBA პროექტებისთვის" ციფრული სერთიფიკატის შესაქმნელად.
• შემდგომში შეგიძლიათ ხელი მოაწეროთ მიმდინარე მაკროს.

6. მოგვიანებით გამოდით VBA რედაქტორიდან და შეცვალეთ მაკრო პარამეტრები „შეტყობინებები ციფრულად ხელმოწერილი მაკროებისთვის, ყველა სხვა მაკრო გამორთულია“.
7. საბოლოოდ შეგიძლიათ სცადოთ.

• შექმენით ახალი ელ.ფოსტა.
• თუ არ შეავსეთ თემა და აპირებთ ფაილის მიმაგრებას, მიიღებთ შეტყობინებას, როგორიცაა შემდეგი სურათი:
• როდესაც აირჩევთ "დიახ", თემა ერთდროულად შეივსება დანართის სახელით.

გაუმკლავდეთ Outlook-ის ხშირ პრობლემებს

იმ პირობით, რომ თქვენ იყენებდით Outlook-ს ათწლეულების განმავლობაში, თქვენ უნდა შეგექმნათ Outlook-ის ბევრი პრობლემა. შემდეგ, ჩვეულებრივ, რა ქმედებებს იღებთ მათთან შეხვედრისას? მიზანშეწონილია მათი რაც შეიძლება სწრაფად გარკვევა და აღმოფხვრა. ეს იმიტომ ხდება, რომ დაგროვილმა პრობლემებმა შეიძლება ნებისმიერ დროს დააზიანოს თქვენი Outlook მონაცემები. აქედან გამომდინარე, მაშინაც კი, თუ Outlook-ს შეუძლია ნორმალურად იმუშაოს, უმჯობესია გამოიყენოთ ან შემოსულების შეკეთების ინსტრუმენტი ან გარე Outlook PST შეცდომის გამოსწორების პროგრამაისევე, როგორც DataNumen Outlook Repair, თქვენი PST ფაილების სკანირებისთვის შეცდომების აღმოსაჩენად და მოსაგვარებლად.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული შეკეთება SQL Server მონაცემთა ბაზა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად