Xin code forward / reply trên một mail chọn trước (1 người xem)

[michaelfei]

Chào mọi người,

Tình hình là mình đang cần reply lại 1 email truyền thông để gửi lại cho nhiều người với nội dung mail cũ. Mà ngặt nỗi outlook không có record macro như excel Nên mình muốn xin các pro cho 1 đoạn code để tạo mail mới bằng cách reply all or forward lại mail chọn sẵn. Code mình đang sử dụng để gửi rất OK nhưng chỉ tạo mail mới thôi chứ không co reply all được, nhờ mọi người cho xin nhé

'Create new mail message
Sub Create_email(myItem, Signature, myOlApp, m, myNamespace, vRngEmail As Range)
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.getnamespace("MAPI")
    'Create new mail message
    With myItem
    Set myItem = myOlApp.CreateItem(0) 'olMailItem
    
    If Sheet1.Range("M2").Value = "PERSONAL EMAIL" Then
                        .SentOnBehalfOfName = Sheet1.TextBox1.Text
                    Else
                        .SentOnBehalfOfName = Sheet1.Range("M2").Value
                    End If
                                         
                    
        .To = Range("B" & m).Value
        .cc = Range("C" & m).Value
        .BCC = ""
        .Subject = Range("D" & m).Value
        .HTMLBody = "<br>" & Range("E" & m) & "<br>" & "<br>" & Range("F" & m).Value & "<br>" & Range("G" & m).Value & "<br>" & Range("H" & m).Value & "<br>" & Range("I" & m).Value & "<br>" & RangetoHTML(vRngEmail) & "<br>" & "<br>" & Range("J" & m).Value & "<br>" & "<br>" & Range("K" & m).Value & "<br>" & "<br>" & Range("L" & m).Value & "<br>" & "<br>" & Range("M" & m).Value & "<br>" & "<br>" & Range("N" & m).Value & "<br>" & "<br>" '& Signature
        '.HTMLBody = vbNewLine & RangetoHTML(vRngEmail) & vbNewLine & vbNewLine & Signature
    End With
End Sub