发表于 2009-1-5 19:48
| 
鍦╒B涓敤Outlook鍙戠數瀛愰偖浠
鍙戝竷: 2008-7-15 14:45 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 34娆
鍦╒B涓敤Outlook鍙戠數瀛愰偖浠
鍦ㄥ紑濮嬬紪鍐欎唬鐮佷箣鍓嶏紝鍏堟坊鍔犲Outlook 8.0 object library鐨勫紩鐢ㄣ
浠ｇ爜濡備笅锛
Option Explicit
Dim App As Object
Dim Itm As Object
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = "A tip from vbCode Magician"
.To = "newvb@21cn.com"
.Body =
"璁や綇鏂癡B锛岀湡鏉愬疄鏂欐湁淇濊瘉" .Send
End With
