Gửi email từ excel bằng VBA

[huangocthanhtam]

Chào các Anh GPE,

Em có một bài toán đang giải mà chưa ra, nhờ các Anh chỉ giáo.

Mục đích: Gửi chi tiết bảng lương tới email của từng người (Tê, ID code theo tên, thông tin v.v.v) có sẵn

1. VD em có chi tiết 100 người nhận lương từ sheet DATA & TEMPLATE : TỪ Ô A4:AC8
2. Từ ô B10:F24 là cái template nội dung em muốn gửi tới email của người đó tương ứng với email từng người
3. Từ A2:A5 sheet Nội Dung email là nội dung CỐ ĐỊNH trong mỗi email gửi cho mọi người,
4. Sheet gửi email là tổng hợp thông tin của từng nhân viên.

Mong mọi ng hỗ trợ

 

[befaint]

(1) File excel bạn nên thiết kế:
1 sheet là dữ liệu về lương của một danh sách nhân sự (mã nhân sự, thông tin công và lương, email - có thể để ở cột cuối ứng với nhân sự đó)
1 sheet là form bảng lương: Tiêu đề bảng lương kỳ/ tháng, nội dung bảng lương, ở cuối ghi thông tin liên hệ nhận phản hồi của nhân sự...

(2) Nội dung email:
pa1: Tách file excel theo sheet form rồi đính kèm vào mail và gửi cho từng nhân sự
pa2: Copy luôn cái form vào nội dung mail rồi gửi cho từng nhân sự

(3) Bạn có thể tìm bài viết đã có trên diễn đàn về tham khảo trước... cuối tuần tính tiếp.

 

[huangocthanhtam]

(1) File excel bạn nên thiết kế:
1 sheet là dữ liệu về lương của một danh sách nhân sự (mã nhân sự, thông tin công và lương, email - có thể để ở cột cuối ứng với nhân sự đó)
1 sheet là form bảng lương: Tiêu đề bảng lương kỳ/ tháng, nội dung bảng lương, ở cuối ghi thông tin liên hệ nhận phản hồi của nhân sự...

(2) Nội dung email:
pa1: Tách file excel theo sheet form rồi đính kèm vào mail và gửi cho từng nhân sự
pa2: Copy luôn cái form vào nội dung mail rồi gửi cho từng nhân sự

(3) Bạn có thể tìm bài viết đã có trên diễn đàn về tham khảo trước... cuối tuần tính tiếp.

ôi zời lâu quá không gặp sư phụ, không biết còn nhớ em không, Để em làm lại như anh nói rồi em gửi tiếp nhé, Thanks anh

 

[huangocthanhtam]

Em gửi lại file trình bày theo sự hướng dẫn của anh, Mong các Anh support

 

[befaint]

Em gửi lại file trình bày theo sự hướng dẫn của anh, Mong các Anh support

Bạn tải 2 file dưới rồi về mở cả 2 file đó nhé.
(File .xlam là phần vba, file .xlsx là file dữ liệu của bạn)
Rồi click nút như hình:



nhập STT ở cột A sheet "Data Luong" vào 2 textbox đó...

 

[huangocthanhtam]

Bạn tải 2 file dưới rồi về mở cả 2 file đó nhé.
(File .xlam là phần vba, file .xlsx là file dữ liệu của bạn)
Rồi click nút như hình:

View attachment 172006

nhập STT ở cột A sheet "Data Luong" vào 2 textbox đó...

Em sẽ test rồi báo anh

 

[huangocthanhtam]

Bạn tải 2 file dưới rồi về mở cả 2 file đó nhé.
(File .xlam là phần vba, file .xlsx là file dữ liệu của bạn)
Rồi click nút như hình:

View attachment 172006

nhập STT ở cột A sheet "Data Luong" vào 2 textbox đó...

Em chạy dc addin rồi, để em test nhé

 

[huangocthanhtam]

Em chạy dc addin rồi, để em test nhé

nó báo lỗi như hình anh, mặc dù vẫn gửi dc

 

[befaint]

nó báo lỗi như hình anh, mặc dù vẫn gửi dc

Bạn click vào debug để xem nó lỗi dòng nào...

 

[huangocthanhtam]

Lần này nó ra mấy lỗi anh ạ,

1. KHông hiểu sao sheet Data nó ko cho nhập liệu
2. Lỗi như hình phía dưới,

Thanks anh

 

[befaint]

Lần này nó ra mấy lỗi anh ạ,

1. KHông hiểu sao sheet Data nó ko cho nhập liệu
2. Lỗi như hình phía dưới,

Thanks anh

Bạn test trên file mới hay file mình gửi ở bài #5?

Theo hình thì chưa biết lỗi tại đâu? Bạn xóa file addins cũ đi rồi tải file mới về thử xem...

 

[huangocthanhtam]

Bạn test trên file mới hay file mình gửi ở bài #5?

Theo hình thì chưa biết lỗi tại đâu? Bạn xóa file addins cũ đi rồi tải file mới về thử xem...

Xóa đi rồi cài lại thì lại gửi được nhưng nó lại báo lỗi như bên dưới, sau đó lại quay lại tình trạng cũ giông em nêu ở trên, Em tải cả 2 file của anh ở #5

 

[befaint]

Xóa đi rồi cài lại thì lại gửi được nhưng nó lại báo lỗi như bên dưới, sau đó lại quay lại tình trạng cũ giông em nêu ở trên, Em tải cả 2 file của anh ở #5

Mình kiểm tra vẫn chưa ra lỗi để khắc phục. Bạn inbox teamviewer xem qua được chứ...

 

[huangocthanhtam]

Mình kiểm tra vẫn chưa ra lỗi để khắc phục. Bạn inbox teamviewer xem qua được chứ...

Đây anh ơi, sorry nãy h em bận
624 271 512
6365

 

[befaint]

Đây anh ơi, sorry nãy h em bận
624 271 512
6365

Đã tìm ra lỗi...
Do công thức lấy email sai.
Bạn sửa công thức tại F4 thành:

=VLOOKUP($D$12,'Data Luong'!$A$4:$D$9,3,0)

là được.
p/s: Tải lại file addins ở bài #5 nhé.

 

[huangocthanhtam]

Đã tìm ra lỗi...
Do công thức lấy email sai.
Bạn sửa công thức tại F4 thành:

=VLOOKUP($D$12,'Data Luong'!$A$4:$D$9,3,0)

là được.
p/s: Tải lại file addins ở bài #5 nhé.

vẫn bị ah ơi hiccccccc

 

[befaint]

vẫn bị ah ơi hiccccccc

Bạn tải lại cả 2 file bài #5 ...

 

[huangocthanhtam]

Bạn tải lại cả 2 file bài #5 ...

Hi anh nếu email người nhận là gmail thì không dc, nó bị lỗi, Anh xem hình nhé
Em có thêm 4 câu hỏi
1. Nếu muôn chèn thêm logo vào form thì làm sao ạ, Em chèn rồi mà ko được
2. Phần nội dung email nó không đổi font chữ như mình viết
3. Nếu thay đổi màu đậm/nhạt của cữ hoặc đường line trong form thì qua email nó ko thay đổi theo
4. Email gửi không kèm theo chữ ký, làm sao để đổi, Thanks anh

 

[befaint]

Hi anh nếu email người nhận là gmail thì không dc, nó bị lỗi, Anh xem hình nhé
Em có thêm 4 câu hỏi
1. Nếu muôn chèn thêm logo vào form thì làm sao ạ, Em chèn rồi mà ko được
2. Phần nội dung email nó không đổi font chữ như mình viết
3. Nếu thay đổi màu đậm/nhạt của cữ hoặc đường line trong form thì qua email nó ko thay đổi theo
4. Email gửi không kèm theo chữ ký, làm sao để đổi, Thanks anh

- Khi làm, mình chạy thử bằng gmail của mình... nên nếu bạn bị lỗi thì xem hệ thống mail của bên bạn xem...
- Chèn logo, chữ ký: để mình xem lại
- Nội dung trong form thì vẫn được chứ? (sử dụng font unicode...)

 

[huangocthanhtam]

- Khi làm, mình chạy thử bằng gmail của mình... nên nếu bạn bị lỗi thì xem hệ thống mail của bên bạn xem...
- Chèn logo, chữ ký: để mình xem lại
- Nội dung trong form thì vẫn được chứ? (sử dụng font unicode...)

Nội dung form thì ok ạ, chỉ là chỉnh đậm/nhạt nó không hiển thị, để em test lại email