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 ạ

 

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

 

[axa00000019]

Vui lòng gửi mail: duyphuonghcmc@gmail.com
Cảm ơn bạn!

 

[tieutuvodanh192]

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ế

@An.BA
Anh cho em xin file với nhé, email: daothituuyen921@gmail.com
Cảm ơn anh.

 

[ongke0711]

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

Tình hình là bạn thnghiachau nên ngâm cứu, thêm code cho việc sử dụng Gmail bằng CDO sau ngày 30/05/2022 rồi.
Link: https://support.google.com/accounts...ppy=,use-an-app-password,use-more-secure-apps



Ngâm cứu tích hợp: App password hoặc OAuth2.

 

[An.BA]

Tình hình là bạn thnghiachau nên ngâm cứu, thêm code cho việc sử dụng Gmail bằng CDO sau ngày 30/05/2022 rồi.
Link: https://support.google.com/accounts/answer/6010255?hl=en#zippy=,use-an-app-password,use-more-secure-apps

View attachment 272956

Ngâm cứu tích hợp: App password hoặc OAuth2.

Cái CDO này mà em thấy trên ứng dụng MS Access anh demo nó cũng phải cho phép truy cập kém an toàn phải không anh?
Thế này thì phải làm gì anh nhỉ?

 

[ongke0711]

Cái CDO này mà em thấy trên ứng dụng MS Access anh demo nó cũng phải cho phép truy cập kém an toàn phải không anh?
Thế này thì phải làm gì anh nhỉ?

Đúng rồi, đều phải khai báo Less secure app mới chạy được. Giờ ngâm cứu thêm tính năng bảo mật 2 lớp vô theo hướng dẫn của Google.

 

[An.BA]

Đúng rồi, đều phải khai báo Less secure app mới chạy được. Giờ ngâm cứu thêm tính năng bảo mật 2 lớp vô theo hướng dẫn của Google.

Buồn quá anh ạ. Đang phải sử dụng nó rất nhiều để gửi email cho khách hàng mà lại thế này.
Nếu anh ngâm cứu ra được thì cho em xin thông tin với nhé

 

[NHG]

Buồn quá anh ạ. Đang phải sử dụng nó rất nhiều để gửi email cho khách hàng mà lại thế này.
Nếu anh ngâm cứu ra được thì cho em xin thông tin với nhé

Bạn chỉ cần tạo mật khẩu ứng dụng Gmail là dùng thoải mái

Liên kết: https://youtu.be/X3jsnzyiInU

 

[sonthoa4]

Buồn quá anh ạ. Đang phải sử dụng nó rất nhiều để gửi email cho khách hàng mà lại thế này.
Nếu anh ngâm cứu ra được thì cho em xin thông tin với nhé

Chào anh cho em hỏi nếu dùng tài khoản gmail hoặc tài khoản outlook login vào outlook, sau đó dùng bảng lương trên excel và xuất ra mail merge trên word gửi hàng loạt mỗi tháng 1 lần, 1 lần khoảng 1000-2000 người nhận thì tài khoản gmail hoặc outlook thiết lập ban đầu có bị chặn k anh, em muốn liên lạc với anh mà k được, anh cho em xin file qua email sontho22@gmail.com với nha
Mong phản hồi từ anh

 

[NHG]

Chào anh cho em hỏi nếu dùng tài khoản gmail hoặc tài khoản outlook login vào outlook, sau đó dùng bảng lương trên excel và xuất ra mail merge trên word gửi hàng loạt mỗi tháng 1 lần, 1 lần khoảng 1000-2000 người nhận thì tài khoản gmail hoặc outlook thiết lập ban đầu có bị chặn k anh, em muốn liên lạc với anh mà k được, anh cho em xin file qua email sontho22@gmail.com với nha
Mong phản hồi từ anh

tải khoản miễn phí không gửi đc quá 100 thư trong ngày, tài khoản google, outlook trả phí thì gửi đc nhiều hơn nhưng cũng chỉ 300 đến 500 thư 1 ngày, nhưng gửi hàng loạt nhiều như vậy thư rất dễ bị vào thư mục Spam; gửi nhiều thế nên dùng mail của công ty thì tốt hơn

 

[An.BA]

Bạn chỉ cần tạo mật khẩu ứng dụng Gmail là dùng thoải mái

Liên kết: https://youtu.be/X3jsnzyiInU

Cảm ơn bạn nhé. mình đã thử và thấy ổn thật.

 

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

Bác thêm code mật khẩu cho file PDF bằng cột Mã nhân viên ( CODE) với ạ

 

[mingchou]

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

Không Biết bạn đã chạy đc file PDF có password chưa vậy. Cho mình xin file với