Outlook VBA ile E-postaları Yanıtlamak ve İletmek için Farklı Yazı Tipi Renklerini Otomatik Olarak Kullanma

Varsayılan olarak, Outlook'un e-postaları yanıtlamak ve iletmek için otomatik olarak farklı yazı tipi renkleri kullanmasına izin veremezsiniz. Bu nedenle, böyle bir gereksiniminiz varsa, bu p'yi okuyabilirsiniz.ost Akıllı bir yaklaşım öğrenmek için.

Outlook, yalnızca e-postaları hem yanıtlamak hem de iletmek için kullanılan bir yazı tipi belirlemenize izin verir. “Dosya” > “Seçenekler”e gidebilirsiniz. Ardından “Outlook Seçenekleri”nde “Mail” sekmesine dönün ve “Kırtasiye ve Yazı Tipleri…” butonuna tıklayın. Bir sonraki pencerede, "Mesajları yanıtlama veya iletme" bölümünde "Yazı Tipi" düğmesini görebilirsiniz. Tıklayın ve ardından e-postaları yanıtlamak ve iletmek için belirli bir yazı tipi rengi ayarlayabilirsiniz.

Ancak, birçok kullanıcı e-postaları yanıtlamak veya iletmek için farklı yazı tipi renkleri kullanmayı umar. Outlook bunun için herhangi bir doğrudan özellik sağlamasa da, yine de VBA kodu ile gerçekleştirilebilir. Şimdi, böyle bir VBA kodu almak için okumaya devam edin.

E-postaları Yanıtlamak ve İletmek için Otomatik Olarak Farklı Yazı Tipi Renkleri Kullanın

1. olaraktart, Outlook uygulamasını başlatın.
2. Ardından, VBA editörünü " referansıyla tetikleyin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
3. Daha sonra, “ uyarıncaNesne Kitaplığı Nasıl Eklenir?rary VBA'da Referans", "MS Word Object Lib" referansını ekleyinrarY".
4. Ardından aşağıdaki kodu “ThisOutlookSession” projesine kopyalayın.

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. Bundan sonra restar• Bu makroyu etkinleştirmek için Outlook.
6. Son olarak, bir deneyebilirsiniz.

• Bir e-posta seçin veya açın.
• Ardından, "Cevapla" düğmesini tıklayın. E-postayı yanıtlarken, bazı kelimeleri gövdeye yazabilirsiniz. Yazı rengi pembe olmalıdır.
• Veya "Tümünü Yanıtla" düğmesini tıklayın. Yeni "tümünü yanıtlama" postasında, kelimeleri gövdeye girin. Yazı tipi rengi kesinlikle yeşildir.
• Benzer şekilde, “İleri” düğmesine tıklayın. Yönlendirme postasında, yeni kelimeler mavi olarak gösterilecektir.

Güvenilir Yazılıma Başvurun

Durumunda Outlook bozulması, Most kullanıcılar Outlook kurtarma yazılımına başvurma eğilimindedir. Piyasada bu tür programlardan çok sayıda mevcuttur. Hatta bazıları ücretsiz. Bununla birlikte, mevcut durumu daha da kötüleştirebilecekleri için bilinmeyen kaynaklardan gelenlere dikkat etmelisiniz. Gibi güvenilir ve deneyimli bir araçtan yardım almalısınız. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk sql ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com