Xin code gửi phiếu lương hàng loạt qua outlook (VBA)

[August93]

Chào anh/chị ạ,

Em có đọc các bài về gửi phiếu lương hàng loạt bằng vba, nhưng chủ yếu là gửi theo số cột từ bảng lương tổng. Sếp bên em lại muốn theo form mẫu của công ty.
Trong file em gửi có 1 sheet "Bảng lương tổng" và 1 sheet "Payslip" là mẫu để gửi đến nhân viên.
Anh/chị giúp em với ạ.
Em cảm ơn Anh/Chị nhiều nhiều ạ

 

[Nhatminh0208]

Kiểu này của bạn giống dạng của mình. Của mình đang làm là gửi biểu phí cho học sinh đến từng học sinh.
Gửi kiểu này khá nhanh và dễ dàng. Nếu mai rảnh mình sẽ làm giúp bạn.
Ở sheet Playslip sẽ để 1 combobox load toàn bộ mã nhân viên sheet bên. Sau đó khi chạy từng mã nv sẽ kèm theo hàm gửi mail. Bạn thiết kế thế nào nó sẽ gửi nguyên như thế

Cho em xin form gửi mail với nha. Em xin cám ơn ạ. Mail của em truongtuan0507@gmail.com

 

[0769695995]

Cho em xin form gửi mail với nha. Em xin cám ơn ạ. Mail của em lephuocchuong150492@gmail.com

 

[DLH96]

Xin chào GPE,
Nhân tiện đọc qua cái chủ đề này, mình có làm một cái công cụ gởi mail hàng loạt.
Cái mình làm là gởi bằng 2 cách:
1/ bằng Gmail sử dung CDO với file đính kèm là file PDF tạo ra từ một vùng chỉ định (Vùng chuyển Pdf)
Bạn phải thiết lập Server, Port => 2 cái này như hình và điền Address Mail, Pass
View attachment 242339
2/ Bằng Outlook mail.
=> không cần cấu hình thêm, chỉ cần có cài Outlook trên máy tính mà thôi

Có phần "cấu hình" file Data để có thể sử dụng với mọi kiểu file data mà người sử dụng có sẵn.
Như thế sẽ rất dễ dùng và tiện rất nhiều.
Các bạn xem file đính kèm và nghiên cứu kỹ để sử dụng nha!
mình có kèm "Vi du FIle Du Lieu.xlsx".
Ứng với file data này thì cấu hình sẽ là:
View attachment 242301

PS: Code mình dùng rất nhiều nguồn khác nhau, trong đó chủ yếu là trên GPE này. Xin cám ơn tất cả.

Chào bạn.
File của bạn hoạt động rất tốt.
Tuy nhiên mình muốn thêm 1 dòng Cc trong cấu hình gửi mail bằng OUTLOOK thì cần phải chỉnh sửa lại code như thế nào.
Nhờ bạn chỉ giúp.

 

[thnghiachau]

Chào bạn.
File của bạn hoạt động rất tốt.
Tuy nhiên mình muốn thêm 1 dòng Cc trong cấu hình gửi mail bằng OUTLOOK thì cần phải chỉnh sửa lại code như thế nào.
Nhờ bạn chỉ giúp.

View attachment 286029

Thêm dòng .CC = shSendMail.Range("C19").valule trong module modSendMail

 

[DLH96]

Thêm dòng .CC = shSendMail.Range("C19").valule trong module modSendMail
View attachment 286054

Mình đã thêm dòng CC như bạn đã hướng dẫn, tuy nhiên code lại không hoạt động.



Nó Hiện thông báo lỗi như thế này.



Nhờ bạn xem lại giúp.

 

[thnghiachau]

Mình đã thêm dòng CC như bạn đã hướng dẫn, tuy nhiên code lại không hoạt động.

View attachment 286058

Nó Hiện thông báo lỗi như thế này.

View attachment 286059

Nhờ bạn xem lại giúp.

Kiểm tra Cell C19 trong Sheet Send Mail đúng sai?

 

[DLH96]

Kiểm tra Cell C19 trong Sheet Send Mail đúng sai?

Mình đã kiểm tra lại code và đã tìm được chỗ sai ( dư 1 chữ L trong value)



Cảm ơn bạn đã hỗ trợ mình.

 

[KimChi190217]

Kiểu này của bạn giống dạng của mình. Của mình đang làm là gửi biểu phí cho học sinh đến từng học sinh.
Gửi kiểu này khá nhanh và dễ dàng. Nếu mai rảnh mình sẽ làm giúp bạn.
Ở sheet Playslip sẽ để 1 combobox load toàn bộ mã nhân viên sheet bên. Sau đó khi chạy từng mã nv sẽ kèm theo hàm gửi mail. Bạn thiết kế thế nào nó sẽ gửi nguyên như thế

Anh gửi cho em xin file tham khảo với ạ. Email của em: cuongnb89@gmail.com
Em cảm ơn!

 

[hado88]

Kiểu này của bạn giống dạng của mình. Của mình đang làm là gửi biểu phí cho học sinh đến từng học sinh.
Gửi kiểu này khá nhanh và dễ dàng. Nếu mai rảnh mình sẽ làm giúp bạn.
Ở sheet Playslip sẽ để 1 combobox load toàn bộ mã nhân viên sheet bên. Sau đó khi chạy từng mã nv sẽ kèm theo hàm gửi mail. Bạn thiết kế thế nào nó sẽ gửi nguyên như thế

a ơi a có thể gửi mail cho e xin đc ko ạ. mail e là dothiha200388@gmail.com. e cảm ơn a ạ