Gửi email từ excel bằng VBA

[huangocthanhtam]

- Khi làm, mình chạy thử bằng gmail của mình... nên nếu bạn bị lỗi thì xem hệ thống mail của bên bạn xem...
- Chèn logo, chữ ký: để mình xem lại
- Nội dung trong form thì vẫn được chứ? (sử dụng font unicode...)

Hi Anh, Em đã tự tìm cách sữa dc hết các lỗi trên rồi, Thanks anh

 

[vodinhnam]

Bạn tải 2 file dưới rồi về mở cả 2 file đó nhé.
(File .xlam là phần vba, file .xlsx là file dữ liệu của bạn)
Rồi click nút như hình:

View attachment 172016

nhập STT ở cột A sheet "Data Luong" vào 2 textbox đó...

Chào anh,
Anh có thể cho em xin đoạn code của addins này được không? Em đang cần dùng tính năng này nhưng phải sửa lại chút xíu nên xin anh đoạn code để tùy biến.
Em cám ơn anh.

 

[befaint]

Chào anh,
Anh có thể cho em xin đoạn code của addins này được không? Em đang cần dùng tính năng này nhưng phải sửa lại chút xíu nên xin anh đoạn code để tùy biến.
Em cám ơn anh.

Code mở mà, free hoàn toàn. Trong file bài #5 đó bạn.

 

[khaithactb]

chào bạn
Mình đang đọc cách để gửi nhiều mail cho nhiều người, mỗi người đính kèm một tệp khác nhau. mình xem ở trên và tải file sendmail.xlam nhưng không mở được . Bạn hỗ trợ mình với. Mình gửi kèm danh sách email và file dữ liệu. Phần tách các sheet ra các file mình làm được rồi nhưng phần gửi đi các email thì chưa đcj

 

[nhthien3010]

Chào các anh chị,

Em có làm thử như file anh befaint làm nhưng máy em chạy MacOs nên báo lỗi dòng Outlook.Application thì em phải sửa lại thì như thế nào ạh.

Nhân tiện cho em hỏi thêm file lương em đính kèm, nếu muốn thêm password vào mỗi file excel (pass là ID và 6 số cuối chứng minh nhân dân) thì phải làm sao nhờ anh chị chỉ giúp (em đã xem các bài có chỉ nhưng em làm không được ạh)

Cám ơn các anh ở GPE

 

[dcc1506]

Cho minh hoi, bây giờ mình muốn gửi thư mời theo danh sách email. Thứ tự thư mời là tên file word xếp theo thứ tự email để trên 1 folder. Có cách nào để gửi thư mời cùng lúc cho nhiều người. Mỗi người 1 thư trên 1 file word. Xin cảm ơn

 

[snow25]

Cho minh hoi, bây giờ mình muốn gửi thư mời theo danh sách email. Thứ tự thư mời là tên file word xếp theo thứ tự email để trên 1 folder. Có cách nào để gửi thư mời cùng lúc cho nhiều người. Mỗi người 1 thư trên 1 file word. Xin cảm ơn

Có nghĩa là bây giờ bạn có danh sách gửi thư và file word đính kèm cần gửi thư cho từng người đúng không.Nhưng vấn đề ở đây là tên của file word gửi đi có cùng tên với mail cần gửi không.Mà bạn cho cái file với vài file word ví dụ coi.

 

[Văn Mai Hương]

Em có file tính lương như file đính kèm. Em nhờ các thầy và các anh, chị giúp cho em để gửi lương cho từng người theo form có sẵn với ạ. Về nội dung email em có xem theo gợi í của bác befaint thì nều được em xin các Thầy và anh, chị giúp em theo p/a 2 (Copy luôn cái form vào nội dung mail rồi gửi cho từng nhân sự ), nếu ko thì Thầy và các anh , chị giúp cách nào cũng được. Em xin cảm ơn ạ !

 

[Văn Mai Hương]

Bạn tải 2 file dưới rồi về mở cả 2 file đó nhé.
(File .xlam là phần vba, file .xlsx là file dữ liệu của bạn)
Rồi click nút như hình:

View attachment 172016

nhập STT ở cột A sheet "Data Luong" vào 2 textbox đó...

Em ko chạy được addin, anh hướng dẫn giúp em cách chạy file SendEmail.xlam với ạ. Em đã cài addin rồi mà khi mở nó vẫn ko ra cái gì cả. Em cảm ơn anh !

 

[MinhKhai]

Em có file tính lương như file đính kèm. Em nhờ các thầy và các anh, chị giúp cho em để gửi lương cho từng người theo form có sẵn với ạ. Về nội dung email em có xem theo gợi í của bác befaint thì nều được em xin các Thầy và anh, chị giúp em theo p/a 2 (Copy luôn cái form vào nội dung mail rồi gửi cho từng nhân sự ), nếu ko thì Thầy và các anh , chị giúp cách nào cũng được. Em xin cảm ơn ạ !

Bạn dùng thử cách mình đang dùng nhé.
Mình sưu tập code trên mạng và chắp nối kiểu Macro Recorder nên cũng ngô nghê lắm. Dùng tạm nhé. Dùng được hay không thì báo lại nhé

[Xin phép được rút lại file đính kèm do người hỏi đã được đáp ứng và do trong file có tài khoản email cá nhân]

 

[batman1]

Bạn dùng thử cách mình đang dùng nhé.

Thế nếu là công ty may, có rất nhiều các cô các bác lớn tuổi *** không biết tải và cài đặt thì lấy gì để đọc PDF? Sao không làm thêm, chèn thêm bảng vào nội dung thư?

***

Newbie nhờ các cao nhân giúp đỡ về bảng nhập liệu

Em có bảng Excel trong file đính kèm, sheet 1 là mẫu khảo sát, em muốn khi mình điền xong khảo sát ấn "Nhập Liệu" thì dữ liệu sẽ tự tổng hợp vào bảng ở sheet 2. mà mã ở số phiếu ở sheet 1 quy định là nếu ấn 1 thì bảng tổng hợp sẽ tự nhận là HCNS, ấn 2 tự nhận là Kế toán. Em có tìm hiểu qua thì...

www.giaiphapexcel.com

 

[Văn Mai Hương]

Thế nếu là công ty may, có rất nhiều các cô các bác lớn tuổi *** không biết tải và cài đặt thì lấy gì để đọc PDF? Sao không làm thêm, chèn thêm bảng vào nội dung thư?

***

Newbie nhờ các cao nhân giúp đỡ về bảng nhập liệu

Em có bảng Excel trong file đính kèm, sheet 1 là mẫu khảo sát, em muốn khi mình điền xong khảo sát ấn "Nhập Liệu" thì dữ liệu sẽ tự tổng hợp vào bảng ở sheet 2. mà mã ở số phiếu ở sheet 1 quy định là nếu ấn 1 thì bảng tổng hợp sẽ tự nhận là HCNS, ấn 2 tự nhận là Kế toán. Em có tìm hiểu qua thì...

www.giaiphapexcel.com

Bác ơi, bác xem lại giúp em chứ vấn đề của em khác cái đó mà bác. Em là muốn gửi từng Phiếu lương riêng rẽ cho từng người lao động theo số liệu tính công của mỗi người mà bác. Cảm ơn bác đã note cho em !

 

[batman1]

Bác ơi, bác xem lại giúp em chứ vấn đề của em khác cái đó mà bác. Em là muốn gửi từng Phiếu lương riêng rẽ cho từng người lao động theo số liệu tính công của mỗi người mà bác. Cảm ơn bác đã note cho em !

Tôi chú thích là trong chủ đề kia có đoạn "công ty may, có rất nhiều các cô các bác lớn tuổi". Thế thôi.

 

[Văn Mai Hương]

Bạn dùng thử cách mình đang dùng nhé.
Mình sưu tập code trên mạng và chắp nối kiểu Macro Recorder nên cũng ngô nghê lắm. Dùng tạm nhé. Dùng được hay không thì báo lại nhé

Cảm ơn Minh Khai đã giúp đỡ, nhưng em chạy thì bị lỗi như sau ạ


Nhờ bác Minh Khai xem giúp em. Em xin cảm ơn !

 

[MinhKhai]

Cảm ơn Minh Khai đã giúp đỡ, nhưng em chạy thì bị lỗi như sau ạ
View attachment 229083

Nhờ bác Minh Khai xem giúp em. Em xin cảm ơn !

Cái dòng bôi đen đó, bạn xóa giúp chữ _xlsx nhé, chỉ chữ còn
Call XoaFilePdf

 

[hoangtuaotrang_hp_vn]

Bạn tải 2 file dưới rồi về mở cả 2 file đó nhé.
(File .xlam là phần vba, file .xlsx là file dữ liệu của bạn)
Rồi click nút như hình:

View attachment 172016

nhập STT ở cột A sheet "Data Luong" vào 2 textbox đó...

anh ơi, cách này đúng là phương án mà em cần, tuy nhiên anh có thể cho em xin code để tùy chỉnh theo file của em được không?
--------
P/S: đã thấy code, cảm ơn anh !

 

[hoangtuaotrang_hp_vn]

Bạn tải 2 file dưới rồi về mở cả 2 file đó nhé.
(File .xlam là phần vba, file .xlsx là file dữ liệu của bạn)
Rồi click nút như hình:

View attachment 172016

nhập STT ở cột A sheet "Data Luong" vào 2 textbox đó...

anh ơi, em có tìm hiểu code nhưng không biết cách làm, em gửi lại file dữ liệu anh làm giúp em với ạ, cảm ơn anh

 

[hoangtuaotrang_hp_vn]

@befaint : anh ơi, sau 1 hồi mày mò, thì em làm được phần dữ liệu rồi. Tuy nhiên khi nhận được mail thì phần định dạng bảng biểu bị mất, anh giúp em với ạ

 

[batman1]

@befaint : anh ơi, sau 1 hồi mày mò, thì em làm được phần dữ liệu rồi. Tuy nhiên khi nhận được mail thì phần định dạng bảng biểu bị mất, anh giúp em với ạ

Cũng hơi lạ nhưng bạn thử như sau: mở Excel đã có add-in -> Alt + F11 -> nếu VBAProject (SendEmail.xlam) chưa mở thì click dấu + để mở -> phải chuột trên Form_SendMail -> chọn View Code -> tìm đến Sub SendMail -> sau dòng Sub SendMail(chk As Boolean) thì thêm dòng

Const olFormatHTML = 2

-> tìm đến dòng With OutMail -> sau dòng With OutMail thì thêm

.BodyFormat = olFormatHTML

-> chú ý có dấu chấm đằng trước -> chọn menu File -> chọn Save SendEmail.xlam -> thử gửi thư.

 

[hoangtuaotrang_hp_vn]

Cũng hơi lạ nhưng bạn thử như sau: mở Excel đã có add-in -> Alt + F11 -> nếu VBAProject (SendEmail.xlam) chưa mở thì click dấu + để mở -> phải chuột trên Form_SendMail -> chọn View Code -> tìm đến Sub SendMail -> sau dòng Sub SendMail(chk As Boolean) thì thêm dòng

Const olFormatHTML = 2

-> tìm đến dòng With OutMail -> sau dòng With OutMail thì thêm

.BodyFormat = olFormatHTML

-> chú ý có dấu chấm đằng trước -> chọn menu File -> chọn Save SendEmail.xlam -> thử gửi thư.

anh ơi, em thử rồi mà kết quả vẫn vậy à, không có thay đổi gì hết trơn á, anh xem giùm em với