ลองใช้ CDO.Message ดูนะ
สร้างปุ่มขึ้นมาปุ่มนึง แล้วเอาโค๊ดนี้ไปวางในปุ่ม
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Simple plain text CDO example"
objMessage.From = "[email protected]"
objMessage.To = "[email protected]"
objMessage.TextBody = "This is a test."
objMessage.Send
ผมก็ไม่ค่อยเก่ง VB หลอกนะ แต่ถ้า PHP หรือ HTML มาเลย