在開始編寫代碼之前，先添加對Outlook8.0objectlibrary的引用。
代碼如下：
OptionExplicit
DimAppAsObject
DimItmAsObject
SetApp=CreateObject("Outlook.Application")
SetItm=App.CreateItem(0)
WithItm
.Subject="AtipfromvbCodeMagician"
.To="
[email protected]"
.Body="VB編程樂園www.vbeden.com".Send
EndWith->
