关键代码,变量替换测你自己的数据
Dim Proc As New Process
Proc.File = "mailto:" & Receiver & "?cc=" & Cc & "&bcc=" & Bcc & "&subject=" & Subject & "&body=" & Body
Proc.Start()
http://www.dreamdu.com/xhtml/mailto/