วิธีแบทช์ส่งอีเมลที่เปิดและเขียนทั้งหมดใน Outlook ของคุณ

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

ตัวอย่างเช่น คุณกรอกอีเมลใหม่บางฉบับแต่ไม่ได้ส่ง เพียงแค่เปิดไว้ และหลังจากนั้น คุณต้องการส่งออกไป โดยทั่วไป คุณต้องคลิกปุ่ม “ส่ง” ในอีเมลทุกฉบับทีละฉบับ ภายใต้สถานการณ์นี้ คุณต้องหาวิธีที่สามารถสนับสนุนคุณในการส่งอีเมลที่เปิดอยู่และประกอบด้วยอีเมลจำนวนมาก

ต่อไปนี้เราจะเปิดเผยวิธีที่มีประสิทธิภาพแก่คุณ มันใช้ VBA หากคุณไม่ได้ใช้ VBA คุณสามารถดูบทความ – “วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ" ในขณะเดียวกัน.

ชุดส่งอีเมลที่เปิดและเขียนทั้งหมด

1. ในการเริ่มต้น คุณสามารถเขียนอีเมลตามปกติและเปิดค้างไว้
2. จากนั้นกด“ Alt + F11” เพื่อเข้าถึงตัวแก้ไข VBA
3. ถัดไป ในหน้าต่างใหม่ ให้คัดลอกโค้ด VBA ต่อไปนี้ลงในโมดูล

Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

4. หลังจากนั้น เรียกใช้มาโครนี้โดยการกดปุ่มคีย์ “F5” โดยตรง
5. สุดท้าย เมื่อมาโครเสร็จสิ้น คุณจะได้รับแจ้งจำนวนอีเมลที่จะส่ง
6. ตอนนี้เปิดกล่องขาออกซึ่งคุณจะเห็นว่ามีการส่งอีเมลที่เปิดก่อนหน้านี้ทั้งหมด

กู้คืน Outlook จากความเสียหายที่ไม่คาดคิด

คุณเคยพบความเสียหายของ Outlook มาก่อนหรือไม่? ผู้ใช้หลายคนประสบปัญหานี้และบ่นเกี่ยวกับเรื่องนี้ โดยทั่วไป หากคุณแก้ปัญหาได้ทันท่วงทีและมีประสิทธิภาพ คุณจะสามารถดึงข้อมูล Outlook ได้ทันที PST ที่เสียหาย ไฟล์. ตัวอย่างเช่น หากคุณมีข้อมูล Outlook ที่อัปเดตแล้ว คุณสามารถเปลี่ยนกลับเป็นข้อมูลสำรองได้อย่างง่ายดาย แน่นอน คุณสามารถใช้เครื่องมือซ่อมแซมที่ยอดเยี่ยมและเชื่อถือได้เช่น DataNumen Outlook Repairซึ่งสามารถสแกนไฟล์ Outlook ที่เสียหายและกู้คืนข้อมูลได้สูงสุด

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ การกู้คืน sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.