Copy dữ liệu từ excel qua outlook (1 người xem)

[kstmai]

anh chị em giúp đỡ viết giùm đoạn code :
Mình có tham khảo cách gởi thư outlook từ dữ liệu excel, nhưng chưa biết cách làm như sau:
- Mình có bảng tính từ excel, mình muốn nó tự động copy vùng chọn sắn và paste qua outlook (tạo thư mới) thì làm như thế nào, mong mọi người chỉ giúp.

mình đã làm được bước, copy, tạo thư mới nhưng chưa biết gắn body của thư như thế nào?

Sub SendMail1()
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
ActiveWindow.SmallScroll Down:=6
Selection.Copy
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = nam@yahoo.com.vn
.Subject = "xin chao"
.Body = " "
.Display
End With
Set OutApp = Nothing
Set Addresslist = Nothing
Application.ScreenUpdating = True
End Sub

 

[SoiBien]

ví dụ bạn gõ nội dung body mail trong 1 ô "C2" chẳng hạn (nên làm thế vì soạn thảo tiếng Việt thoải mái).
và ví dụ tên người nhận nằm tại ô D2.
.body viết như sau :

.Body = "Hi " & range("D2") _             
             & vbNewLine & vbNewLine _
             & Range("C2")

 

[kstmai]

ví dụ bạn gõ nội dung body mail trong 1 ô "C2" chẳng hạn (nên làm thế vì soạn thảo tiếng Việt thoải mái).
và ví dụ tên người nhận nằm tại ô D2.
.body viết như sau :

.Body = "Hi " & range("D2") _             
             & vbNewLine & vbNewLine _
             & Range("C2")

[/QUOTE

không bạn ơi, ý mình là muốn lấy nguyên bảng tính excel mà đã copy vào clipboard bỏ vào mail luôn.

 

[kstmai]

có ai biết cách bỏ clipboard vào outlook chỉ giùm mình với.

cảm ơn nhiều