(คำตอบของ techie007 ไม่ได้ผลสำหรับฉันใน Outlook 2010)
มาโครนี้ (ดัดแปลงมาจากhttp://www.slipstick.com/developer/word-macro-apply-formatting-outlook-email/ ) ไม่:
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
ถัดไปในตัวแก้ไข VBA ไป และเลือกTools > References
Microsoft Word 14.0 Object Library
ตอนนี้ในการสร้างแป้นพิมพ์ลัดสำหรับมาโครให้เพิ่มลงในแถบเครื่องมือด่วนของคุณดังนี้:
- เปิดข้อความเมลใหม่
- คลิกที่ลูกศรดร็อปดาวน์ขนาดเล็กบนแถบเครื่องมือด่วน (โดยทั่วไปจะอยู่ที่ด้านบนของหน้าต่าง) และเลือก "คำสั่งเพิ่มเติม ... "
- กล่องโต้ตอบตัวเลือกของ Outlook จะเปิดขึ้นจากนั้นเลือก "มาโคร" จากเมนูแบบเลื่อนลง "เลือกคำสั่งจาก:"
- เลือกแมโคร SetCodeFont จากรายการและกด "เพิ่ม >>"
- ปุ่มมาโครจะปรากฏบนแถบเครื่องมือด่วน
เมื่อต้องการเรียกใช้แมโครไฮไลต์ข้อความในอีเมลของคุณและกดAlt + <Num>
ที่<Num>
เป็นตำแหน่งของแมโครในแถบเครื่องมือด่วนของคุณ ตัวอย่างเช่นหากแมโครเป็นปุ่มแรกบนแถบเครื่องมือให้ใช้Alt + 1
เพื่อเรียกใช้