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

[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 ạ

 

[AnhNQT]

tôi có biết gì để sửa đâu?
tất cả là củ tôi VÍ DỤ...
Bạn sử dụng thì có cái riêng của bạn... tôi có được sờ-rờ-mó... tới đâu mà biết sửa cái gì? chỉnh cái gì? theo ý bạn?

mà ngộ nha... tôi hỏi bạn ý nghĩa 2 dòng này
strMaNV = shSendMail.Range("F14").Value
strNdung = shSendMail.Range("F15").Value
sao mà bạn hổng trả lời cho tôi nhỉ???

Dạ 2 dòng trên em không hiểu rõ ạ, em chỉ bắt trước từ code dòng trên của Bác để thêm 1 giá trị mới cần thay đổi khi gửi mail ạ.
Bác sửa giúp để được như này ạ.
Ví dụ nhân viên 1 sẽ là:
Subject: "Gởi bảng lương LVH"
File đính kèm: "Bang luong LVH.pdf"
Nội dung: "Gởi tới anh/chị bảng lương tháng: MAY

File mẫu em sử dụng của Bác và đã sửa nhưng do không hiểu gì nên không thực hiện đúng mục đích.

 

[truongvanphu234]

file này là của tôi mà có gì mà sửa?còn muou61n làm gì trên 2 file này thì đọc kỹ mà thực hiện theo thôi
dữ liệu thì tự lấy riêng của mình mà làm ra....
coi kỹ cái phần "cấu hình"
View attachment 263724
và nội dung mail:

View attachment 263726

file

Cảm ơn bạn. Mình thấy có code lưu ra file excell có password vào một folder xong lại tự động att vào có được không bạn. Liệu có chỉnh sửa kết hợp vào cùng file Tool Send Mail Outlook - AttPDF của bạn được ko ạ.

Bài đã được tự động gộp: 7/8/21

Cảm ơn bạn. Mình thấy có code lưu ra file excell có password vào một folder xong lại tự động att vào có được không bạn. Liệu có chỉnh sửa kết hợp vào cùng file Tool Send Mail Outlook - AttPDF của bạn được ko ạ.

xin lỗi bạn, mình botay cái dzụ này...vì VBA khi tạo ra file PDF từ một vùng Range trên Excel không có cái dzụ pass cho file PDF ah...
mà muốn làm thì sau khi tao ra file PDF rồi thì dùng một phần mền bên thứ 3 để tạo pass cho file PDF này.

Bài đã được tự động gộp: 7/8/21

tôi có biết gì để sửa đâu?
tất cả là củ tôi VÍ DỤ...
Bạn sử dụng thì có cái riêng của bạn... tôi có được sờ-rờ-mó... tới đâu mà biết sửa cái gì? chỉnh cái gì? theo ý bạn?

mà ngộ nha... tôi hỏi bạn ý nghĩa 2 dòng này
strMaNV = shSendMail.Range("F14").Value
strNdung = shSendMail.Range("F15").Value
sao mà bạn hổng trả lời cho tôi nhỉ???

Cho mình hỏi thêm một chút ạ. mã nhân viên bên mình 001 đến 888 nhưng khi mình gửi thì mã nhân viên 001 đến 099 nó ko được. Do mình định dạng ô thứ tự là '001 nên ko nhận, nhưng mình ko muốn định dạng lại ô đó vì phải sủa nhiều hàm kèm theo. Bạn có cách nào để nhận ô thứ tự mã nhân viên có dấu ' đằng trước ko ạ từ '001 đến '099. Mình xin cảm ơn.

 

[AnhNQT]

Dạ 2 dòng trên em không hiểu rõ ạ, em chỉ bắt trước từ code dòng trên của Bác để thêm 1 giá trị mới cần thay đổi khi gửi mail ạ.
Bác sửa giúp để được như này ạ.
Ví dụ nhân viên 1 sẽ là:
Subject: "Gởi bảng lương LVH"
File đính kèm: "Bang luong LVH.pdf"
Nội dung: "Gởi tới anh/chị bảng lương tháng: MAY

File mẫu em sử dụng của Bác và đã sửa nhưng do không hiểu gì nên không thực hiện đúng mục đích.


View attachment 263736

@thnghiachau Em cảm ơn Bác đã hỏi nhiều lần đã thôi thúc em tự mò mẫm và dùng được theo ý rồi ạ nhưng lại gặp tình trạng mail cho nhân viên này lại bị file đính kèm bảng lương nhân viên khác. Bác xem chỗ vòng for giúp em với ạ.

 

[thnghiachau]

Cảm ơn bạn. Mình thấy có code lưu ra file excell có password vào một folder xong lại tự động att vào có được không bạn. Liệu có chỉnh sửa kết hợp vào cùng file Tool Send Mail Outlook - AttPDF của bạn được ko ạ.

Bài đã được tự động gộp: 7/8/21

Cho mình hỏi thêm một chút ạ. mã nhân viên bên mình 001 đến 888 nhưng khi mình gửi thì mã nhân viên 001 đến 099 nó ko được. Do mình định dạng ô thứ tự là '001 nên ko nhận, nhưng mình ko muốn định dạng lại ô đó vì phải sủa nhiều hàm kèm theo. Bạn có cách nào để nhận ô thứ tự mã nhân viên có dấu ' đằng trước ko ạ từ '001 đến '099. Mình xin cảm ơn.

bạn đưa code của bạn tôi chỉnh lại cho

 

[thnghiachau]

@thnghiachau Em cảm ơn Bác đã hỏi nhiều lần đã thôi thúc em tự mò mẫm và dùng được theo ý rồi ạ nhưng lại gặp tình trạng mail cho nhân viên này lại bị file đính kèm bảng lương nhân viên khác. Bác xem chỗ vòng for giúp em với ạ.

chính vì tôi thấy bạn bị sai nên tôi mới hỏi bạn giải thích 2 dòng đó, mà bạn không nói nên tôi cũng bótay

 

[AnhNQT]

chính vì tôi thấy bạn bị sai nên tôi mới hỏi bạn giải thích 2 dòng đó, mà bạn không nói nên tôi cũng bótay

Có phải em không giải thích đâu Bác, em bảo em không biết mà. Bác sửa giúp em code file #51 với ạ.

 

[truongvanphu234]

bạn đưa code của bạn tôi chỉnh lại cho

Gio lam sao de ket hop duoc hai file nay ấn gui mail la có thể tự động att file có mat khau bạn. thanks ban

 

[thnghiachau]

Gio lam sao de ket hop duoc hai file nay ấn gui mail la có thể tự động att file có mat khau bạn. thanks ban

cái của bạn là copy sheet"Form" qua workbook mới và lưu lại với Pass là mã NV.
Còn cái mình làm là trích xuất một vùng range thành pdf nên của minh không làm Pass cho file PDF này được

 

[thnghiachau]

Gio lam sao de ket hop duoc hai file nay ấn gui mail la có thể tự động att file có mat khau bạn. thanks ban

Bạn ơi... vui lòng viết chữ có dấu... không thì mod sẽ xóa bài bạn nha....
gởi bạn file nè

 

[truongvanphu234]

Bạn ơi... vui lòng viết chữ có dấu... không thì mod sẽ xóa bài bạn nha....
gởi bạn file nè

Cảm ơn bạn mình sẽ lưu ý viết chữ có dấu khi đăng bài.

 

[letrieuson72]

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ả.

bạn cho mình zalo với. mình hỏi 1 chút về VBA ạ

 

[Đoàn Thanh Bình]

@thnghiachau cho e hỏi, có cách nào gửi mail phiếu lương như trên của bác mà file pdf có password được k ạ?

 

[kelacloi]

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ả.

Đính chính: Em đã điền đầy đủ và đã chạy được rồi.





Sao em thử theo file ví dụ mà lại báo lỗi như hình nhỉ?

 

[binbon2z]

bạn đưa code của bạn tôi chỉnh lại cho

anh ơi em nhờ xíu em tập tành viết vba gui mail outlook ổn hết rồi chỉ vướng cái định dạng font chữ ạ

Dim Noidungmail As String
....
Noidungmail = Sheets("Email_List").Cells(RowNum, 5).Value
...
HTMLBody = Noidungmail & .HTMLBody
Mỗi mail gửi là 1 nội dung riêng, em cài đặt và hiện thị được chữ ký điện tử hết rồi tuy nhiên font chữ nó lại mặc định theo outlook là caribi size 11 em muốn chỉnh lại như sau:
font: times new roman
zise 14
màu: xanh nước biển đậm

anh hỗ trợ giúp em với

 

[thnghiachau]

anh ơi em nhờ xíu em tập tành viết vba gui mail outlook ổn hết rồi chỉ vướng cái định dạng font chữ ạ

Dim Noidungmail As String
....
Noidungmail = Sheets("Email_List").Cells(RowNum, 5).Value
...
HTMLBody = Noidungmail & .HTMLBody
Mỗi mail gửi là 1 nội dung riêng, em cài đặt và hiện thị được chữ ký điện tử hết rồi tuy nhiên font chữ nó lại mặc định theo outlook là caribi size 11 em muốn chỉnh lại như sau:
font: times new roman
zise 14
màu: xanh nước biển đậm

anh hỗ trợ giúp em với

dùng thẻ font trong web:
<font color="Blue" size="14" face="times new roman">Nội dung muốn định dạng</font>

 

[binbon2z]

dùng thẻ font trong web:
<font color="Blue" size="14" face="times new roman">Nội dung muốn định dạng</font>

Dạ em cảm ơn anh nhiều ạ, em mới thử xong màu và font oki nhưng size chữ 14 tương ứng 36pt anh ạ, size 3= 12pt, 3.8<4 =12.5pt, 4=13.5pt .Chắc ko chỉnh được tương tự như khi chọn size trong office.

 

[maily mai]

Bạn cho mình email mình gửi cho nhé

anh có thể gửi em xin được ko ạ, em cảm ơn ạ

 

[binbon2z]

chào bạn,

Có thể cho mình code gửi phiếu lương cho nhiều email dc không ạ ?
Xin cảm ơn

Cho em xin với file của anh châu em tải về mà ko mở đc , muốn coi file của anh í quá

Bài đã được tự động gộp: 9/11/21

Cho em xin với file của anh châu em tải về mà ko mở đc , muốn coi file của anh í quá

Mail em trangnth03@gmail.com

 

[mingchou]

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ả.

em đã tham khảo file gửi qua outlook của anh. nhưng nó k thành công ạ. Đã báo hoàn tất gửi mail. nhưng trong outlook mục thư gửi đi k có . và ng nhận cũng k thấy mail .

 

[thnghiachau]

em đã tham khảo file gửi qua outlook của anh. nhưng nó k thành công ạ. Đã báo hoàn tất gửi mail. nhưng trong outlook mục thư gửi đi k có . và ng nhận cũng k thấy mail .

tôi đã kiểm traa hoạt động bình thường!!!!!