ไปยังเนื้อหาหลัก

จะย้ายข้อความอีเมลไปยังโฟลเดอร์ที่ระบุหลังจากอ่านใน Outlook ได้อย่างไร

การย้ายข้อความอีเมลไปยังโฟลเดอร์ที่ระบุหลังจากอ่านเป็นวิธีที่ดีที่สุดในการทำให้โฟลเดอร์กล่องขาเข้าสะอาดใน Outlook สำหรับผู้ใช้ Outlook จำนวนมากพวกเขามักจะสร้างกฎสำหรับการย้ายอีเมลที่อ่านแล้วเหล่านี้ จริงๆแล้ว Outlook ไม่สนับสนุนกระบวนการตัวช่วยสร้างกฎนี้ ในบทความนี้เราจะแสดงวิธีย้ายข้อความอีเมลไปยังโฟลเดอร์ที่ระบุหลังจากอ่านด้วยรหัส VBA ใน Outlook

ย้ายข้อความอีเมลไปยังโฟลเดอร์ที่ระบุหลังจากอ่านใน Outlook

Office Tab - เปิดใช้งานการแก้ไขแบบแท็บและการเรียกดูใน Microsoft Office ทำให้งานเป็นเรื่องง่าย
Kutools for Outlook - เพิ่ม Outlook ด้วยฟีเจอร์ขั้นสูงกว่า 100+ รายการเพื่อประสิทธิภาพที่เหนือกว่า
เพิ่มประสิทธิภาพ Outlook 2021 - 2010 หรือ Outlook 365 ของคุณด้วยฟีเจอร์ขั้นสูงเหล่านี้ เพลิดเพลินกับการทดลองใช้ฟรี 60 วันและยกระดับประสบการณ์อีเมลของคุณ!

ลูกศรสีฟ้าฟองขวาย้ายข้อความอีเมลไปยังโฟลเดอร์ที่ระบุหลังจากอ่านใน Outlook

คุณสามารถย้ายข้อความอีเมลไปยังโฟลเดอร์ที่ระบุหลังจากอ่านโดยใช้รหัส VBA ใน Outlook

1. ประการแรกคุณต้องสร้างชื่อโฟลเดอร์ใหม่“บทวิจารณ์” ภายใต้โฟลเดอร์กล่องขาเข้า

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

3. จากนั้นดับเบิลคลิกเพื่อขยาย Project1 > วัตถุ Microsoft Outlook > นี้OutlookSession เพื่อเปิด VbaProject.O ™ บรรณาธิการ

4. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในโปรแกรมแก้ไข VbaProject.O ™ดังที่แสดงในภาพหน้าจอด้านบน

รหัส VBA: ย้ายข้อความหลังจากอ่านแล้ว

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5 จากนั้นคลิกปุ่ม ลด เพื่อบันทึกรหัส VBA จากนั้นปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

6. คลิกขวาที่ไฟล์ แถบเครื่องมือด่วนและเลือก ปรับแต่งแถบเครื่องมือด่วน จากเมนูคลิกขวา ดูภาพหน้าจอ:

7 ใน ตัวเลือกของ outlook คุณต้อง:

1). เลือก แมโคร ใน เลือกคำสั่งจาก รายการแบบหล่นลง

2). เลือก โครงการ 1. ThisOutlookSession ในช่องด้านล่าง เลือกคำสั่งจาก รายการแบบหล่นลง

3). คลิก เพิ่ม ปุ่ม;

4). คลิก OK ปุ่ม

8. จากนั้นคุณจะเห็นไฟล์ แมโคร ปุ่มแสดงในไฟล์ แถบเครื่องมือด่วน. ตรวจสอบให้แน่ใจว่าคุณอยู่ในโฟลเดอร์กล่องขาเข้าที่คุณต้องการย้ายข้อความที่อ่านแล้วทั้งหมดจากนั้นคลิกที่ไฟล์ แมโคร เพื่อเรียกใช้รหัส VBA ภายในกล่องขาเข้า

หมายเหตุ / รายละเอียดเพิ่มเติม:

1. รหัส VBA นี้สามารถใช้ได้ใน Outlook 2007, 2010 และ 2013; แต่ใน Outlook 2007 คุณสามารถคลิกไฟล์ วิ่ง ปุ่มเพื่อเรียกใช้รหัส

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

3. หากคุณต้องการเปลี่ยนไฟล์ข้อมูลเริ่มต้นเป็นบัญชีอีเมลอื่นโปรดเลือกและไฮไลต์บัญชีที่คุณต้องการตั้งเป็นค่าเริ่มต้นจากนั้นคลิกที่ ตั้งเป็นค่าเริ่มต้น ใน การตั้งค่าบัญชี กล่องโต้ตอบ

4. เมื่อเรียกใช้รหัส VBA ในครั้งแรกและพบว่าข้อความที่อ่านแล้วไม่ได้ถูกย้ายทั้งหมดในครั้งเดียวโปรดคลิกปุ่มมาโครต่อไปจนกว่าข้อความที่อ่านทั้งหมดในกล่องขาเข้าจะถูกย้ายออก


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

 

Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
This comment was minimized by the moderator on the site
has anyone had this not work the second time you tried to apply it?
This comment was minimized by the moderator on the site
Buongiorno


Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
This comment was minimized by the moderator on the site
What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
This comment was minimized by the moderator on the site
Where's all the Dim's?????????????????????/ o.0
This comment was minimized by the moderator on the site
I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
This comment was minimized by the moderator on the site
You have to activate the references in VBA
This comment was minimized by the moderator on the site
Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations