[VBA]ส่งเมลอัติโนมัติ

[eyepop99]

จากไฟล์ แน๊บเป็นไฟล์ที่ COPY มาจากไฟล์เก่า ซึ่งไฟล์เก่า สามารถทำงานได้ปกติ
ส่วนไฟล์ใหม่ ปัญหาที่เจอคือ
หลังจาก ส่งe-mailคนที่ 1
คนที่ 2 จะมีErrorขึ้น ตามภาพจากลิ้งค์ครับ
https://uppic.cc/d/Dpd

แล้วถ้าจะให้สามารถทำงานได้อีกครั้ง จะต้อง save ไฟล์ แล้วรันใหม่
ซึ่งจะทำงานได้ 1 ครั้งเหมือนเดิมแล้วจะ error เหมือนเดิมครับ

[parakorn]

แนบรูปให้ถูกต้องครับ ในอนาคตรูปจะได้ไม่เสียหายทำให้ผู้ที่เข้ามาศึกษาดูได้ครับ

เบื้องต้น เห็นความผิดปกติตรงบรรทัดนี้ แต่ผมยังไม่ได้ลองใช้โค้ดนะครับ และผมไม่ได้ชำนาญ VBA มากนักครับ

Code: Select all

Set rtall = .Range("A23", .Range("A" & .Rows.Count).End(xlUp))

ตรง A23 คือถูกต้องแล้วใช่ไหมครับ

[snasui]

ติดปัญหาตรง MailEnvelope ลองดู Code ของ Ron ว่าใช้การได้หรือไม่ครับ https://www.rondebruin.nl/win/s1/outlook/bmail3.htm

หากใช้ไม่ได้ให้ลอง Repair Micorosft Office ใหม่ หากใช้ไม่ได้อีกคงต้องเปลี่ยนวิธีในการเขียนครับ

[eyepop99]

ขอบคุณทุกท่านครับ เดี๋ยวลองแกไขดูจากเบื้องต้นก่อนครับ

[eyepop99]

แนบรูปให้ถูกต้องครับ ในอนาคตรูปจะได้ไม่เสียหายทำให้ผู้ที่เข้ามาศึกษาดูได้ครับ

เบื้องต้น เห็นความผิดปกติตรงบรรทัดนี้ แต่ผมยังไม่ได้ลองใช้โค้ดนะครับ และผมไม่ได้ชำนาญ VBA มากนักครับ

Code: Select all

Set rtall = .Range("A23", .Range("A" & .Rows.Count).End(xlUp))

ตรง A23 คือถูกต้องแล้วใช่ไหมครับ

ถูกต้องแล้วครับ
ขอบคุณครับ