Gửi email cho một nhóm người với một nội dung viết sẵn trong excel

[forpromsie2013]

Các anh chị giúp em vấn đề này với.
Chả là em hay phải update tình hình vào một cái bảng và sau mỗi lần update là lại phải gửi cái bảng đó cho 1 nhóm người (reply all).
Các anh chị trong diễn đàn có cách gì giúp em với.
Em cảm ơn ạ!

 

[gttrongvn]

Bạn gửi file lên mọi người xem mới biết phải làm thế nào chứ.

 

[befaint]

Người giúp lại còn phải đi xin thông tin của người hỏi... Đảo lộn hết rồi!

@Chủ thớt: #5

 

[forpromise2013]

em phải update vào cái file này. sau mỗi lần update thì sẽ gửi đi cái bảng trong file này ạ.
Có cách nào để mỗi lần em update xong rồi em ấn vào nút gửi (tạo ở trong file excel) thì sẽ gửi đi cho 1 nhóm người trong outlook ko các anh chị

 

[Thong Hoang Tien 250691]

em phải update vào cái file này. sau mỗi lần update thì sẽ gửi đi cái bảng trong file này ạ.
Có cách nào để mỗi lần em update xong rồi em ấn vào nút gửi (tạo ở trong file excel) thì sẽ gửi đi cho 1 nhóm người trong outlook ko các anh chị

Chả là cứ 1 tiếng tôi phải gửi đơn đặt hàng với đối tác nên tôi có 1 đoạn code khá liên quan.
Nhưng giờ tôi hơi bận nên không viết vào file của bạn được. bạn tham khảo nhé. nếu cần tối nay tôi sẽ hoàn thiện nó

Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
  
        .To = "ABC@Fih-Foxconn.com; XYZ@Mail.Jusdascm.com" '--> dien dia chi mail vao day
        .CC = "abcabc@jusdascm.com"  '---> dien dia chi mail vao day
        .BCC = ""
        .Subject = "FIH-BFO Order " & Format(Now, "dd-mmm-yy hh:mm AM/PM")
      
        .Body = "Hi Jusda team" & vbNewLine & vbNewLine & _
                           "Please find the excel attached file for the list of open order." & _
                            vbNewLine & _
                            "Please keep ontime" & _
                            vbNewLine & vbNewLine & _
                            "Thx" & _
                            vbNewLine & _
                           "Regards,Thong"
        .Attachments.Add wb2.FullName
        .send   'or use .Display send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

 

[nguyenvanthang]

Hoàn thiện chưa bạn cho mình xin đi. Mình đang cần kiểu hàng ngày nhắc việc và hàng ngày báo cáo. Bạn ạ