Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • ภาพ
  • วิธีย้ายรายการที่ถูกลบประเภทต่าง ๆ ไปยังโฟลเดอร์ต่าง ๆ โดยอัตโนมัติใน Outlook?

วิธีย้ายรายการที่ถูกลบประเภทต่าง ๆ ไปยังโฟลเดอร์ต่าง ๆ โดยอัตโนมัติใน Outlook?

ใน Outlook รายการที่ถูกลบทุกประเภท (เมล งาน ผู้ติดต่อ ฯลฯ) จะถูกย้ายไปยังโฟลเดอร์รายการที่ถูกลบ หากคุณต้องการย้ายรายการไปยังโฟลเดอร์ต่างๆ ตามประเภทรายการภายใต้โฟลเดอร์รายการที่ถูกลบดังที่แสดงภาพหน้าจอด้านล่าง คุณจะสร้างใน Outlook ได้อย่างไร


ย้ายรายการประเภทต่าง ๆ ที่ถูกลบไปยังโฟลเดอร์ต่าง ๆ โดยอัตโนมัติด้วยรหัส VBA

รหัส VBA ด้านล่างสามารถช่วยคุณย้ายรายการที่ถูกลบไปยังโฟลเดอร์ต่างๆ โดยอัตโนมัติ โปรดดำเนินการดังนี้:

1. เปิด Outlook จากนั้นกด . ค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นดับเบิลคลิก นี้OutlookSession จาก โครงการ - โครงการ 1 บานหน้าต่าง จากนั้น คัดลอกและวางโค้ดด้านล่างลงในหน้าต่างโค้ดเปล่า:

รหัส VBA: ย้ายรายการประเภทต่างๆ ที่ถูกลบไปไว้ในโฟลเดอร์ต่างๆ โดยอัตโนมัติ

Public WithEvents GDeletedFolder As Outlook.Folder
Public WithEvents GDeletedItems As Outlook.Items
Private Sub Application_Startup()
  Set GDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
  Set GDeletedItems = GDeletedFolder.Items
End Sub
Private Sub GDeletedItems_ItemAdd(ByVal Item As Object)
'Updateby ExtendOffice
Dim xTargetFolder As Outlook.Folder
On Error Resume Next
Select Case TypeName(Item)
  Case "MailItem", "PostItem", "ReportItem", "MeetingItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Mails")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Mails", olFolderInbox)
    End If
  Case "AppointmentItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Appointments")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Appointments", olFolderCalendar)
    End If
  Case "ContactItem", "DistListItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Contacts")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Contacts", olFolderContacts)
    End If
  Case "TaskItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Tasks")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Tasks", olFolderTasks)
    End If
  Case "JournalItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Journals")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Journals", olFolderJournal)
    End If
  Case "NoteItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Notess")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Notess", olFolderNotes)
    End If
End Select
If xTargetFolder Is Nothing Then Exit Sub
Item.Move xTargetFolder
Set xTargetFolder = Nothing
End Sub

3. จากนั้น บันทึกรหัสนี้ และเริ่ม Outlook ใหม่เพื่อเปิดใช้งานรหัสนี้

4. จากนี้ไป เมื่อคุณลบรายการหนึ่ง รายการจะถูกย้ายไปยังโฟลเดอร์ประเภทที่สอดคล้องกันภายใต้ รายการที่ถูกลบ โฟลเดอร์โดยอัตโนมัติ

5. ดูผลลัพธ์ คลิก ที่ด้านล่างของบานหน้าต่างโฟลเดอร์ จากนั้นคลิก โฟลเดอร์ หากต้องการขยายโฟลเดอร์ทั้งหมดในบานหน้าต่าง ดูภาพหน้าจอ:

 

 


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

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

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL