;
帖子
3919 
精华
积分
11710 
鱼币
0 ¥ 
来自
大连 
在线时间
1858 小时 
注册时间
2007-6-11 
最后登录
2009-10-20 

贴图大师勋章新人进步勋章宣传大使勋章论坛元老勋章

3
发表于 2009-1-5 19:48 | 只看该作者
鍦╒B涓敤Outlook鍙戠數瀛愰偖浠 - 缂栫▼搴 - Powered by SupeSite

浣犵殑浣嶇疆锛缂栫▼搴 >> 璧勮 >> VB >> Internet >> 璇︾粏鍐呭 鍦ㄧ嚎鎶曠ǹ

鍦╒B涓敤Outlook鍙戠數瀛愰偖浠

鍙戝竷: 2008-7-15 14:45 |  浣滆: 缃戠粶杞浇 |   鏉ユ簮: 缃戠粶杞浇 |  鏌ョ湅: 34娆

鍦╒B涓敤Outlook鍙戠數瀛愰偖浠

鍦ㄥ紑濮嬬紪鍐欎唬鐮佷箣鍓嶏紝鍏堟坊鍔犲Outlook 8.0 object library鐨勫紩鐢ㄣ

浠g爜濡備笅锛

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

TAG: Outlook 鐢靛瓙閭欢
鎵撳嵃 | 鏀惰棌姝ら〉 |  鎺ㄨ崘缁欏ソ鍙 | 涓炬姤
涓婁竴绡 涓嬩竴绡
 

璇勫垎锛0

鍙戣〃璇勮
鏌ョ湅鍏ㄩ儴鍥炲銆愬凡鏈0浣嶇綉鍙嬪彂琛ㄤ簡鐪嬫硶銆