Pintasan atau makro untuk mengubah jenis font di Microsoft Outlook

Apakah ada pintasan keyboard untuk mengubah font di Outlook pada Windows? Saya harus berganti-ganti antara Calibri dan Courier terus menerus karena alasan teknis dan mengklik dialog font setiap kali menjadi sangat membosankan. Saya tahu bahwa saya dapat menggunakan Ctrl + Space untuk mengubah apa pun menjadi font default (Calibri).

Jika tidak ada jalan pintas, bisakah seseorang tolong bantu saya membuat font makro untuk beralih? Saya bayangkan saya dapat menetapkan pintasan apa saja ke makro?

(Jawaban oleh techie007 tidak berfungsi untuk saya di Outlook 2010)

Makro ini (diadaptasi dari http://www.slipstick.com/developer/word-macro-apply-formatting-outlook-email/ ) tidak:

Sub SetCodeFont()
    Dim objItem As Object
    Dim objInsp As Outlook.Inspector

    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim objSel As Word.Selection
    On Error Resume Next

    Set objItem = Application.ActiveInspector.CurrentItem
    If Not objItem Is Nothing Then
        If objItem.Class = olMail Then
            Set objInsp = objItem.GetInspector
            If objInsp.EditorType = olEditorWord Then
                Set objDoc = objInsp.WordEditor
                Set objWord = objDoc.Application
                Set objSel = objWord.Selection
                objSel.Font.Name = "Consolas"
            End If
        End If
    End If

    Set objItem = Nothing
    Set objWord = Nothing
    Set objSel = Nothing
    Set objInsp = Nothing
End Sub

Selanjutnya, di VBA Editor pergi ke Tools > Referencesdan pilih Microsoft Word 14.0 Object Library.

Sekarang, untuk membuat pintasan keyboard untuk makro, tambahkan ke Bilah Alat Akses Cepat Anda sebagai berikut:

1. Buka pesan email baru
2. Klik panah drop-down kecil di Toolbar Akses Cepat (biasanya terletak di bagian atas jendela) dan pilih "Perintah Lainnya ..."

3. Dialog Opsi Outlook akan terbuka, lalu pilih "Makro" dari tarik-turun "Pilih perintah dari:"

4. Pilih makro SetCodeFont dari daftar dan tekan "Tambah >>"
5. Tombol makro sekarang akan muncul di Bilah Alat Akses Cepat

Untuk menjalankan makro sorot beberapa teks dalam email Anda, dan tekan di Alt + <Num>mana <Num>posisi makro di Bilah Alat Akses Cepat Anda. Misalnya, jika makro adalah tombol pertama pada bilah alat, gunakan Alt + 1untuk menjalankannya.

Untuk diketahui, ini adalah urutan kunci untuk fokus pemilih Font: Alt, H, F,F