Nhờ các bác hỗ trợ hoàn thiện code vba gửi mail vba =gmail . Em muốn thêm chữ ký body tạo sẵn bên gmail Xin cảm ơn ạ.

[PhiKhanh123]

Tùy chọn rõ ràng
Private Sub CommandButton1_Click ()
Dim i As Integer
For i = 2 To Sheets ("Sheet4"). UsedRange.Rows.Count
Gọi Send_Email_With_Gmail ("@ gmail.com", Sheet2.Cells (i, 5) .Value, Sheet2.Cells (i, 7) .Value, Sheet2.Cells (i, 8) .Value, Sheet2.Cells (i, 6) ) .Value, Sheet2.Cells (i, 9) .Value)
Ứng dụng. Chờ 5000
Tiếp theo tôi
End Sub

Chạy hết code này gửi hết mail thì lỗi ạ, Em muốn thêm chữ ký body tạo sẵn bên gmail thì viết code thêm thế nào ạ . Xin cảm ơn ạ.

 

[batman1]

Private Sub CommandButton1_Click ()
Dim i As Integer
For i = 2 To Sheets ("Sheet4"). UsedRange.Rows.Count
Gọi Send_Email_With_Gmail ("@ gmail.com", Sheet2.Cells (i, 5) .Value, Sheet2.Cells (i, 7) .Value, Sheet2.Cells (i, 8) .Value, Sheet2.Cells (i, 6) ) .Value, Sheet2.Cells (i, 9) .Value)

Nhìn sMailFrom = "@gmail.com" và .Item(msConfigURL & "/sendpassword") = "pass" thì biết code chắc chắn sai.

Muốn gửi email dùng CDO, "nhờ lòng tốt" của smtp.gmail.com thì:

1. Phải có tài khoản gmail thực sự, vd. xyz@gmail.com

2. Vào tài khoản ở điểm 1 và thiết lập Xác minh 2 bước

Turn on 2-Step Verification - Computer - Google Account Help

With 2-Step Verification, also called two-factor authentication, you can add an extra layer of security to your account in case your password is stolen. After you set up 2-Step Verification, you can s

support.google.com

3. Tạo Mật khẩu ứng dụng

Ở chỗ Chọn ứng dụng thì tạo mới mục tên là Excel.

Sau khi có Mật khẩu ứng dụng thì sao chép ra một chỗ nào đấy và đóng tài khoản.

Trong code gửi thư ở dưới thì nhập xyz@gmail.com vào sender_mail, và nhập Mật khẩu ứng dụng đã nhớ ở trên vào password.

Tôi đính kèm tập tin ví dụ.

Hãy đọc chú thích để biết ý nghĩa các tham số.

Public Function send_mail(ByVal sender_mail As String, ByVal password As String, _
                ByVal subject As String, ByVal content As String, ByVal BodyHTML As Boolean, ByVal receiver As String, _
                Optional ByVal bcc As String = "", Optional ByVal cc As String = "", Optional ByVal attachment_file As String = "", _
                Optional htmlname As String = "") As Boolean
'    sender_mail: tai khoan tren gmail cua nguoi gui, vd. "xyz@gmail.com"
'    password:  mat khau ung dung
'    neu BodyHTML = True thi htmlname = duong dan toi tap tin HTML. Neu htmlname = "" thi dung content la noi dung cua HTML.
'    neu BodyHTML = True va htmlname <> "", content <> "" thi uu tien dung htmlname
'    content = noi dung thu
'    receiver = email cua nguoi nhan
'    attachment_file = tat ca cac duong dan day du toi cac tap tin finh kem phan cach boi dau phay
Dim k As Long, err_string As String, message As Object, config As Object, schema_fields, files
...

Theo tôi không có thiết lập nào để chèn chữ ký đã có của tài khoản gmail. Nhưng nếu đã biết chữ ký của gmail thì chèn nó vào cuối nội dung thư thôi.

 

[PhiKhanh123]

Dạ vì bảo mật tk gmail nên em ghi chú mẫu vào các cột có tên gmail, và pass ạ. Cám ơn ạ.

 

[nguyendang95]

CDO không còn dùng được nữa đâu. Google không còn cho phép các ứng dụng bên thứ ba đăng nhập vào Gmail bằng tài khoản + mật khẩu sau ngày 30/05.
Tham khảo thêm:

https://www.devhut.net/no-longer-use-cdo-with-gmail/