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

Liên hệ QC

August93

Thành viên mới
Tham gia
27/8/17
Bài viết
23
Được thích
4
Giới tính
Nữ
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 ạ
 

File đính kèm

  • Payslip.xlsx
    88.4 KB · Đọc: 163
Upvote 0
:) Mặc dù không có gì ghê gớm nhưng vẫn là quyền sở hữu của người ta đó bạn.
Thay vì để những người cần cứ phải lên đây XIN thì CHO. Sao chủ topic không để lại địa chỉ email hay ĐT để ai cần thì họ liên lạc trực tiếp!!!
 
Upvote 0
Gửi cho mình với. Mình cũng làm và thấy thủ công mệt thật. Cảm ơn bạn nhé.
tranvanthanhdhpt@gmail.com
Bạn gửi giúp tôi vào maika8008@gmail.com

Cảm ơn bạn!
Bạn vui lòng gửi mình qua email: sontran1412@yahoo.com

Cảm ơn
Bạn ơi mình có thể xin file để tham khảo được không?
Email mình dunganhle19@gmail.com.
Cảm ơn bạn nhé
Mình đã gửi rồi nhé,
Nếu ai không nhận được thì email cho mình nhé
annguyen9124@mail.com
Bài đã được tự động gộp:

Thay vì để những người cần cứ phải lên đây XIN thì CHO. Sao chủ topic không để lại địa chỉ email hay ĐT để ai cần thì họ liên lạc trực tiếp!!!
Em cảm ơn, em đã để lại email :)
 
Upvote 0
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
1628224710473.png
 
Lần chỉnh sửa cuối:
Upvote 0
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.
 
Upvote 0
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.
 

File đính kèm

  • Tool Send Mail Outlook - AttPDF.xlsm
    53 KB · Đọc: 24
  • Vi du FIle Du Lieu.xlsx
    22.6 KB · Đọc: 22
Upvote 0
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"
1628309119747.png
và nội dung mail:

1628309151914.png
 
Upvote 0
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
 
Upvote 0
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 ạ.
 
Upvote 0
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 ạ.
 

File đính kèm

  • Tool Send Mail Outlook - AttPDF.xlsm
    53.1 KB · Đọc: 10
  • Vi du FIle Du Lieu.xlsx
    22.6 KB · Đọc: 9
Upvote 0
Web KT
Back
Top Bottom