Tách bảng lương cho từng người và gởi mail hàng loạt (không dùng Outlook)

Liên hệ QC
D

dongducnhiem

Thành viên tiêu biểu
Tham gia
21/3/07
Bài viết
635
Được thích
377
Nhờ các bạn thành viên hướng dẫn tôi:
Tôi có 1 bảng lương, bây giờ tôi muốn muốn gởi mail bảng lương, nhưng chỉ người nào thì người đó nhận (tách ra dòng nào của người nào thì gởi cho người đó)
Tôi đọc trên diễn đàn thấy phải sử dụng Outlook, do tôi không dùng Outlook thì có gởi được không?
Ví dụ tôi dùng email: ctyabc@gmail.com , pass: 123 để gởi
Nếu làm được thì nhờ các bạn giúp. Cảm ơn các bạn
 

File đính kèm

  • Goiluong.xlsx
    15.4 KB · Đọc: 38
Sắp xếp theo thời gian sắp xếp theo bầu chọn
dongducnhiem đã viết:
Nhờ các bạn thành viên hướng dẫn tôi:
Tôi có 1 bảng lương, bây giờ tôi muốn muốn gởi mail bảng lương, nhưng chỉ người nào thì người đó nhận (tách ra dòng nào của người nào thì gởi cho người đó)
Tôi đọc trên diễn đàn thấy phải sử dụng Outlook, do tôi không dùng Outlook thì có gởi được không?
Ví dụ tôi dùng email: ctyabc@gmail.com , pass: 123 để gởi
Nếu làm được thì nhờ các bạn giúp. Cảm ơn các bạn
Nhấp chuột vào đây để mở rộng...
Không có thì cài vào mà sử dụng.Nó là công cụ để gửi mail mà.
 
Upvote 0
dongducnhiem đã viết:
Nhờ các bạn thành viên hướng dẫn tôi:
Tôi có 1 bảng lương, bây giờ tôi muốn muốn gởi mail bảng lương, nhưng chỉ người nào thì người đó nhận (tách ra dòng nào của người nào thì gởi cho người đó)
Tôi đọc trên diễn đàn thấy phải sử dụng Outlook, do tôi không dùng Outlook thì có gởi được không?
Ví dụ tôi dùng email: ctyabc@gmail.com , pass: 123 để gởi
Nếu làm được thì nhờ các bạn giúp. Cảm ơn các bạn
Nhấp chuột vào đây để mở rộng...
Mình tặng bạn cái send mail bằng CDO ( không dùng Outlook) theo hướng dẫn của bác @batman1 nha.
 

File đính kèm

  • Send mail CDO.xlsm
    29.2 KB · Đọc: 128
Upvote 0
dongducnhiem đã viết:
Nhờ các bạn thành viên hướng dẫn tôi:
Tôi có 1 bảng lương, bây giờ tôi muốn muốn gởi mail bảng lương, nhưng chỉ người nào thì người đó nhận (tách ra dòng nào của người nào thì gởi cho người đó)
Tôi đọc trên diễn đàn thấy phải sử dụng Outlook, do tôi không dùng Outlook thì có gởi được không?
Ví dụ tôi dùng email: ctyabc@gmail.com , pass: 123 để gởi
Nếu làm được thì nhờ các bạn giúp. Cảm ơn các bạn
Nhấp chuột vào đây để mở rộng...
Bạn xem bài của tôi hướng dẫn cho 1 bạn trên này https://www.giaiphapexcel.com/diendan/threads/gửi-email-tự-động-trong-excel.150589/ (file chạy tốt ở bài #12)
 
Upvote 0
snow25 đã viết:
Không có thì cài vào mà sử dụng.Nó là công cụ để gửi mail mà.
Nhấp chuột vào đây để mở rộng...
Cũng đã từng cài nhưng hỏi 1 số thông tin gì đó như tên miền ...???
Bài đã được tự động gộp:

batman1 đã viết:
Trên diễn đàn cũng có code để gửi thư không dùng Outlook mà dùng CDO. Hãy sử dụng công cụ tìm kiếm trong GPE - góc trên bên phải.
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn, tôi sẽ tìm hiểu, nếu tôi không hiểu thì mong bạn giúp đỡ
Bài đã được tự động gộp:

thnghiachau đã viết:
Mình tặng bạn cái send mail bằng CDO ( không dùng Outlook) theo hướng dẫn của bác @batman1 nha.
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn để tôi nghiên cứu thử
Bài đã được tự động gộp:

Maika8008 đã viết:
Bạn xem bài của tôi hướng dẫn cho 1 bạn trên này https://www.giaiphapexcel.com/diendan/threads/gửi-email-tự-động-trong-excel.150589/ (file chạy tốt ở bài #12)
Nhấp chuột vào đây để mở rộng...
Đã đọc sơ lược chủ đề trên, để tôi áp dụng vào file, nếu tôi có bị khúc mắc chỗ nào thì vui lòng giúp tôi
 
Upvote 0
Maika8008 đã viết:
Bạn xem bài của tôi hướng dẫn cho 1 bạn trên này https://www.giaiphapexcel.com/diendan/threads/gửi-email-tự-động-trong-excel.150589/ (file chạy tốt ở bài #12)
Nhấp chuột vào đây để mở rộng...
Tôi đã tìm hiểu chủ đề trên, tôi tạm lấy bảng lương bên đó để thử, trong file tôi có ghi điền thêm thông tin email và trong code tôi có điều chỉnh như sau
Mã: 
'Duong dan cua Workbook dang lam
    FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm"
    Mymail = "dongducnhiem@gmail.com"  'Thay mail thuc cua ban vao day
    Mypass = "***********"  'Thay mat khau thuc cua ban vao day (duoc tao ra trong Setting cua Gmail de dung cho EMail)
Ở trên tôi chỉnh sửa cho đúng thông tin (riêng phần pass của email thì khi đưa lên đây tôi đã sửa lại)
Mã: 
Sub SendEmailUsingGmail_New()
    Dim Email_Subject As String, Email_Send_To As String, Email_Cc As String, Email_Bcc As String, Email_Body As String
    Dim NewMail As CDO.Message
    Dim FPath As String, MyAtt As String
    Dim Mymail As String, Mypass As String
    Dim StartPerson As Long, EndPerson As Long, i As Long


    'Duong dan cua Workbook dang lam
    FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm"
    Mymail = "dongducnhiem@gmail.com"  'Thay mail thuc cua ban vao day
    Mypass = "***********"  'Thay mat khau thuc cua ban vao day (duoc tao ra trong Setting cua Gmail de dung cho EMail)
    StartPerson = Range("D1")
    EndPerson = Range("F1")

    Set NewMail = New CDO.Message

    'Cau hinh email
    With NewMail

        'Bat SSL Authentication
        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

        'Bat SMTP authentication
        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        'Cung cap thong tin may chu SMTP
        '(Lay tu phan Cai dat cua tai khoan Gmail)
        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

        'Nhap thông tin dang nhap Gmail
        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/sendusername") = Mymail

        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Mypass

        'Cap nhat toan bo cau hinh
        .Configuration.Fields.Update
    End With

    'Bat dau gui nhieu email
    For i = StartPerson To EndPerson
        Range("D1") = i
        'Goi thu tuc tao picture
        ''''ExportRange Range("A5:F17"), ThisWorkbook.Path & "D:\Data\BangLuong.xlsm" & "Screenshot.jpg"    'Thay doi thong tin neu co

        'Neu khong có email thi khong thi hanh
        '        On Error Resume Next
        If Range("D3").Value <> "" And Range("D3").Value <> 0 Then
            'Thong tin can thiet cua email
            Email_Subject = Range("H1")
            Email_Bcc = Range("D3")
            Email_Body = Range("H2")
'''            MyAtt = FPath & "Screenshot.jpg"  'anh dinh kem
'''            NewMail.AddAttachment MyAtt

            '        On Error GoTo 0
            'Gui mail
            With NewMail
                .BodyPart.Charset = "utf-8"
                .From = Mymail
                .To = ""          'Neu gui cho nhieu mail thi phan cach bang dau CHAM PHAY (;) VD: "abc@gmail.com;xyz@yahoo.com"
                .CC = ""
                .BCC = Email_Bcc  'Mac dinh o day khong gui bang TO va CC, chi gui bang BCC. Neu k muon BCC thi chuyen Email_Bcc len To hoac CC
                .HTMLBody = Email_Body
                .Subject = Email_Subject & " (Sent at: " & Format(Now, "dd/mm/yyyy hh:mm:ss") & ")"
                On Error GoTo Loi
                .Send
                .Attachments.DeleteAll
                MyAtt = ""
            End With
        End If
    Next i

    'Giai phong bien NewMail
    Set NewMail = Nothing
    Range("D1") = StartPerson
    MsgBox ("Gui xong!")

Loi:
    If Err.Number = -2147220973 Then
        MsgBox "Khong co ket noi Internet!!!!"
    ElseIf Err.Number = -2147220975 Then
        MsgBox "Thong tin dang nhap email khong dung!!!!"
    End If

End Sub
Ghi chú: chỗ nào có 3 dấu ''' là tôi bỏ đoạn code đó
Tôi bắt đầu chạy code tên là :SendEmailUsingGmail_New
Chứ không bấm vào cái khung "giử email"
Khi chạy code thì bị báo lỗi "Thong tin dang nhap email khong dung!!!!"
Tôi không biết là cần phải thêm thông tin nào nữa không?
Ngoài ra, cho tôi hỏi tôi muốn dán chết các công thức trước khi gởi thì cần phải làm thêm gì nữa (vì sợ file qua người nhận thì công thức nó thành Value hay N/A)
Mong bạn Maika8008 hay bạn nào biết vấn đề này thì giúp tôi
Cảm ơn các bạn nhiều!
 

File đính kèm

  • BangLuong.xlsm
    77.4 KB · Đọc: 27
Upvote 0
dongducnhiem đã viết:
Tôi đã tìm hiểu chủ đề trên, tôi tạm lấy bảng lương bên đó để thử, trong file tôi có ghi điền thêm thông tin email và trong code tôi có điều chỉnh như sau
Mã: 
'Duong dan cua Workbook dang lam
    FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm"
    Mymail = "dongducnhiem@gmail.com"  'Thay mail thuc cua ban vao day
    Mypass = "***********"  'Thay mat khau thuc cua ban vao day (duoc tao ra trong Setting cua Gmail de dung cho EMail)
Ở trên tôi chỉnh sửa cho đúng thông tin (riêng phần pass của email thì khi đưa lên đây tôi đã sửa lại)
Mã: 
Sub SendEmailUsingGmail_New()
    Dim Email_Subject As String, Email_Send_To As String, Email_Cc As String, Email_Bcc As String, Email_Body As String
    Dim NewMail As CDO.Message
    Dim FPath As String, MyAtt As String
    Dim Mymail As String, Mypass As String
    Dim StartPerson As Long, EndPerson As Long, i As Long


    'Duong dan cua Workbook dang lam
    FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm"
    Mymail = "dongducnhiem@gmail.com"  'Thay mail thuc cua ban vao day
    Mypass = "***********"  'Thay mat khau thuc cua ban vao day (duoc tao ra trong Setting cua Gmail de dung cho EMail)
    StartPerson = Range("D1")
    EndPerson = Range("F1")

    Set NewMail = New CDO.Message

    'Cau hinh email
    With NewMail

        'Bat SSL Authentication
        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

        'Bat SMTP authentication
        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        'Cung cap thong tin may chu SMTP
        '(Lay tu phan Cai dat cua tai khoan Gmail)
        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

        'Nhap thông tin dang nhap Gmail
        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/sendusername") = Mymail

        .Configuration.Fields.Item _
                ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Mypass

        'Cap nhat toan bo cau hinh
        .Configuration.Fields.Update
    End With

    'Bat dau gui nhieu email
    For i = StartPerson To EndPerson
        Range("D1") = i
        'Goi thu tuc tao picture
        ''''ExportRange Range("A5:F17"), ThisWorkbook.Path & "D:\Data\BangLuong.xlsm" & "Screenshot.jpg"    'Thay doi thong tin neu co

        'Neu khong có email thi khong thi hanh
        '        On Error Resume Next
        If Range("D3").Value <> "" And Range("D3").Value <> 0 Then
            'Thong tin can thiet cua email
            Email_Subject = Range("H1")
            Email_Bcc = Range("D3")
            Email_Body = Range("H2")
'''            MyAtt = FPath & "Screenshot.jpg"  'anh dinh kem
'''            NewMail.AddAttachment MyAtt

            '        On Error GoTo 0
            'Gui mail
            With NewMail
                .BodyPart.Charset = "utf-8"
                .From = Mymail
                .To = ""          'Neu gui cho nhieu mail thi phan cach bang dau CHAM PHAY (;) VD: "abc@gmail.com;xyz@yahoo.com"
                .CC = ""
                .BCC = Email_Bcc  'Mac dinh o day khong gui bang TO va CC, chi gui bang BCC. Neu k muon BCC thi chuyen Email_Bcc len To hoac CC
                .HTMLBody = Email_Body
                .Subject = Email_Subject & " (Sent at: " & Format(Now, "dd/mm/yyyy hh:mm:ss") & ")"
                On Error GoTo Loi
                .Send
                .Attachments.DeleteAll
                MyAtt = ""
            End With
        End If
    Next i

    'Giai phong bien NewMail
    Set NewMail = Nothing
    Range("D1") = StartPerson
    MsgBox ("Gui xong!")

Loi:
    If Err.Number = -2147220973 Then
        MsgBox "Khong co ket noi Internet!!!!"
    ElseIf Err.Number = -2147220975 Then
        MsgBox "Thong tin dang nhap email khong dung!!!!"
    End If

End Sub
Ghi chú: chỗ nào có 3 dấu ''' là tôi bỏ đoạn code đó
Tôi bắt đầu chạy code tên là :SendEmailUsingGmail_New
Chứ không bấm vào cái khung "giử email"
Khi chạy code thì bị báo lỗi "Thong tin dang nhap email khong dung!!!!"
Tôi không biết là cần phải thêm thông tin nào nữa không?
Ngoài ra, cho tôi hỏi tôi muốn dán chết các công thức trước khi gởi thì cần phải làm thêm gì nữa (vì sợ file qua người nhận thì công thức nó thành Value hay N/A)
Mong bạn Maika8008 hay bạn nào biết vấn đề này thì giúp tôi
Cảm ơn các bạn nhiều!
Nhấp chuột vào đây để mở rộng...
Vì code đã bẫy lỗi này nên tôi chắc chắn là Google chưa cho phép bạn đăng nhập từ Excel để gửi mail rồi!
Để Google cho phép đăng nhập từ ứng dụng khác như Excel thì:
- Đối với mail chưa xác minh 2 bước, cần bật chức năng cho phép ứng dụng kém an toàn tại Setting của Gmail và dùng mật khẩu đăng nhập bình thường như tại giao diện đăng nhập của Gmail.
- Nhưng đối với email đã bật xác minh 2 bước, cần tạo mật khẩu ứng dụng riêng cho Thư (Mail hay Email gì đó bằng tiếng Anh) tại Setting. Mật khẩu này là 1 dãy ký tự lộn xộn, bạn cần lưu để dùng nhiều lần sau. Nhập MK đã tạo vào code.

Còn về việc công thức, bạn yên tâm, các ứng dụng tương tự như thế này chỉ lấy giá trị trong cell thôi.
 
Lần chỉnh sửa cuối:
Upvote 0
Với gmail mà làm như vậy thì mình đoán 99% là không gửi được mail đi.
 
Upvote 0
befaint đã viết:
Hướng dẫn mới vẫn giữ nguyên 99% không gửi mail đi được nhé.
Nhấp chuột vào đây để mở rộng...
Hihi, không biết thế nào chứ tôi thử mấy chục lần trước hướng dẫn này. Thử mail không xác minh 2 bước, mail có xác minh 2 bước.

P/S: hay là bạn inbox địa chỉ mail, tôi sẽ gửi cho bạn bằng code này xem, chứ tôi gửi cho các mail của tôi nhiều rồi.
 
Upvote 0
Vậy giờ tăng lên thành 100% không gửi được. Híc.
 
Upvote 0
befaint đã viết:
Vậy giờ tăng lên thành 100% không gửi được. Híc.
Nhấp chuột vào đây để mở rộng...
Tôi mới chép code #7 về để thử chạy thì thấy ngay chỗ này FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm". Chắc đúng 100% không gửi được :wallbash:

Chà, bạn ấy sửa từa lưa, nhiều chỗ sai quá. Mệt! Bạn nói đúng, 100% nhỉ!
 
Lần chỉnh sửa cuối:
Upvote 0
Code của bạn không thuộc loại chuyên nghiệp để có thể đem khoe. Vd. FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm"
Nếu tập tin có đường dẫn là "D:\Data\BangLuong.xlsm" thì FPath = "D:\DataD:\Data\BangLuong.xlsm". Rõ ràng là sai. Nhưng do tiếp theo trong code không sử dụng FPath nên không thể đổ lỗi cho nó khi không gửi được thư.

Code không gửi được thư vì một lẽ đơn giản mà người ta không nói ra cho bạn biết. Người ta chơi trò ú tim thôi.

Thực ra code CDO chỉ là code CDO. Chuyện gửi được hay không không dính dáng gì tới CDO. Tôi cho bạn ví dụ. Bạn dùng Outlook để gửi thư. Bạn đăng ký 1 tài khoản gmail. Lập tài khoản gmail xong bạn chả thiết lập gì cả. Bây giờ trong Outlook bạn phải cấu hình cho tài khoản gmail kia. Nếu bạn không làm hoặc làm không chuẩn thì không chỉ Outlook mà cả bố và ông nội của Outlook cũng không được cấu hình để gửi thư. Và cái cấu hình kia nó chả dính dáng gì tới Outlook, nó chả phải là lỗi của Outlook. Nó cũng chả dính dáng gì tới CDO, chả phải là lỗi của CDO. Muốn dùng được trong Outlook hay với CDO thì đều phải có thiết lập tối thiểu. Thế thôi.

Tôi vừa tự tạo 1 tài khoản ví dụ là chala***@gmail.com với mật khẩu là matkhau***. Sau đó tôi đăng nhập vào tài khoản và tôi "bật ON", "cho phép" "Các phần mềm ít an toàn có quyền truy cập"

onoff.jpg

Tôi chỉ làm duy nhất 1 việc này. Về việc thiết lập cho tài khoản gmail thì bạn hỏi thêm trên GPE. Nếu người ta không trả lời thì bạn đọc trên mạng cũng được. Có gì quan trọng đâu mà phải giấu giấu giếm giếm. Tôi chỉ thiết lập 1 cái duy nhất thôi. Nếu không thiết lập cái này thì gmail sẽ chặn mọi truy cập từ CDO, Outlook ... Tất nhiên nếu bạn để ý thì sẽ thấy nó không âm thầm chặn. Nó có thông báo cho bạn đấy. Khi bạn đăng nhập vào tài khoản thì bạn sẽ thấy.

Tôi tin rằng bạn sẽ gửi được thư dù code hiện có của bạn không phải là code chuyên nghiệp. Vì nó không sai (tôi nhìn lướt qua thôi).
 
Lần chỉnh sửa cuối:
Upvote 0
Vậy là làm gì thì làm thì bắt buộc phải cấu hình gmail
 
Upvote 0
Maika8008 đã viết:
Tôi mới chép code #7 về để thử chạy thì thấy ngay chỗ này FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm". Chắc đúng 100% không gửi được :wallbash:

Chà, bạn ấy sửa từa lưa, nhiều chỗ sai quá. Mệt! Bạn nói đúng, 100% nhỉ!
Nhấp chuột vào đây để mở rộng...
Chào bạn
1/ Căn cứ vào code ở chủ đề mà bạn đã cho đường link tôi chỉ thêm:
- đường dẫn file ở thư mục có chứa tên file cần gửi
2/ Tên email & pass của người gởi
3/ bỏ đi 1 số đoạn không có liên quan (ví dụ: gởi hình ảnh gì đó đính kèm)(thực tế thì tôi sửa code theo sự cảm nhận chứ hoàn toàn chưa hiểu code của bạn)
4/ Đúng là gmail của tôi có sử dụng 2 lớp bảo mật, nhưng sau đó tôi dùng 1 tài khoản gmail không có 2 lớp bảo mật thì cũng bị báo lỗi "Thong tin dang nhap email khong dung!!!!"
Như vậy, không biết có cần sửa gì nữa trong tài khoản gmail không? cảm ơn các bạn
Bài đã được tự động gộp:

batman1 đã viết:
Code của bạn không thuộc loại chuyên nghiệp để có thể đem khoe. Vd. FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm"
Nếu tập tin có đường dẫn là "D:\Data\BangLuong.xlsm" thì FPath = "D:\DataD:\Data\BangLuong.xlsm". Rõ ràng là sai. Nhưng do tiếp theo trong code không sử dụng FPath nên không thể đổ lỗi cho nó khi không gửi được thư.

Code không gửi được thư vì một lẽ đơn giản mà người ta không nói ra cho bạn biết. Người ta chơi trò ú tim thôi.

Thực ra code CDO chỉ là code CDO. Chuyện gửi được hay không không dính dáng gì tới CDO. Tôi cho bạn ví dụ. Bạn dùng Outlook để gửi thư. Bạn đăng ký 1 tài khoản gmail. Lập tài khoản gmail xong bạn chả thiết lập gì cả. Bây giờ trong Outlook bạn phải cấu hình cho tài khoản gmail kia. Nếu bạn không làm hoặc làm không chuẩn thì không chỉ Outlook mà cả bố và ông nội của Outlook cũng không được cấu hình để gửi thư. Và cái cấu hình kia nó chả dính dáng gì tới Outlook, nó chả phải là lỗi của Outlook. Nó cũng chả dính dáng gì tới CDO, chả phải là lỗi của CDO. Muốn dùng được trong Outlook hay với CDO thì đều phải có thiết lập tối thiểu. Thế thôi.

Tôi vừa tự tạo 1 tài khoản ví dụ là chala***@gmail.com với mật khẩu là matkhau***. Sau đó tôi đăng nhập vào tài khoản và tôi "bật ON", "cho phép" "Các phần mềm ít an toàn có quyền truy cập"

View attachment 240859

Tôi chỉ làm duy nhất 1 việc này. Về việc thiết lập cho tài khoản gmail thì bạn hỏi thêm trên GPE. Nếu người ta không trả lời thì bạn đọc trên mạng cũng được. Có gì quan trọng đâu mà phải giấu giấu giếm giếm. Tôi chỉ thiết lập 1 cái duy nhất thôi. Nếu không thiết lập cái này thì gmail sẽ chặn mọi truy cập từ CDO, Outlook ... Tất nhiên nếu bạn để ý thì sẽ thấy nó không âm thầm chặn. Nó có thông báo cho bạn đấy. Khi bạn đăng nhập vào tài khoản thì bạn sẽ thấy.

Tôi tin rằng bạn sẽ gửi được thư dù code hiện có của bạn không phải là code chuyên nghiệp. Vì nó không sai (tôi nhìn lướt qua thôi).
Nhấp chuột vào đây để mở rộng...
Tôi đã vào tài khoản google để chỉnh sửa theo như hình của bạn nhưng không thấy mục "Allow less secure apps" đển chuyển sang ON
Cảm ơn sự hướng dẫn nhiệt tình của bạnUntitled-1.png
 
Lần chỉnh sửa cuối:
Upvote 0
dongducnhiem đã viết:
Chào bạn
1/ Căn cứ vào code ở chủ đề mà bạn đã cho đường link tôi chỉ thêm:
- đường dẫn file ở thư mục có chứa tên file cần gửi
2/ Tên email & pass của người gởi
3/ bỏ đi 1 số đoạn không có liên quan (ví dụ: gởi hình ảnh gì đó đính kèm)(thực tế thì tôi sửa code theo sự cảm nhận chứ hoàn toàn chưa hiểu code của bạn)
4/ Đúng là gmail của tôi có sử dụng 2 lớp bảo mật, nhưng sau đó tôi dùng 1 tài khoản gmail không có 2 lớp bảo mật thì cũng bị báo lỗi "Thong tin dang nhap email khong dung!!!!"
Như vậy, không biết có cần sửa gì nữa trong tài khoản gmail không? cảm ơn các bạn
Nhấp chuột vào đây để mở rộng...
Làm như #17: Allow less secure apps: ON (cho phép các ứng dụng kém an toàn hơn)
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

NguyenNhan789556
  • Question
Viết code trong VBA
Trả lời
14
Đọc
90
NguyenNhan789556
NguyenNhan789556
N
HÀM TÌM KIẾM CÓ ĐIỀU KIỆN
Trả lời
9
Đọc
342
hungleanh
H
E
Nhờ các anh/chị giúp đỡ VBA trích xuất dữ liệu ra bảng biểu cố định
Trả lời
6
Đọc
18
enzo6886
E
Bich2B
lỗi định dạng ngày không đọc được công thức excel
Trả lời
1
Đọc
2
Hoàng Tuấn 868
H
hongphuong1997
  • Question
Lấy ký tự trong chuỗi theo nhiều điều kiện
Trả lời
10
Đọc
145
Hoàng Tuấn 868
H
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom