Dear all!!
Em gặp 1 vấn đề nho nhỏ thế này, chả là e có 1 file excel, khi run code phải run 2 lần thì range em chọn nó mới chịu sang outlook...nhờ A/C giúp đỡ em vấn đề này ạ.........thân!!

đoạn code của em đây ạ: code báo lỗi ở phần chữ đỏ
Private Const olMailItem = 0


Sub outlook_mail()
Dim OutlookApp As Object, mailItem As Object, wordEditor As Object


Sheet5.Activate
Range("A1:c80").Select
Selection.Copy
'paste vao WORD
'Set wordApp = GetObject(, "Word.Application")
'wordApp.Selection.Paste


'paste vao Outlook
Set OutlookApp = GetObject(, "Outlook.Application")
Set mailItem = OutlookApp.CreateItem(olMailItem)
mailItem.Display
On Error Resume Next
Set wordEditor = OutlookApp.ActiveInspector.wordEditor
wordEditor.Application.Selection.Paste





With mailItem
.To = ""
.cc = ""
.bcc = ""
.Subject = Sheet5.Range("f8").Text
.Attachments.Add

End With
On Error GoTo 0


Set OutlookApp = Nothing
Set mailItem = Nothing
Set wordEditor = Nothing

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

End Sub