Xin code gửi phiếu lương hàng loạt qua outlook (VBA) (1 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 ạ

 

[An.BA]

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 ạ

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ế

 

[August93]

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ế

Dạ vâng ạ, em cũng đang nghiên cứu thêm nhưng chưa thành công, chị giúp em với nhé. em cảm ơn ạ.

 

[An.BA]

Dạ vâng ạ, em cũng đang nghiên cứu thêm nhưng chưa thành công, chị giúp em với nhé. em cảm ơn ạ.

Bạn check inbox nhé, t gửi cho bạn rồi đó
Mình là Anh không phải chị nhé

 

[thnghiachau]

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

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à:


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

 

[AnhNQT]

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ác @thnghiachau có thể giúp mình sửa code để thay đổi subject và nội dung mail theo từng tên "Khách hàng" được không ạ? Như mục 4, 5 dưới ạ.
Em sửa lại vì thấy bác @thnghiachau ít online nên nhờ bác @Maika8008 có thể xem giúp được không ạ?
Em cảm ơn

 

[thnghiachau]

Bác @thnghiachau có thể giúp mình sửa code để thay đổi subject và nội dung mail theo từng tên "Khách hàng" được không ạ? Như mục 4, 5 dưới ạ.
Em sửa lại vì thấy bác @thnghiachau ít online nên nhờ bác @Maika8008 có thể xem giúp được không ạ?
Em cảm ơn
View attachment 263670

xin lỗi, tôi không hiểu bạn đang nói gì?
muốn gì thì bạn làm ra file gởi lên, như thế mới hiểu dễ hơn.

 

[AnhNQT]

xin lỗi, tôi không hiểu bạn đang nói gì?
muốn gì thì bạn làm ra file gởi lên, như thế mới hiểu dễ hơn.

Dạ Bác sửa giúp em như file đính kèm này ạ. Em muốn tiêu đề mail sẽ là "Gởi bảng lương + Mã NV (ô B7)" và nội dung bên dưới sẽ là "Gởi tới anh/chị bảng lương tháng: + Nội dung (ô F5)". Ngoài ra tên file pdf đính kèm đổi theo Mã NV ạ. Nếu được Bác có thể thêm giúp em chữ ký outlook bằng ảnh nữa thì càng tuyệt ạ. Em cảm ơn Bác.

 

[thnghiachau]

Dạ Bác sửa giúp em như file đính kèm này ạ. Em muốn tiêu đề mail sẽ là "Gởi bảng lương + Mã NV (ô B7)" và nội dung bên dưới sẽ là "Gởi tới anh/chị bảng lương tháng: + Nội dung (ô F5)". Ngoài ra tên file pdf đính kèm đổi theo Mã NV ạ. Nếu được Bác có thể thêm giúp em chữ ký outlook bằng ảnh nữa thì càng tuyệt ạ. Em cảm ơn Bác.

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"

và nội dung mail:

 

[truongvanphu234]

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

Xin chào bạn mình đã thực hiện theo file trên ok nhưng mình cần thêm có password kèm theo khi mở file attach thì làm như nào ạ. Mình cảm ơn

 

[AnhNQT]

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

Dạ file ban đầu của Bác là có mục 1/2/3 ạ, em mới bổ sung mục 4/5 nhưng nó k chạy ra theo ý muốn ạ, mong Bác xem giúp ạ.

 

[thnghiachau]

Dạ file ban đầu của Bác là có mục 1/2/3 ạ, em mới bổ sung mục 4/5 nhưng nó k chạy ra theo ý muốn ạ, mong Bác xem giúp ạ.

Bổ xung như thế nao mà ko dc? File nao?

 

[AnhNQT]

Bổ xung như thế nao mà ko dc? File nao?

Dạ theo file gốc của Bác em đã sửa như sau:
Khai thêm :
Dim strMaNV As String, strNdung As String
strMaNV = shSendMail.Range("F14").Value
strNdung = shSendMail.Range("F15").Value
Thêm strMaNV trong strSubject và trong strFullNameFileAttached thành:
strSubject = shSendMail.Range("C18").Value & strMaNV
strFullNameFileAttached = strPath & "Bang luong" & strMaNV & ".pdf"
Thêm strNdung trong strMailBody thành:
strMailBody = shSendMail.Range("C21").Value & strNdung & "<BR><BR>" & _
shSendMail.Range("C22").Value & "<BR><BR>" & _
shSendMail.Range("C23").Value & "<BR><BR>" & _
shSendMail.Range("C24").Value & "<BR><BR>" & _
shSendMail.Range("C25").Value
Nhưng kết quả nó chỉ ra đúng giá trị ở trong ô F14/F15 chứ không nhảy theo file dữ liệu ạ.

 

[thnghiachau]

Dạ theo file gốc của Bác em đã sửa như sau:
Khai thêm :
Dim strMaNV As String, strNdung As String
strMaNV = shSendMail.Range("F14").Value
strNdung = shSendMail.Range("F15").Value
Thêm strMaNV trong strSubject và trong strFullNameFileAttached thành:
strSubject = shSendMail.Range("C18").Value & strMaNV
strFullNameFileAttached = strPath & "Bang luong" & strMaNV & ".pdf"
Thêm strNdung trong strMailBody thành:
strMailBody = shSendMail.Range("C21").Value & strNdung & "<BR><BR>" & _
shSendMail.Range("C22").Value & "<BR><BR>" & _
shSendMail.Range("C23").Value & "<BR><BR>" & _
shSendMail.Range("C24").Value & "<BR><BR>" & _
shSendMail.Range("C25").Value
Nhưng kết quả nó chỉ ra đúng giá trị ở trong ô F14/F15 chứ không nhảy theo file dữ liệu ạ.

strMaNV = shSendMail.Range("F14").Value
strNdung = shSendMail.Range("F15").Value
hai dòng trên là gì nhỉ?

 

[AnhNQT]

strMaNV = shSendMail.Range("F14").Value
strNdung = shSendMail.Range("F15").Value
hai dòng trên là gì nhỉ?

Dạ là em bổ sung thêm để tạo tên file, subject mail theo mã nhân viên và nội dung email ạ.

 

[thnghiachau]

Xin chào, lâu rồi không thấy nhỉ.

Hic bữa giờ công việc tùm lum đi tùm la... giờ dịch nên mới ngồi yêu một chỗ để chọc thiên hạ bạn ơi...

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

strMaNV = shSendMail.Range("F14").Value
strNdung = shSendMail.Range("F15").Value
hai dòng trên là gì nhỉ?

tôi hỏi bạn 2 dòng trên là gì?

 

[AnhNQT]

tôi hỏi bạn 2 dòng trên là gì?

Dạ em cũng chỉ bắt trước làm theo Bác chứ không hiểu gì về code ạ. Mong Bác chỉ bảo thêm.

 

[thnghiachau]

Dạ em cũng chỉ bắt trước làm theo Bác chứ không hiểu gì về code ạ. Mong Bác chỉ bảo thêm.

vì thế tôi mới hỏi bạn nội dung 2 dòng mà tôi hỏi là gì???
strMaNV = shSendMail.Range("F14").Value
strNdung = shSendMail.Range("F15").Value

 

[AnhNQT]

vì thế tôi mới hỏi bạn nội dung 2 dòng mà tôi hỏi là gì???
strMaNV = shSendMail.Range("F14").Value
strNdung = shSendMail.Range("F15").Value

Vâng. Nhờ Bác sửa giúp ạ.

 

[thnghiachau]

Xin chào bạn mình đã thực hiện theo file trên ok nhưng mình cần thêm có password kèm theo khi mở file attach thì làm như nào ạ. Mình cảm ơn

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

Vâng. Nhờ Bác sửa giúp ạ.

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ỉ???