หมายถึงใช้โค้ดใช่มั๊ยครับ

คงต้องใช้ OutLook แทนครับ

Sub SenMail()
Dim ol As Object
Dim olMail As Object
Dim strCC As String

Set ol = CreateObject("Outlook.Application")
Set olMail = ol.CreateItem(0)

With olMail

.To = "xxx@hotmail.com;yyy@hotmail.com"
.Attachments.Add "C:\FolderName\book1.xls"
.Subject = "หัวข้อของอีเมลล์ตรงนี้"
.Body = "ข้อความที่ต้องการจะส่งไปด้วย"
.Display
'.Send
End With

Set olMail = Nothing
Set ol = Nothing

End Sub
*** Edited by Supap Chaiya *** 28/5/2546 16:13:30

ผมทดสอบ Code แล้วครับ ดีมาก ขอบพระคุณมากครับ