Outlook VBA көмегімен электрондық пошта хабарларына жауап беру және бағыттау үшін әр түрлі қаріптік түстерді автоматты түрде қалай пайдалануға болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Әдепкі бойынша, Outlook бағдарламасына электрондық поштаға жауап беру және бағыттау үшін әр түрлі қаріп түстерін пайдалануға рұқсат ете алмайсыз. Сондықтан, егер сізде осындай талап болса, сіз осы бost ақылды тәсілді үйрену.

Outlook сізге жауап беру үшін де, электрондық поштаны жіберу үшін де қолданылатын қаріпті көрсетуге рұқсат береді. Сіз «Файл»> «Опциялар» бөліміне кіре аласыз. Содан кейін «Outlook параметрлері» бөлімінде «Пошта» қойындысына өтіп, «Кеңсе тауарлары мен қаріптер ...» батырмасын басыңыз. Келесі терезеде сіз «Хабарларды жауап беру немесе бағыттау» бөлімінде «Қаріп» батырмасын көре аласыз. Оны нұқыңыз, содан кейін электронды хаттарға жауап беру және бағыттау үшін арнайы қаріп түсін орнатуға болады.

Жауап беру немесе бағыттау хабарламаларында қаріпті өзгертіңіз

Алайда, көптеген пайдаланушылар электрондық поштаға жауап беру немесе бағыттау үшін әр түрлі қаріп түстерін қолдануға үміттенеді. Outlook-те бұл үшін тікелей мүмкіндіктер болмаса да, оны VBA кодымен жүзеге асыруға болады. Енді VBA кодының осындай бөлігін алу үшін оқыңыз.

Электрондық поштаға жауап беру және бағыттау үшін әр түрлі қаріптік түстерді автоматты түрде қолдану

  1. Үшінtart, Outlook қосымшасын іске қосыңыз.
  2. Содан кейін VBA редакторын «сілтеме жасай отырып іске қосыңыз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
  3. Келесі, сәйкес «Нысанды қалай қосуға болады Library VBA сілтемесі«, Сілтемені« MS Word Object Librarу ».
  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

VBA коды - Электрондық поштаға жауап беру және бағыттау үшін әр түрлі қаріптік түстерді автоматты түрде қолдану

  1. Осыдан кейін, тtart Осы макросты іске қосу үшін Outlook.
  2. Соңында, сіз көріңіз.
  • Электрондық поштаны таңдаңыз немесе ашыңыз.
  • Содан кейін «Жауап беру» батырмасын басыңыз. Электрондық поштаға жауап беру кезінде сіз кейбір сөздерді денеге енгізе аласыз. Қаріптің түсі қызғылт түсті болуы керек.«Жауап берудегі» «қызғылт» қаріп
  • Немесе «Барлығына жауап беру» батырмасын басыңыз. Жаңа «бәріне жауап беру» поштасына сөздерді негізгі мәтінге енгізу. Қаріптің түсі міндетті түрде жасыл болады.«Барлығына жауап беру» ішіндегі «жасыл» қаріп
  • Сол сияқты, «Алға» батырмасын басыңыз. Жіберуші поштада жаңа сөздер көк түспен көрсетіледі.«Көк» қаріп «Алға»

Сенімді бағдарламалық жасақтамаға жүгініңіз

Жағдайда Сыбайлас жемқорлық көрінісі, мost пайдаланушылар Outlook қалпына келтіру бағдарламалық жасақтамасына жүгінеді. Нарықта мұндай бағдарламалардың саны өте көп. Ал олардың кейбіреулері тіпті ақысыз. Соған қарамастан, сіз қазіргі істі нашарлатып жіберуі үшін белгісіз көздерден сақ болуыңыз керек. Сияқты сенімді және тәжірибелі құралдың көмегін алуыңыз керек DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.