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

dongducnhiem · 9/7/20

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

snow25 · 9/7/20

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

Không có thì cài vào mà sử dụng.Nó là công cụ để gửi mail mà.

batman1 · 9/7/20

dongducnhiem đã viết:
Tôi đọc trên diễn đàn thấy phải sử dụng Outlook,

Trên diễn đàn cũng có code để gửi thư không dùng Outlook mà dùng CDO. Hãy sử dụng công cụ tìm kiếm trong GPE - góc trên bên phải.

thnghiachau · 9/7/20

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

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.

Maika8008 · 9/7/20

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

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)

dongducnhiem · 9/7/20

snow25 đã viết:
Không có thì cài vào mà sử dụng.Nó là công cụ để gửi mail mà.

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: 9/7/20

batman1 đã viết:
Trên diễn đàn cũng có code để gửi thư không dùng Outlook mà dùng CDO. Hãy sử dụng công cụ tìm kiếm trong GPE - góc trên bên phải.

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: 9/7/20

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.

Cảm ơn bạn để tôi nghiên cứu thử

Bài đã được tự động gộp: 9/7/20

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)

Đã đọ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

dongducnhiem · 9/7/20

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)

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!

Maika8008 · 9/7/20

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!

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.

befaint · 9/7/20

Với gmail mà làm như vậy thì mình đoán 99% là không gửi được mail đi.

Maika8008 · 9/7/20

befaint đã viết:
Với gmail mà làm như vậy thì mình đoán 99% là không gửi được mail đi.

Ờ, tôi post hướng dẫn cho bạn ấy mà chưa đọc nhận xét của bạn. Theo HD này thì 99% đó sẽ được cộng vào 1% :1a:

befaint · 9/7/20

Maika8008 đã viết:
Ờ, tôi post hướng dẫn cho bạn ấy mà chưa đọc nhận xét của bạn. Theo HD này thì 99% đó sẽ được cộng vào 1%

Hướng dẫn mới vẫn giữ nguyên 99% không gửi mail đi được nhé.

Maika8008 · 9/7/20

befaint đã viết:
Hướng dẫn mới vẫn giữ nguyên 99% không gửi mail đi được nhé.

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.

befaint · 9/7/20

Vậy giờ tăng lên thành 100% không gửi được. Híc.

Maika8008 · 9/7/20

befaint đã viết:
Vậy giờ tăng lên thành 100% không gửi được. Híc.

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

ongke0711 · 9/7/20

befaint đã viết:
Hướng dẫn mới vẫn giữ nguyên 99% không gửi mail đi được nhé.

Phải thiết lập Google Security: Allow less secure app ON đúng không befaint?

befaint · 9/7/20

ongke0711 đã viết:
Phải thiết lập Google Security: Allow less secure app ON đúng không befaint?

Thiết lập 3 chỗ anh: Bật giao thức (POP or IAMP), tắt bảo mật 2 bước, và cái anh vừa nói.

batman1 · 10/7/20

Code của bạn không thuộc loại chuyên nghiệp để có thể đem khoe. Vd. FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm"
Nếu tập tin có đường dẫn là "D:\Data\BangLuong.xlsm" thì FPath = "D:\DataD:\Data\BangLuong.xlsm". Rõ ràng là sai. Nhưng do tiếp theo trong code không sử dụng FPath nên không thể đổ lỗi cho nó khi không gửi được thư.

Code không gửi được thư vì một lẽ đơn giản mà người ta không nói ra cho bạn biết. Người ta chơi trò ú tim thôi.

Thực ra code CDO chỉ là code CDO. Chuyện gửi được hay không không dính dáng gì tới CDO. Tôi cho bạn ví dụ. Bạn dùng Outlook để gửi thư. Bạn đăng ký 1 tài khoản gmail. Lập tài khoản gmail xong bạn chả thiết lập gì cả. Bây giờ trong Outlook bạn phải cấu hình cho tài khoản gmail kia. Nếu bạn không làm hoặc làm không chuẩn thì không chỉ Outlook mà cả bố và ông nội của Outlook cũng không được cấu hình để gửi thư. Và cái cấu hình kia nó chả dính dáng gì tới Outlook, nó chả phải là lỗi của Outlook. Nó cũng chả dính dáng gì tới CDO, chả phải là lỗi của CDO. Muốn dùng được trong Outlook hay với CDO thì đều phải có thiết lập tối thiểu. Thế thôi.

Tôi vừa tự tạo 1 tài khoản ví dụ là chala***@gmail.com với mật khẩu là matkhau***. Sau đó tôi đăng nhập vào tài khoản và tôi "bật ON", "cho phép" "Các phần mềm ít an toàn có quyền truy cập"

Tôi chỉ làm duy nhất 1 việc này. Về việc thiết lập cho tài khoản gmail thì bạn hỏi thêm trên GPE. Nếu người ta không trả lời thì bạn đọc trên mạng cũng được. Có gì quan trọng đâu mà phải giấu giấu giếm giếm. Tôi chỉ thiết lập 1 cái duy nhất thôi. Nếu không thiết lập cái này thì gmail sẽ chặn mọi truy cập từ CDO, Outlook ... Tất nhiên nếu bạn để ý thì sẽ thấy nó không âm thầm chặn. Nó có thông báo cho bạn đấy. Khi bạn đăng nhập vào tài khoản thì bạn sẽ thấy.

Tôi tin rằng bạn sẽ gửi được thư dù code hiện có của bạn không phải là code chuyên nghiệp. Vì nó không sai (tôi nhìn lướt qua thôi).

Quochuyhdbt · 10/7/20

Vậy là làm gì thì làm thì bắt buộc phải cấu hình gmail

dongducnhiem · 10/7/20

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

Chà, bạn ấy sửa từa lưa, nhiều chỗ sai quá. Mệt! Bạn nói đúng, 100% nhỉ!

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: 10/7/20

batman1 đã viết:
Code của bạn không thuộc loại chuyên nghiệp để có thể đem khoe. Vd. FPath = ThisWorkbook.Path & "D:\Data\BangLuong.xlsm"
Nếu tập tin có đường dẫn là "D:\Data\BangLuong.xlsm" thì FPath = "D:\DataD:\Data\BangLuong.xlsm". Rõ ràng là sai. Nhưng do tiếp theo trong code không sử dụng FPath nên không thể đổ lỗi cho nó khi không gửi được thư.

Code không gửi được thư vì một lẽ đơn giản mà người ta không nói ra cho bạn biết. Người ta chơi trò ú tim thôi.

Thực ra code CDO chỉ là code CDO. Chuyện gửi được hay không không dính dáng gì tới CDO. Tôi cho bạn ví dụ. Bạn dùng Outlook để gửi thư. Bạn đăng ký 1 tài khoản gmail. Lập tài khoản gmail xong bạn chả thiết lập gì cả. Bây giờ trong Outlook bạn phải cấu hình cho tài khoản gmail kia. Nếu bạn không làm hoặc làm không chuẩn thì không chỉ Outlook mà cả bố và ông nội của Outlook cũng không được cấu hình để gửi thư. Và cái cấu hình kia nó chả dính dáng gì tới Outlook, nó chả phải là lỗi của Outlook. Nó cũng chả dính dáng gì tới CDO, chả phải là lỗi của CDO. Muốn dùng được trong Outlook hay với CDO thì đều phải có thiết lập tối thiểu. Thế thôi.

Tôi vừa tự tạo 1 tài khoản ví dụ là chala***@gmail.com với mật khẩu là matkhau***. Sau đó tôi đăng nhập vào tài khoản và tôi "bật ON", "cho phép" "Các phần mềm ít an toàn có quyền truy cập"

View attachment 240859

Tôi chỉ làm duy nhất 1 việc này. Về việc thiết lập cho tài khoản gmail thì bạn hỏi thêm trên GPE. Nếu người ta không trả lời thì bạn đọc trên mạng cũng được. Có gì quan trọng đâu mà phải giấu giấu giếm giếm. Tôi chỉ thiết lập 1 cái duy nhất thôi. Nếu không thiết lập cái này thì gmail sẽ chặn mọi truy cập từ CDO, Outlook ... Tất nhiên nếu bạn để ý thì sẽ thấy nó không âm thầm chặn. Nó có thông báo cho bạn đấy. Khi bạn đăng nhập vào tài khoản thì bạn sẽ thấy.

Tôi tin rằng bạn sẽ gửi được thư dù code hiện có của bạn không phải là code chuyên nghiệp. Vì nó không sai (tôi nhìn lướt qua thôi).

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ạn

Maika8008 · 10/7/20

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

Làm như #17: Allow less secure apps: ON (cho phép các ứng dụng kém an toàn hơn)

dongducnhiem · 10/7/20

Maika8008 đã viết:
Làm như #17: Allow less secure apps: ON (cho phép các ứng dụng kém an toàn hơn)

Đã vào tài khoản rồi mà không thấy mục đó (bạn vui lòng đọc thêm bài trên phần tôi gởi cho anh batman1)

Maika8008 · 10/7/20

dongducnhiem đã viết:
Đã vào tài khoản rồi mà không thấy mục đó (bạn vui lòng đọc thêm bài trên phần tôi gởi cho anh batman1)

Bạn search nguyên câu tiếng Anh kia là có hướng dẫn có khó gì đâu

dongducnhiem · 10/7/20

Maika8008 đã viết:
Bạn search nguyên câu tiếng Anh kia là có hướng dẫn có khó gì đâu

Search tiếng anh thì bình thường, nhưng sau khi bấm Learn more thì đọc có vẻ trang web hướng dẫn thêm chứ không có mục như trên để chuyển sang On

Maika8008 · 10/7/20

dongducnhiem đã viết:
Search tiếng anh thì bình thường, nhưng sau khi bấm Learn more thì đọc có vẻ trang web hướng dẫn thêm chứ không có mục như trên để chuyển sang On

Tìm thấy liền mà! Mấy link đầu không được thì xuống mấy link dưới

Bài đã được tự động gộp: 10/7/20

thnghiachau · 10/7/20

dongducnhiem đã viết:
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!

Tôi gởi lại file đạ chỉnh sửa và test trên account gmail của tôi luôn rồi.
Chạy phè phè với cách chỉnh lại trên Gmail account như các anh viết các bài phía trên!
"Bật giao thức (POP or IAMP), tắt bảo mật 2 bước, và thiết lập Allow less secure app -> ON"
Anh @batman1 ơi, code em vừa làm này còn hạn chế nhiều... em chỉ giúp bạn @dongducnhiem thôi nha, đừng la code em không chuyên nghiệp mà đem khoe nha... tội em lắm ah....

ongke0711 · 10/7/20

Đổi port: 465

dongducnhiem · 10/7/20

Maika8008 đã viết:
Tìm thấy liền mà! Mấy link đầu không được thì xuống mấy link dưới
View attachment 240866 View attachment 240867

Bài đã được tự động gộp: 10/7/20

View attachment 240868

Cảm ơn bạn đã giúp nhiệt tình
1/ Về phần bỏ bảo mật và 2 lớp tôi đã làm xong, nhưng khi gởi mail thì bên gởi & nhận chỉ có Tiêu đề và nội dung chứ không có bảng lương excel đính kèm
Tôi có đọc bài bên chủ đề bạn cho thì tôi vào và check đủ các yêu cầu (vui lòng xem hình đính kèm)
nhờ em xem giúp! Chân thành cảm ơn!

thnghiachau · 10/7/20

ongke0711 đã viết:
Đổi port: 465

Đúng rùi...

dongducnhiem đã viết:
Cảm ơn bạn đã giúp nhiệt tình
1/ Về phần bỏ bảo mật và 2 lớp tôi đã làm xong, nhưng khi gởi mail thì bên gởi & nhận chỉ có Tiêu đề và nội dung chứ không có bảng lương excel đính kèm
Tôi có đọc bài bên chủ đề bạn cho thì tôi vào và check đủ các yêu cầu (vui lòng xem hình đính kèm)
nhờ em xem giúp! Chân thành cảm ơn!View attachment 240878

Xem bài #25 lại đi anh!
Em làm send Attached file PDF ah

Maika8008 · 10/7/20

thnghiachau đã viết:
Tôi gởi lại file đạ chỉnh sửa và test trên account gmail của tôi luôn rồi.
Chạy phè phè với cách chỉnh lại trên Gmail account như các anh viết các bài phía trên!
"Bật giao thức (POP or IAMP), tắt bảo mật 2 bước, và thiết lập Allow less secure app -> ON"
Anh @batman1 ơi, code em vừa làm này còn hạn chế nhiều... em chỉ giúp bạn @dongducnhiem thôi nha, đừng la code em không chuyên nghiệp mà đem khoe nha... tội em lắm ah....

Như chỗ chữ đậm của bạn là OK. Khi hướng dẫn, tôi thường quên mất vụ Bật giao thức (POP or IAMP) vì trước đó đã bật để sử dụng được app mail trên điện thoại. Tuy nhiên, bảo mật 2 bước không cần tắt bạn à. Chỉ cần tạo mật khẩu ứng dụng (nhớ chọn ứng dụng Thư) trong Bảo mật của Google Account là dùng được.

ongke0711 · 10/7/20

dongducnhiem đã viết:
Cảm ơn bạn đã giúp nhiệt tình
1/ Về phần bỏ bảo mật và 2 lớp tôi đã làm xong, nhưng khi gởi mail thì bên gởi & nhận chỉ có Tiêu đề và nội dung chứ không có bảng lương excel đính kèm

Chắc bạn bị rối chỗ này:

MyAtt = FPath & "Screenshot.jpg" 'anh dinh kem

MyAtt: bạn đưa đường dẫn file muốn đính kèm vô.
Ví dụ: MyAtt = "D:/BangLuong/BangLuongNV001.xlsx"
Cứ test cái đường dẫn trực tiếp vậy trước đi xem có gửi được không rồi mới ngâm cứu tới code để lấy đường dẫn động sau.

dongducnhiem · 10/7/20

dongducnhiem đã viết:
Cảm ơn bạn đã giúp nhiệt tình
1/ Về phần bỏ bảo mật và 2 lớp tôi đã làm xong, nhưng khi gởi mail thì bên gởi & nhận chỉ có Tiêu đề và nội dung chứ không có bảng lương excel đính kèm
Tôi có đọc bài bên chủ đề bạn cho thì tôi vào và check đủ các yêu cầu (vui lòng xem hình đính kèm)
nhờ em xem giúp! Chân thành cảm ơn!View attachment 240878

thnghiachau đã viết:
Tôi gởi lại file đạ chỉnh sửa và test trên account gmail của tôi luôn rồi.
Chạy phè phè với cách chỉnh lại trên Gmail account như các anh viết các bài phía trên!
"Bật giao thức (POP or IAMP), tắt bảo mật 2 bước, và thiết lập Allow less secure app -> ON"

Tắt bảo mật 2 bước, và thiết lập Allow less secure app -> ON" thì đã làm được
Nhưng Bật giao thức (POP or IAMP) thì bật mục nào trong file hình mà tôi đính kèm

thnghiachau đã viết:
Đúng rùi...

Xem bài #25 lại đi anh!
Em làm send Attached file PDF ah

Đã gởi thử rất tốt bạn ạ
Tôi làm phiền bạn thêm : tôi muốn gởi bảng đính kèm là file excel (mục đích của tôi gởi bảng excel cho các cửa hàng) thì trong code và file cần đổi nhưng thông số gì? Rất mong bạn hoặc các bạn hướng dẫn thêm.
Chân thành cảm ơn các bạn!

Maika8008 · 10/7/20

dongducnhiem đã viết:
Tắt bảo mật 2 bước, và thiết lập Allow less secure app -> ON" thì đã làm được
Nhưng Bật giao thức (POP or IAMP) thì bật mục nào trong file hình mà tôi đính kèm
...

Chính xác là IMAP. Sau khi đã bật muốn dùng trên code bên trên hoặc app mail của điện thoại thì phải điền các thông số như hướng dẫn khi bấm vào link Tìm hiểu thêm bên dưới Quyền truy cập qua IMAP

thnghiachau · 10/7/20

dongducnhiem đã viết:
Đã gởi thử rất tốt bạn ạ
Tôi làm phiền bạn thêm : tôi muốn gởi bảng đính kèm là file excel (mục đích của tôi gởi bảng excel cho các cửa hàng) thì trong code và file cần đổi nhưng thông số gì? Rất mong bạn hoặc các bạn hướng dẫn thêm.
Chân thành cảm ơn các bạn!

File nè bạn....

Bài đã được tự động gộp: 10/7/20

Nhân tiện em xin các thầy và ae GPE giúp em cái này một tí.
Ở bài #25 em gởi mail có attached file PDF; bài #33 gời mail có attached FIle Excel.
GIờ em muốn gởi mail mà nội dung mail có hình ảnh giống như file PDF ở bài #25 (không attached file hình ảnh - mà hình ảnh nằm trong nội dung của mail luôn) thì như thế nào?
Cám ơn GPE nhiều.

dongducnhiem · 10/7/20

File chạy tốt
Cảm ơn bạn [B]thnghiachau[/B] & tất cả các bạn đã bỏ thời gian & công sức để hỗ trợ
Chúc tất cả các bạn nhiều sức khỏe & Hạnh phúc!

Excelpoint6688 · 10/7/20

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)

Gửi mail bằng cdo nghe chừng nhanh hơn outlook, tuy nhiên chỉ chạy đc trên môi trường 32bit, 64bit sẽ không chạy đc b à, vì nó ko hỗ trợ cdo.messenger

thnghiachau · 10/7/20

Excelpoint6688 đã viết:
Gửi mail bằng cdo nghe chừng nhanh hơn outlook, tuy nhiên chỉ chạy đc trên môi trường 32bit, 64bit sẽ không chạy đc b à, vì nó ko hỗ trợ cdo.messenger

Ủa sao máy mình win10 64bit và office 2019 64bit luôn ... chạy vèo vèo vậy ta?????

thnghiachau · 10/7/20

thnghiachau đã viết:
File nè bạn....

Bài đã được tự động gộp: 10/7/20

Nhân tiện em xin các thầy và ae GPE giúp em cái này một tí.
Ở bài #25 em gởi mail có attached file PDF; bài #33 gời mail có attached FIle Excel.
GIờ em muốn gởi mail mà nội dung mail có hình ảnh giống như file PDF ở bài #25 (không attached file hình ảnh - mà hình ảnh nằm trong nội dung của mail luôn) thì như thế nào?
Cám ơn GPE nhiều.

Sau thời gian chọt và gõ anh GỒ... em đã làm được rùi....
HÌnh ảnh nằm gọn trong nội dung mail không cần attached file.

Maika8008 · 10/7/20

thnghiachau đã viết:
Sau thời gian chọt và gõ anh GỒ... em đã làm được rùi....
HÌnh ảnh nằm gọn trong nội dung mail không cần attached file.

Khá rối rắm nhỉ! Bạn cũng chịu khó thật chứ mò mẫm code như thế này mất công lắm.

Tuy nhiên, tôi nghĩ việc nhúng ảnh vào body hoặc đính kèm cái ảnh để thông báo lương như bạn nào đó muốn (hình như là Nguyễn Viết Thể thì phải) thực sự là không cần thiết, trong khi hoàn toàn có thể xuất file Excel hoặc PDF để đính kèm gửi đi. :victory:

thnghiachau · 10/7/20

Maika8008 đã viết:
Khá rối rắm nhỉ! Bạn cũng chịu khó thật chứ mò mẫm code như thế này mất công lắm.

Tuy nhiên, tôi nghĩ việc nhúng ảnh vào body hoặc đính kèm cái ảnh để thông báo lương như bạn nào đó muốn (hình như là Nguyễn Viết Thể thì phải) thực sự là không cần thiết, trong khi hoàn toàn có thể xuất file Excel hoặc PDF để đính kèm gửi đi.

Dạ, e ko đặt vấn đề là nên hay ko nên, mà ở đây e muốn học và làm ra nó thôi. Biết đâu mình có thể sử dụng nó vào một ứng dụng nào khác nữa thì sao...

batman1 · 10/7/20

dongducnhiem đã viết:
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

Bạn nhập "Allow less secure apps" vào gú gồ rồi đọc thôi.

Maika8008 · 10/7/20

thnghiachau đã viết:
Dạ, e ko đặt vấn đề là nên hay ko nên, mà ở đây e muốn học và làm ra nó thôi. Biết đâu mình có thể sử dụng nó vào một ứng dụng nào khác nữa thì sao...

Ý tôi trong bài #38 là động viên bạn ở đoạn trên và nói lên suy nghĩ của mình ở đoạn dưới chứ không phản bác gì (lỗi của tôi là làm cho bạn hiểu lầm). Tôi cũng chịu khó mày mò như bạn nên rất đồng cảm với bạn. :1a:

dongducnhiem · 10/7/20

batman1 đã viết:
Bạn nhập "Allow less secure apps" vào gú gồ rồi đọc thôi.

Cảm ơn bạn tôi đã là được rồi theo các hướng dẫn ở bài trên

Gởi các bạn
Tôi muốn áp dụng bài số 33 là gởi email cho các cửa hàng
Mỗi cửa hàng là 1 sheet đính kèm
Ở bài 33 thì dùng hàm Vlookup để lấy dữ liệu (nên khó có thể áp dụng code cho bài này)
Còn ở đây từ sheet "Data" tôi phải tách ra nhiều sheet (mỗi sheet là 1 cửa hàng) cái này thì tôi làm được - dùng filter để copy sang các sheet cửa hàng)
Nhưng bây giờ tôi không biết cách đính kèm file để gởi cho từng cửa hàng, các bạn vui lòng giúp được phần này giúp tôi
Gởi email theo danh sách ở sheet PayRoll và trong sheet này thì cột E là danh sách sheet cần gởi
Xin chân thành cảm ơn các bạn!

Quochuyhdbt · 10/7/20

thnghiachau đã viết:
Sau thời gian chọt và gõ anh GỒ... em đã làm được rùi....
HÌnh ảnh nằm gọn trong nội dung mail không cần attached file.

Thank pro

Diehard · 25/8/23

Hình như Google bỏ tính năng less secure app rồi, các cao nhân có phương thức nào gửi mail bằng excel không ạ?

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

Người dùng đang xem chủ đề này

Thành viên tiêu biểu

File đính kèm

Thành viên gạo cội

Thành viên gạo cội

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

File đính kèm

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên tiêu biểu

File đính kèm

Thành viên gạo cội

|||||||||||||

Thành viên gạo cội

|||||||||||||

Thành viên gạo cội

|||||||||||||

Thành viên gạo cội

Thành viên gắn bó

|||||||||||||

Thành viên gạo cội

Thành viên mới

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên gạo cội

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

File đính kèm

Thành viên gắn bó

Thành viên tiêu biểu

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên gạo cội

Thành viên gắn bó

Thành viên tiêu biểu

Thành viên gạo cội

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

File đính kèm

Thành viên tiêu biểu

Thành viên mới

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

File đính kèm

Thành viên gạo cội

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên gạo cội

Thành viên gạo cội

Thành viên tiêu biểu

File đính kèm

Thành viên mới

Thành viên mới

Thời gian đếm ngược.