Nhờ giúp Đính kèm một loạt các file khác nhau vào các cell tương ứng thay vì insert thủ công từng cell

Liên hệ QC

khuenguyen130100

Thành viên mới
Tham gia
5/1/22
Bài viết
11
Được thích
2
Nhờ các anh/chị giúp em tìm cách để đính kèm một loạt file vào một loạt ô theo thứ tự giúp ạ.
Cụ thể hơn, em có một file gửi mail hàng loạt, trong đó có một cột để insert file đính kèm mail, em cần gửi ra khoảng hơn 22k mail với hơn 22k file pdf cùng template nhưng khác nội dung, nếu cứ phải làm thủ công click vào từng ô rồi insert link thì quá là tốn công và mất thời gian, nên rất mong các anh/chị có thể giúp em đưa ra hướng giải quyết nào smart hơn để có thể insert một loạt các file vào các ô tương ứng với ạ.
Em đính kèm file dưới đây ạ. Rất mong có hướng giải quyết sớm. Cảm ơn anh/chị nhiều ạ.
 

File đính kèm

  • guimailhangloat.xlsm
    24.2 KB · Đọc: 18
Dạ, cảm ơn các anh, em đã tự mò mẫm xào nấu code từ các nơi để ra bộ code phục vụ nhu cầu của em rồi ạ. Tuy nhiên em còn gặp một vấn đề nữa, là các chỗ xuống dòng của body mail khi gửi ra đều bị liền dòng với nhau, em không biết làm cách nào để tách ra. Em nghiên cứu thì thấy ngta hướng dẫn add vbNewline vào, mà ko biết tại sao mail gửi ra vẫn bị dính liền dòng. Em gửi dòng code chỗ body_message để nhờ các anh chỉnh giúp em với ạ. Em cảm ơn các anh.
"Dim body_message As String
body_message = ThisWorkbook.Sheets("Sendmail").Cells(2, 12) & vbNewLine & vbNewLine & ThisWorkbook.Sheets("Sendmail").Cells(2, 13) & vbNewLine & vbNewLine & ThisWorkbook.Sheets("Sendmail").Cells(2, 14) & vbNewLine & vbNewLine & ThisWorkbook.Sheets("Sendmail").Cells(2, 15) & vbNewLine & vbNewLine & ThisWorkbook.Sheets("Sendmail").Cells(2, 16) & vbNewLine & vbNewLine & ThisWorkbook.Sheets("Sendmail").Cells(2, 17)"
Nguyên tắc viết code chỗ body của em là: em tách các dòng cần tách vào các ô liền nhau, rồi viết code nối các dòng này với nhau bằng vbNewline (vbNewline & vbNewline là xuống dòng 2 lần)
bạn thử thay "vbNewLine" bằng "<br>" xem có được không
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom