Page 1 of 1
[VBA]ส่งเมลอัติโนมัติ
Posted: Tue Sep 25, 2018 11:41 am
by eyepop99
จากไฟล์ แน๊บเป็นไฟล์ที่ COPY มาจากไฟล์เก่า ซึ่งไฟล์เก่า สามารถทำงานได้ปกติ
ส่วนไฟล์ใหม่ ปัญหาที่เจอคือ
หลังจาก ส่งe-mailคนที่ 1
คนที่ 2 จะมีErrorขึ้น ตามภาพจากลิ้งค์ครับ
https://uppic.cc/d/Dpd
แล้วถ้าจะให้สามารถทำงานได้อีกครั้ง จะต้อง save ไฟล์ แล้วรันใหม่
ซึ่งจะทำงานได้ 1 ครั้งเหมือนเดิมแล้วจะ error เหมือนเดิมครับ
Re: [VBA]ส่งเมลอัติโนมัติ
Posted: Tue Sep 25, 2018 1:42 pm
by parakorn
แนบรูปให้ถูกต้องครับ ในอนาคตรูปจะได้ไม่เสียหายทำให้ผู้ที่เข้ามาศึกษาดูได้ครับ
เบื้องต้น เห็นความผิดปกติตรงบรรทัดนี้ แต่ผมยังไม่ได้ลองใช้โค้ดนะครับ และผมไม่ได้ชำนาญ VBA มากนักครับ
Code: Select all
Set rtall = .Range("A23", .Range("A" & .Rows.Count).End(xlUp))
ตรง A23 คือถูกต้องแล้วใช่ไหมครับ
Re: [VBA]ส่งเมลอัติโนมัติ
Posted: Tue Sep 25, 2018 9:18 pm
by snasui
ติดปัญหาตรง MailEnvelope ลองดู Code ของ Ron ว่าใช้การได้หรือไม่ครับ
https://www.rondebruin.nl/win/s1/outlook/bmail3.htm
หากใช้ไม่ได้ให้ลอง Repair Micorosft Office ใหม่ หากใช้ไม่ได้อีกคงต้องเปลี่ยนวิธีในการเขียนครับ
Re: [VBA]ส่งเมลอัติโนมัติ
Posted: Wed Sep 26, 2018 1:40 pm
by eyepop99
ขอบคุณทุกท่านครับ เดี๋ยวลองแกไขดูจากเบื้องต้นก่อนครับ
Re: [VBA]ส่งเมลอัติโนมัติ
Posted: Wed Sep 26, 2018 1:41 pm
by eyepop99
parakorn wrote: Tue Sep 25, 2018 1:42 pm
แนบรูปให้ถูกต้องครับ ในอนาคตรูปจะได้ไม่เสียหายทำให้ผู้ที่เข้ามาศึกษาดูได้ครับ
เบื้องต้น เห็นความผิดปกติตรงบรรทัดนี้ แต่ผมยังไม่ได้ลองใช้โค้ดนะครับ และผมไม่ได้ชำนาญ VBA มากนักครับ
Code: Select all
Set rtall = .Range("A23", .Range("A" & .Rows.Count).End(xlUp))
ตรง A23 คือถูกต้องแล้วใช่ไหมครับ
ถูกต้องแล้วครับ
ขอบคุณครับ