Giúp đỡ về cách gửi mail tự động theo danh sách

[hoasuajp]

Em chào các anh chị trong diễn đàn GPA!
Đầu tiên em chúc các anh chị sức khỏe dồi dào, thành công trong công việc.

Em có thắc mắc về cách gửi mail trên outlook thông qua file macro, mong được anh chị giải đáp và chỉ bảo, trình độ vba của em còn non kém mong anh chị đừng chửi tội nghiệp em .
vấn đề như sau ạ:
Em có 1 file danh sách và em muốn làm 1 file macro với nút bấm để gửi mail cho tiện ạ. file macro có 2 nút bấm, 1 nút gửi mail tới tất cả mọi người. Nút còn lại thì khi nào mà có người chưa đăng ký thì gửi tiếp thêm 1 lần nữa để nhắc họ đăng ký, nếu mọi người đăng ký xong rồi thì sẽ gửi mail đến mình và sếp.

file danh sách thì có tên từng người và mail ở phía dưới, vì là file dùng chung nên được để trong đường dẫn để mọi người tự điền, khi điền thông tin xong sẽ chọn "ok" còn ai chưa làm thì chắc chắn sẽ là "chua" rồi ạ. dựa vào đó để gửi mail nhắc họ điền ấy ạ.

file macro thì có body với tiêu đề sẵn, với ngày hết hạn đăng ký. dựa vào đó để mình điền thông tin trong macro cho nhanh ạ.
Rất mong được các anh chị chỉ bảo ạ. Em xin cám ơn nhiều ạ.

 

[hoasuajp]

Nút bấm thứ nhất em làm được rồi, còn nút bấm thứ 2 em dùng vòng lặp for mà bị sai, anh chị nào có thể chỉ cho em được không ạ?

 

[BuiQuangThuan]

Bạn gửi từ outlook hay từ đâu vậy?
Code của bạn đâu?

 

[HUONGHCKT]

Em chào các anh chị trong diễn đàn GPA!
Đầu tiên em chúc các anh chị sức khỏe dồi dào, thành công trong công việc.

Em có thắc mắc về cách gửi mail trên outlook thông qua file macro, mong được anh chị giải đáp và chỉ bảo, trình độ vba của em còn non kém mong anh chị đừng chửi tội nghiệp em .
vấn đề như sau ạ:
Em có 1 file danh sách và em muốn làm 1 file macro với nút bấm để gửi mail cho tiện ạ. file macro có 2 nút bấm, 1 nút gửi mail tới tất cả mọi người. Nút còn lại thì khi nào mà có người chưa đăng ký thì gửi tiếp thêm 1 lần nữa để nhắc họ đăng ký, nếu mọi người đăng ký xong rồi thì sẽ gửi mail đến mình và sếp.

file danh sách thì có tên từng người và mail ở phía dưới, vì là file dùng chung nên được để trong đường dẫn để mọi người tự điền, khi điền thông tin xong sẽ chọn "ok" còn ai chưa làm thì chắc chắn sẽ là "chua" rồi ạ. dựa vào đó để gửi mail nhắc họ điền ấy ạ.

file macro thì có body với tiêu đề sẵn, với ngày hết hạn đăng ký. dựa vào đó để mình điền thông tin trong macro cho nhanh ạ.
Rất mong được các anh chị chỉ bảo ạ. Em xin cám ơn nhiều ạ.

Lang thang trên mạng thấy cái này giống vói yêu cầu của bạn.
Bạn thử tải về và sửa lại cho phù hợp, biết đâu có thể giải quyết được vấn đề.
Trong file đính kèm có cả trang hướng dẫn đó bạn.

 

[hoasuajp]

Bạn gửi từ outlook hay từ đâu vậy?
Code của bạn đâu?

Em gửi từ outlook ạ.
code em đây ạ, anh xem giúp em với ạ!

Option Explicit


Sub tenkai()
    Dim ws As Worksheet
    Dim objoutlook As Object
    Dim objmail As Object
    Dim nowrow As Integer
    
    'tao bien gan cho sheet can xu lyu
    Set ws = Workbooks("danhsach.xlsx").Worksheets("danhsachdk")
    
    'gan bien cho outlook object]
    Set objoutlook = CreateObject("Outlook.Application")
    nowrow = 12
    
    Do While True
        nowrow = nowrow + 1
        'sua hang trong
        If ws.Cells(7, nowrow) = "" Then Exit Do
        '対象行に値が[chua]入力されていれば、メール下書きを作成する
        If ws.Cells(8, nowrow) = "Chua" Then
            Set objmail = objoutlook.CreateItem(0)
            
            With objmail
                    
                .subject = ThisWorkbook.Sheets("lan2").Range("B2").Value
                
                'ten nguoi nhan
                .To = ws.Cells(7, nowrow).Value
                
                'noi dung
                .Body = ws.Cells(6, nowrow).Value & vbCrLf & _
                        ThisWorkbook.Sheets("lan2").Range("C2").Value & vbCrLf & vbCrLf
                .Display
     
            
            End With
        End If
        
    Loop
    
 Set objoutlook = Nothing
 MsgBox "done"
    
End Sub

 
       
End Sub

Bài đã được tự động gộp: 17/5/22

Lang thang trên mạng thấy cái này giống vói yêu cầu của bạn.
Bạn thử tải về và sửa lại cho phù hợp, biết đâu có thể giải quyết được vấn đề.
Trong file đính kèm có cả trang hướng dẫn đó bạn.

Em cám ơn anh nhiều ạ, nhưng vẫn chưa hiểu rõ code lắm ạ.

 

[HUONGHCKT]

Em cám ơn anh nhiều ạ, nhưng vẫn chưa hiểu rõ code lắm ạ.

Vậy bạn muốn gì? Muốn hiểu được code để tự mình viết code à. Thế thì có tài liệu đó học đi.
Còn muốn giải quyết được nhu cầu thì đã có người code sẵn cho , giờ chỉ còn việc sửa lại form mẫu, danh sách các địa chỉ cần gửi, nội dung cần gửi...( những việc này đều làm trên các sheet) - thì tự bạn phải làm lấy chứ, mà bạn làm được mà.
Tôi thấy việc thiết kế sheet để lấy địa chỉ Mall của bạn cũng hơi lạ (danh sách lằm ngang....-Chữ Hoa ngữ tùm lum...) thật khó cho người muốn giúp bạn.
Chúc bạn nghiên cứu Thành công và tự bơi đến đích.