如果你只是不希望看到OutLook的界面,而在实际中调用OutLook(对它的调用是发邮件最简单的方式),可以如下:
Set Olapp = CreateObject("outlook.application")
Set Oitem = Olapp.CreateItem(0)
With Oitem
.Subject = gDepa_Name
.body = "Any thing that you want to say...."
.To = "liuyiyz@263.net"
.send
End With
建立一个窗体,仿造Outlook的格式:目标地址、正文、主题,然后将Oitem.body, Oitem.subject, Oitem.to 的值换一下就可以了。不过这样启动速度较慢。
你还可以用Winsock发送,但设置就麻烦多了。