คุณไม่สามารถกำหนดค่า Outlook ให้ใช้เครื่องพิมพ์ที่ไม่ใช่ค่าเริ่มต้นเฉพาะในการพิมพ์อีเมล แต่ในบทความนี้เราจะแสดงวิธีการเพื่อให้บรรลุด้วย Outlook VBA
คอมพิวเตอร์ของคุณต้องตั้งค่าเครื่องพิมพ์เป็นค่าเริ่มต้นซึ่งจะใช้กับโปรแกรมทั้งหมดบนคอมพิวเตอร์เครื่องนี้ ในกรณีนี้หากคุณต้องการพิมพ์อีเมลผ่านเครื่องพิมพ์ที่ไม่ใช่ค่าเริ่มต้นใน Outlook คุณต้องเปลี่ยนเครื่องพิมพ์ทุกครั้งเมื่อพิมพ์ มันค่อนข้างลำบาก ดังนั้นในสิ่งต่อไปนี้เราจะแบ่งปันวิธีการใช้เครื่องพิมพ์เฉพาะสำหรับอีเมลโดยอัตโนมัติโดยไม่จำเป็นต้องเปลี่ยนเครื่องพิมพ์ทุกครั้ง
ใช้เครื่องพิมพ์เฉพาะเพื่อพิมพ์อีเมลโดยอัตโนมัติ
- ขั้นแรก ให้เปิดแอปพลิเคชัน Outlook ของคุณขึ้นมา
- จากนั้นในหน้าต่างหลักของ Outlook ให้กดปุ่ม "Alt + F11"
- ถัดไป ในหน้าต่าง “Microsoft Visual Basic for Applications” ที่แสดงอยู่ คุณต้องเปิดใช้งาน “Microsoft Word Object Library” ก่อน โดยคลิก “เครื่องมือ” > “การอ้างอิง” เพื่อดำเนินการดังกล่าว
- จากนั้นคุณต้องเข้าถึงโมดูลที่ว่างเปล่า
- จากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลนี้
Sub PrintEmail()
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objWordApp As Word.Application
Dim strTempFolder As String
Dim strMailDocument As String
Dim objMailDocument As Word.Document
Dim strPrinter As String
Select Case Application.ActiveWindow.Class
Case olInspector
Set objItem = ActiveInspector.CurrentItem
Case olExplorer
Set objItem = ActiveExplorer.Selection.Item(1)
End Select
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objWordApp = CreateObject("Word.Application")
strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
strMailDocument = strTempFolder & "\" & Format(Now, "yyyymmddssnn") & ".doc"
objMail.SaveAs strMailDocument, olDoc
Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
objWordApp.Visible = True
objMailDocument.Activate
strPrinter = objWordApp.ActivePrinter
'Change to the name of specific printer
objWordApp.ActivePrinter = "Specific Printer"
objWordApp.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent
objWordApp.ActivePrinter = strPrinter
objMailDocument.Close False
objWordApp.Quit
Kill strMailDocument
End If
End Sub
- หลังจากนั้นคุณสามารถปิดหน้าต่างปัจจุบันได้
- จากนั้นไปที่เมนู“ ไฟล์” แล้วคลิก“ ตัวเลือก”
- ในหน้าต่าง“ ตัวเลือก Outlook” ให้เลื่อนไปที่แท็บ“ แถบเครื่องมือด่วน” และเพิ่มมาโครใหม่ลงในแถบเครื่องมือด่วนตามปกติ
- ในที่สุดคุณสามารถลองใช้โครงการ VBA นี้ได้
- ขั้นแรกเลือกหรือเปิดอีเมลที่คุณต้องการพิมพ์
- จากนั้นคลิกที่ปุ่มมาโครในแถบเครื่องมือด่วน
- เครื่องพิมพ์จะพิมพ์อีเมลออกมาพร้อมกัน
- จากนี้ไปในการพิมพ์อีเมลโดยเครื่องพิมพ์เฉพาะคุณสามารถใช้มาโครนี้ได้
กู้คืน Outlook หลังจากการทุจริตจากอุบัติเหตุ
เพื่อป้องกันไม่ให้ข้อมูล Outlook ของคุณสูญหาย คุณต้องพยายามอย่างมาก ตัวอย่างเช่น คุณควรสำรองไฟล์ PST เป็นประจำ แน่นอนว่า แนะนำให้ใช้เครื่องมือซ่อมแซมภายนอก เช่น DataNumen Outlook Repair. มันสามารถ แก้ไข PST ข้อผิดพลาดและกู้คืนข้อมูล Outlook สูงสุดสำหรับคุณ
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ กู้คืน sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.