kstmai
Thành viên mới

- Tham gia
- 4/5/07
- Bài viết
- 39
- Được thích
- 7
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
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
Lần chỉnh sửa cuối: