Note: The other languages of the website are Google-translated. Back to English

วิธีพิมพ์เอกสารแนบโดยอัตโนมัติเมื่ออีเมลมาถึง Outlook?

บทช่วยสอนนี้สาธิตวิธีการรวมสคริปต์ VBA และกฎของ Outlook เพื่อช่วยให้คุณพิมพ์เอกสารแนบของอีเมลบางฉบับโดยอัตโนมัติเมื่อมาถึง Outlook


พิมพ์เอกสารแนบโดยอัตโนมัติเมื่อมีอีเมลบางฉบับมาถึง

สมมติว่า คุณต้องการพิมพ์เอกสารแนบของอีเมลขาเข้าจากผู้ส่งบางรายโดยอัตโนมัติ คุณสามารถทำได้ดังนี้

ขั้นที่ 1: สร้างสคริปต์ใน Outlook

ประการแรก คุณต้องสร้างสคริปต์ VBA ใน Outlook

1. เปิดโปรแกรม Outlook ของคุณกดปุ่ม อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง ดับเบิลคลิกที่ Project1 > วัตถุ Microsoft Outlook > นี้OutlookSession เพื่อเปิด ThisOutlookSession (รหัส) หน้าต่าง แล้วคัดลอกรหัสต่อไปนี้ลงในหน้าต่างรหัสนี้

รหัส VBA 1: พิมพ์ไฟล์แนบโดยอัตโนมัติ (ไฟล์แนบทุกประเภท) เมื่อมีอีเมลมาถึง


Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

บันทึก: รหัสนี้รองรับการพิมพ์ไฟล์แนบทุกประเภทที่ได้รับในอีเมล หากคุณต้องการพิมพ์เฉพาะไฟล์แนบประเภทที่ระบุ เช่น ไฟล์ pdf โปรดใช้โค้ด VBA ต่อไปนี้

รหัส VBA 2: พิมพ์ไฟล์แนบที่ระบุโดยอัตโนมัติเมื่ออีเมลมาถึง

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
    Select Case xFileType
    Case "pdf" ‘change “pdf” to the file extension you want to print
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
     End Select
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

บันทึก: ในสาย กรณี “pdf”โปรดเปลี่ยน "ไฟล์ PDF" ไปยังนามสกุลไฟล์ที่คุณต้องการพิมพ์

3. ไปข้างหน้าและคลิก เครื่องมือ > อ้างอิง ในการโผล่ขึ้นมา ข้อมูลอ้างอิง – Project1 ให้ทำเครื่องหมายที่ Microsoft Scripting Runtime จากนั้นคลิกที่ไฟล์ OK ปุ่ม

4. บันทึกรหัสแล้วกดปุ่ม อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

บันทึก: โปรดตรวจสอบให้แน่ใจว่า เปิดใช้งานมาโครทั้งหมด เปิดใช้งานตัวเลือกใน Outlook ของคุณ คุณสามารถตรวจสอบตัวเลือกนี้โดยทำตามขั้นตอนที่แสดงด้านล่าง

ขั้นตอนที่ 2: สร้างกฎเพื่อใช้สคริปต์

หลังจากเพิ่มสคริปต์ VBA ใน Outlook แล้ว คุณต้องสร้างกฎเพื่อใช้สคริปต์ตามเงื่อนไขบางประการ

1. ไปที่แท็บหน้าแรก คลิก กฎระเบียบ > จัดการกฎและการแจ้งเตือน.

2 ใน กฎและการแจ้งเตือน ใหคลิกปุ the ม กฎใหม่ ปุ่มเพื่อสร้างกฎ

ทิปส์: หากคุณได้เพิ่มบัญชีอีเมลหลายบัญชีใน Outlook ของคุณ โปรดระบุบัญชีใน ใช้การเปลี่ยนแปลงกับโฟลเดอร์นี้ รายการแบบหล่นลงที่คุณต้องการใช้กฎ มิฉะนั้น จะนำไปใช้กับกล่องจดหมายของบัญชีอีเมลที่เลือกในปัจจุบัน

3. ในครั้งแรก ตัวช่วยสร้างกฎ ใหเลือก ใช้กฎเกี่ยวกับข้อความที่ฉันได้รับ ใน ขั้นตอนที่ 1 จากนั้นคลิก ถัดไป

4. ในวินาทีที่ ตัวช่วยสร้างกฎ คุณต้อง:

4.1) ระบุอย่างน้อยหนึ่งเงื่อนไขใน ขั้นตอนที่ 1 กล่องตามความต้องการของคุณ
ในกรณีนี้ ฉันต้องการพิมพ์เฉพาะไฟล์แนบในอีเมลขาเข้าจากผู้ส่งที่ระบุ ที่นี่ฉันตรวจสอบ จากบุคคลหรือกลุ่มสาธารณะ กล่อง.
4.2) คลิกค่าที่ขีดเส้นใต้ใน ขั้นตอนที่ 2 กล่องสำหรับแก้ไขเงื่อนไข
4.3) คลิก ถัดไป ดูภาพหน้าจอ:

5. ในข้อที่สาม ตัวช่วยสร้างกฎ คุณต้องกำหนดค่าดังต่อไปนี้

5.1) ใน ขั้นตอนที่ 1: เลือกส่วนการดำเนินการตรวจสอบไฟล์ เรียกใช้สคริปต์ กล่อง;
5.2) ใน ขั้นตอนที่ 2 คลิกที่ข้อความที่ขีดเส้นใต้ "สคริปต์";
5.3) ในการเปิด เลือกสคริปต์ กล่องโต้ตอบ คลิกชื่อของโค้ด VBA ที่คุณเพิ่มด้านบน จากนั้นคลิก ตกลง;
5.4) คลิกปุ่ม ต่อไป ปุ่ม. ดูภาพหน้าจอ:

ทิปส์: หาก "เรียกใช้สคริปต์” ตัวเลือกหายไปในของคุณ ตัวช่วยสร้างกฎคุณสามารถแสดงได้โดยทำตามวิธีการที่กล่าวถึงในบทความนี้: กู้คืน Run A Script pption ที่ขาดหายไปในกฎของ Outlook.

6. แล้วอีกอย่าง ตัวช่วยสร้างกฎ ปรากฏขึ้นเพื่อขอข้อยกเว้น คุณสามารถเลือกข้อยกเว้นได้หากจำเป็น หรือมิฉะนั้น ให้คลิกปุ่ม ต่อไป ปุ่มโดยไม่ต้องเลือกใดๆ。

7. ในช่วงสุดท้าย ตัวช่วยสร้างกฎคุณต้องระบุชื่อสำหรับกฎ จากนั้นคลิก เสร็จสิ้น ปุ่ม

8. จากนั้นจะกลับไปที่ กฎและการแจ้งเตือน ไดอะล็อกบ็อกซ์ คุณสามารถดูกฎที่คุณสร้างอยู่ในรายการ คลิก OK เพื่อสิ้นสุดการตั้งค่าทั้งหมด

จากนี้ไปเมื่อได้รับอีเมลจากบุคคลที่ระบุ ไฟล์ที่แนบมาจะถูกพิมพ์โดยอัตโนมัติ


บทความที่เกี่ยวข้อง

พิมพ์เฉพาะไฟล์แนบจากอีเมลหนึ่งฉบับหรืออีเมลที่เลือกใน Outlook
ใน Outlook คุณสามารถพิมพ์อีเมลได้ แต่คุณได้พิมพ์เอกสารแนบจากอีเมลฉบับเดียวหรืออีเมลที่เลือกใน Outlook หรือไม่ บทความนี้จะแนะนำเคล็ดลับในการแก้ปัญหานี้

พิมพ์เฉพาะส่วนหัวของอีเมลใน Outlook
เมื่อพิมพ์อีเมลใน Outlook จะพิมพ์ทั้งส่วนหัวและเนื้อหาของข้อความในอีเมล อย่างไรก็ตาม ในบางกรณีพิเศษ คุณอาจต้องพิมพ์ส่วนหัวของข้อความที่มีหัวเรื่อง ผู้ส่ง ผู้รับ ฯลฯ บทความนี้จะแนะนำวิธีแก้ปัญหาสองวิธี

พิมพ์ปฏิทินในช่วงวันที่ที่ระบุ/กำหนดเองใน Outlook
โดยปกติ เมื่อพิมพ์ปฏิทินในมุมมองเดือนใน Outlook ปฏิทินจะเลือกเดือนที่มีวันที่ที่เลือกในปัจจุบันโดยอัตโนมัติ แต่คุณอาจต้องพิมพ์ปฏิทินภายในช่วงวันที่ที่กำหนดเอง เช่น 3 เดือน ครึ่งปี เป็นต้น บทความนี้จะแนะนำวิธีแก้ปัญหาสำหรับคุณ

พิมพ์ผู้ติดต่อพร้อมรูปภาพใน Outlook
โดยปกติรูปภาพของผู้ติดต่อจะไม่ถูกพิมพ์ออกมาเมื่อพิมพ์ผู้ติดต่อใน Outlook แต่บางครั้งการพิมพ์รายชื่อติดต่อด้วยรูปภาพจะน่าประทับใจกว่า บทความนี้จะแนะนำวิธีแก้ปัญหาบางอย่างเพื่อทำให้เสร็จ

พิมพ์การเลือกอีเมลใน Outlook
หากคุณได้รับข้อความอีเมลและพบว่ามีเนื้อหาอีเมลบางส่วนที่ต้องพิมพ์ออกมาแทนที่จะพิมพ์ข้อความทั้งหมดคุณจะทำอย่างไร? จริงๆแล้ว Outlook สามารถช่วยให้คุณดำเนินการนี้ได้ด้วยความช่วยเหลือของอินเทอร์เน็ตเบราว์เซอร์เช่น Firefox และ Internet Explorer ที่นี่ฉันจะยกตัวอย่างอินเทอร์เน็ตเบราว์เซอร์ โปรดดูบทแนะนำต่อไปนี้

บทความเพิ่มเติมเกี่ยวกับ "การพิมพ์ใน Outlook"...


Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (1)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

j ai suivi a la lettre votre methode pour imprimez automatiquement lesz pieces jointess

activez les macros mais il n y a pas de macro

donc ca ne fonctionne pas ou il me manque un element

merci de me dire svp
ฌอง หลุยส์ ซูร์
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0  ตัวอักษร
สถานที่แนะนำ