Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

จะส่งอีเมลตามกำหนดเวลาใน Outlook ได้อย่างไร?

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

ส่งอีเมลตามกำหนดเวลาใน Outlook พร้อมรหัส VBA


ส่งอีเมลตามกำหนดเวลาใน Outlook พร้อมรหัส VBA

บทช่วยสอนนี้แบ่งออกเป็นสี่ส่วนคุณจะส่งอีเมลตามกำหนดการได้สำเร็จหลังจากเสร็จสิ้นส่วนเหล่านี้ กรุณาดำเนินการดังนี้

ส่วนแรก: สร้างการนัดหมายใหม่

1. โปรดไปที่ไฟล์ ปฏิทิน ดูโดยคลิก ปฏิทิน ใน บานหน้าต่างนำทางแล้วสร้างการนัดหมายใหม่โดยคลิก การนัดหมายใหม่ ภายใต้ หน้าแรก แถบ

3 ใน การแต่งตั้ง โต้ตอบภายใต้ การแต่งตั้ง แท็บ คุณต้อง:

ตอบ: พิมพ์ไฟล์ หัวข้อ B: ป้อนที่อยู่อีเมลของผู้รับในไฟล์ แผนที่
C: กำหนดค่า เวลาเริ่มต้น และ เวลาสิ้นสุด D: เลือกการเตือนความจำภายใต้ เตือน รายการแบบหล่นลง
หากคุณเลือก 15 นาทีหมายความว่าระบบจะเตือนคุณก่อนเวลา 15 นาทีเมื่อมีการส่งอีเมล
E: จัดองค์ประกอบการนัดหมายของคุณ

หมายเหตุ: เรื่องการนัดหมาย จะกลายเป็นหัวข้ออีเมลที่เกิดขึ้นประจำ และ ร่างกายที่ได้รับการแต่งตั้ง จะกลายเป็นเนื้อหาอีเมลที่เกิดขึ้นประจำเมื่อผู้รับได้รับอีเมล

ส่วนที่สอง: สร้างหมวดหมู่ใหม่

ตอนนี้คุณต้องสร้างหมวดหมู่ใหม่ชื่อ“ส่งกำหนดการอีเมลที่เกิดขึ้นประจำ” ดังต่อไปนี้:

1 ใน การแต่งตั้ง โปรดคลิก จำแนกประเภท > หมวดหมู่ทั้งหมด ใน แท็ก กลุ่มภายใต้ การแต่งตั้ง แถบ

2 เมื่อ หมวดหมู่สี กล่องโต้ตอบปรากฏขึ้นโปรดคลิก ใหม่ ปุ่ม. ใน เพิ่มหมวดหมู่ใหม่ โต้ตอบพิมพ์“ส่งกำหนดการอีเมลที่เกิดขึ้นประจำ"ใน ชื่อ - นามสกุล สนาม; จากนั้นเลือกสีในไฟล์ สี รายการแบบเลื่อนลง จากนั้นคลิก OK.

3. จากนั้นคุณจะเห็นข้อความ“ส่งกำหนดการอีเมลที่เกิดขึ้นประจำ” อยู่ในรายการโปรดทำเครื่องหมายในช่องแล้วคลิก OK ปุ่ม

ส่วนที่สาม: ตั้งค่าการเกิดซ้ำ

ตอนนี้ถึงเวลากำหนดการกลับเป็นซ้ำสำหรับการนัดหมาย

1 คลิก การกลับมาอีก ใน Options กลุ่มภายใต้ การแต่งตั้ง แท็บ ดูภาพหน้าจอ:

2 ใน การนัดหมายซ้ำ โต้ตอบกำหนดค่าไฟล์ การกลับมาอีก รูปแบบ หากคุณต้องการเวลาสิ้นสุดโปรดกำหนดค่าภายใต้ ช่วงของการเกิดซ้ำ. จากนั้นคลิก OK.

3. เมื่อมันกลับไปที่ การแต่งตั้ง โปรดคลิก บันทึกและปิด ปุ่ม. ดูภาพหน้าจอ:

สุดท้าย: ใช้รหัส VBA สำหรับการส่งอีเมลตามกำหนดการ

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

2 ดับเบิลคลิกที่ Project1 > วัตถุ Microsoft Outlook > นี้OutlookSession ในบานหน้าต่างด้านซ้าย ดูภาพหน้าจอ:

3. คัดลอกและวางโค้ด VBA ต่อไปนี้ลงในตัวแก้ไข VBA จากนั้นคลิก ลด ปุ่ม

VBA: การส่งอีเมลตามกำหนดการ

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4 คลิก เครื่องมือ > อ้างอิง เพื่อเปิด อ้างอิง - โครงการ ไดอะล็อก ในกล่องโต้ตอบให้เลือกไฟล์ ไลบรารีวัตถุ Microsoft Word และคลิกที่ OK ปุ่ม

5 กด อื่น ๆ + Q ในเวลาเดียวกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

หมายเหตุ: รหัส VBA ได้รับการทดสอบเรียบร้อยแล้วใน Outlook 2010 และเวอร์ชันที่ใหม่กว่า


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

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.