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

วิธีส่งอีเมลอย่างรวดเร็วตามวันที่ในเซลล์ Excel

คุณเคยพยายามส่งอีเมลตามวันที่ในเซลล์ Excel หรือไม่? ตัวอย่างเช่นนี่คือรายการวันที่ในคอลัมน์ A จากนั้นคุณต้องการส่งอีเมลพร้อมหัวเรื่องเนื้อหาข้อความไปยังผู้รับ (CC และ BCC ถึงผู้อื่นได้ด้วย) คุณจะจัดการได้อย่างไร

ส่งอีเมลตามวันที่ด้วย VBA


ส่งอีเมลตามวันที่ด้วย VBA

ในการส่งอีเมลตามวันที่ใน Excel คุณสามารถใช้ได้เฉพาะรหัสแมโครเท่านั้น

1. เปิดใช้งานแผ่นงานที่มีข้อมูลและวันที่ที่คุณใช้แล้วกด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดด้านล่างลงในสคริปต์เปล่า 

VBA: ส่งตามวันที่

Sub email()
'UpdatebyExtendoffice20170831
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
    Dim xMail_Object, xMail_Single As Object
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xRgEach In xRg
        If xRgEach.Value = Date Then
            xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
            xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
            xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
            If xEmail_Send_To = "" Then Exit Sub
            xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
            Set xMail_Object = CreateObject("Outlook.Application")
            Set xMail_Single = xMail_Object.CreateItem(0)
            With xMail_Single
                .Subject = xEmail_Subject
                .To = xEmail_Send_To
                .cc = xEmail_Cc
                .BCC = xEmail_Bcc
                .Body = xEmail_Body
                .Send
            End With
        End If
    Next
End Sub

3 คลิก วิ่ง หรือกด F5 กุญแจสำคัญในการดำเนินการรหัสกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกรายการวันที่ ดูภาพหน้าจอ:
doc ส่งภายในวันที่ 1

4. คลิกตกลงและดำเนินการต่อเพื่อระบุหัวเรื่องอีเมลที่อยู่อีเมลของผู้ส่งที่อยู่อีเมลของผู้รับ CC, BCC และเนื้อหาของข้อความ ดูภาพหน้าจอ:

doc ส่งภายในวันที่ 2 ลูกศรยิงไปทางขวา doc ส่งภายในวันที่ 3 ลูกศรยิงไปทางขวา doc ส่งภายในวันที่ 4
        doc ลูกศรลง
doc ส่งภายในวันที่ 7 ลูกศรซ้าย doc ส่งภายในวันที่ 6 ลูกศรซ้าย doc ส่งภายในวันที่ 5

5 คลิก OK > OK จนกว่าจะถึงวันสุดท้ายจากนั้นอีเมลจะถูกส่งไป
doc ส่งภายในวันที่ 8

หมายเหตุ ที่อยู่อีเมลของผู้ส่งต้องเป็นบัญชีเริ่มต้นใน Outlook ของคุณ


สร้างรายชื่อผู้รับจดหมายและส่งอีเมล

doc ส่งอีเมล

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • กว่า
    300
    คุณสมบัติอันทรงพลัง
    . รองรับ Office/Excel
    2007-2019 และ 365
    . รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติครบถ้วน
    30
    วันทดลองใช้ฟรี รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (14)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะให้ VBA ใน Excel สร้างอีเมลได้อย่างไรเมื่อเซลล์เปลี่ยนสี ฉันสามารถใช้สูตรเพื่อเปลี่ยนแบบอักษรของเซลล์ตามนาฬิกาในคอมพิวเตอร์ เมื่อวันที่อยู่ภายในช่วงก่อนหมดอายุ ขณะนี้ฉันมีสเปรดชีตที่มีชื่อพนักงาน 25 คนและวันหมดอายุใบขับขี่ ใบอนุญาตทำงาน วันที่วีซ่าเข้า/ออก และวันที่เริ่มต้นประจำปี บางวันมี 30 วัน บางวันมี 60 วัน เมื่อใดก็ตามที่วันที่เข้าสู่ช่วง 30 (หรือ 60) วันก่อนที่จะหมดอายุ ค่าในเซลล์จะเปลี่ยนจากแบบอักษรสีดำปกติเป็นแบบอักษรตัวหนาสีแดง ฉันต้องการให้มีอีเมลที่ส่งถึงฉันเพื่อเตือนว่าบุคคลใน A1...A2...A3 ฯลฯ กำลังจะหมดอายุเอกสารการทำงาน สคริปต์ที่ฉันต้องใช้เพื่อให้บรรลุสิ่งนี้คืออะไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี นี่คือบทความที่อาจช่วยคุณได้ https://www.extendoffice.com/documents/excel/4661-excel-send-email-if-cell-is-modified.html
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้ใกล้เคียงกับสิ่งที่ฉันต้องการ แต่ฉันติดอยู่กับปัญหาสองประการ อย่างแรก ฉันต้องเรียกใช้สิ่งนี้ในสมุดงานทั้งหมดที่มีการเพิ่มแผ่นงานใหม่ทุกวัน 1 ฉันต้องการให้มันรวมชื่อเวิร์กชีตในอีเมลเพื่อที่ฉันจะได้รู้ว่าแผ่นงานใดถึงกำหนด ฉันสร้างตั๋วใหม่ (เวิร์กชีต) พร้อมฟิลด์ที่เป็นวันที่ในอนาคต เมื่อถึงวันนั้น ฉันต้องการอีเมล ขอขอบคุณสำหรับความช่วยเหลือของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วัสดุ Felicidades por el; pero no me funciona. Al parecer el Rango no se llena, por ende queda vacío และ sale de la rutina.

แก้ไข Alguna ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
holagracias por tu ayuda...tengo una Consulta.....en la formula Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8), el 8 คิวซิกนิฟิกา?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
กล่องไม่เติมโดยอัตโนมัติหลังจากที่ฉันกดตกลง ฉันจะเปลี่ยนหัวเรื่อง ที่อยู่อีเมล และเนื้อหาของอีเมลในรหัสได้ที่ไหน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Bonjour j'ai copié les codes, à la validation il me demande bien les cellules subjectées, mais lorsque que je valide, il ne me offer pas la suite des fenêtres, sujets, adresses ฯลฯ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี boutry ขอโทษที่ฉันตอบเป็นภาษาอังกฤษเพราะฉันไม่รู้ภาษาฝรั่งเศส ขอทราบรูปแบบวันที่เวลาของคุณได้ไหม ฉันเดาว่ารหัสอาจใช้ได้เฉพาะกับ datetime ในรูปแบบวันที่ภาษาอังกฤษ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Merhaba, bir excel dosyasında hatırlatıcı olarak bu konuyla ilgili VSB นิน nasıl yapıldığı ile ilgili bilgiye ihtiyacım var. Örneğin boş bir hücreye bilgi girildiğinde bana mail at ya da 3 hafta sıklıkla hücreye bilgi girilip girilmediğiyle alakalı bana bilgi ver.

Hertürlü bilgi และ kaynağa açığım. ชิมดิเดน เฮอร์เคเซ่ teşekkür ederim..
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Mehmet นี่คือบทช่วยสอน วิธีการส่งอีเมลหากมีการแก้ไขเซลล์บางเซลล์ใน Excel? ที่พูดถึงการส่งอีเมลพร้อมไฟล์ excel เป็นไฟล์แนบ หากเซลล์ในช่วงที่ระบุถูกแก้ไข ซึ่งอาจช่วยคุณได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Çok teşekkür ederim..
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันไม่เกิดขึ้น xRgEach ถัดไปหากฉันมีวันที่เดียวกันหลายครั้ง มันส่งเมลไปยังผู้ใช้คนเดียวกันหลายครั้ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี vaibhav คุณสามารถลบเวลาที่ซ้ำกันได้โดยใช้คุณลักษณะ Remove Duplicates ใน Data Tools ภายใต้แท็บ Data จากนั้นใช้ VBA
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี


สมบูรณ์แบบ แต่เมื่อฉันเพิ่มหรือเปลี่ยนวันที่ มันจะไม่ส่งอีเมล Automatiklicht ฉันต้องเรียกใช้รหัสอีกครั้งและโดยที่ฉันต้องเลือกช่วงวันที่ ผู้ส่ง ผู้รับ และข้อมูลทั้งหมดอีกครั้ง มีวิธีแก้ไขปัญหานี้หรือไม่?
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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