როგორ გამოვიყენოთ ავტომატური შრიფტის სხვადასხვა ფერები Outlook VBA ელ.ფოსტის პასუხებისა და გადამისამართებისთვის

ნაგულისხმევად, თქვენ არ შეგიძლიათ Outlook-ს ავტომატური უფლება გამოიყენოს შრიფტის სხვადასხვა ფერები ელფოსტის საპასუხოდ და გადამისამართებისთვის. ამიტომ, თუ თქვენ გაქვთ ასეთი მოთხოვნა, შეგიძლიათ წაიკითხოთ ეს გვost ისწავლოს ჭკვიანი მიდგომა.

Outlook მხოლოდ საშუალებას გაძლევთ მიუთითოთ შრიფტი, რომელიც გამოიყენება როგორც ელფოსტის პასუხებისთვის, ასევე გადაგზავნისთვის. შეგიძლიათ გადახვიდეთ "ფაილი" > "ოფციები". შემდეგ, "Outlook Options"-ში გადადით "ფოსტა" ჩანართზე და დააწკაპუნეთ ღილაკზე "Stationery and Fonts...". მომდევნო ფანჯარაში შეგიძლიათ იხილოთ "შრიფტის" ღილაკი "შეტყობინებების პასუხში ან გადაგზავნაში". დააწკაპუნეთ მასზე და შემდეგ შეგიძლიათ დააყენოთ შრიფტის კონკრეტული ფერი ელფოსტის პასუხებისა და გადაგზავნისთვის.

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

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

1. როგორცtart, გაუშვით Outlook აპლიკაცია.
2. შემდეგ, ჩართეთ VBA რედაქტორი "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
3. შემდეგი, შესაბამისად "როგორ დავამატო Object Library მითითება VBA-ში“, დაამატეთ მითითება „MS Word Object Library ”.
4. ამის შემდეგ, დააკოპირეთ შემდეგი კოდი "ThisOutlookSession" პროექტში.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If TypeOf objExplorer.Selection.Item(1) Is MailItem Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Dim objReply As Outlook.MailItem
    Dim objReplyDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objReply = objMail.Reply
    objReply.Display
    Set objReplyDoc = objReply.GetInspector.WordEditor
    objReplyDoc.Range(0, 0).Select
    Set objDocSelection = objReplyDoc.Application.Selection
    'Use "Pink" font in "Reply"
    objDocSelection.Font.ColorIndex = wdPink
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objReplyAllDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objReplyAll = objMail.ReplyAll
    objReplyAll.Display
    Set objReplyAllDoc = objReplyAll.GetInspector.WordEditor
    objReplyAllDoc.Range(0, 0).Select
    Set objDocSelection = objReplyAllDoc.Application.Selection
    'Use "Green" font in "Reply All"
    objDocSelection.Font.ColorIndex = wdGreen
End Sub

Private Sub objMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    Dim objForward As Outlook.MailItem
    Dim objForwardDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objForward = objMail.Forward
    objForward.Display
    Set objForwardDoc = objForward.GetInspector.WordEditor
    objForwardDoc.Range(0, 0).Select
    Set objDocSelection = objForwardDoc.Application.Selection
    'Use "Blue" font in Forward
    objDocSelection.Font.ColorIndex = wdBlue
End Sub

5. ამის შემდეგ, რეზtart Outlook ამ მაკროს გასააქტიურებლად.
6. საბოლოოდ, შეგიძლიათ სცადოთ.

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

მიმართეთ სანდო პროგრამულ უზრუნველყოფას

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

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

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