壹下如何用VBA實現網絡編程，比如實現發郵件的功能

Dim?cm?As?Variant

Set?cm?=?CreateObject("CDO.Message")?'創建對象

cm.From?=?"ylmylm12@126.com"?'設置發信人的郵箱

cm.To?=?"ylmylm12@126.com"?'設置收信人的郵箱

cm.Subject?=?"主題:郵件發送試驗"?'設定郵件的主題

cm.TextBody?=?"寶坻壹中信息中心/"?'使用文本格式發送郵件

cm.HtmlBody?=?"123456789000"?'使用html格式發送郵件

cm.AddAttachment?"D:\張紅\調號.xls"

stUl?=?"/cdo/configuration/"?'微軟服務器網址

With?cm.Configuration.Fields

.Item(stUl?&?"smtpserver")?=?"smtp.126.com"?'SMTP服務器地址

.Item(stUl?&?"smtpserverport")?=?25?'SMTP服務器端口

.Item(stUl?&?"sendusing")?=?2?'發送端口

.Item(stUl?&?"smtpauthenticate")?=?1?'

.Item(stUl?&?"sendusername")?=?"ylmylm12?"?'發送方郵箱名稱

.Item(stUl?&?"sendpassword")?=?"********"?'發送方郵箱密碼

.Update

End?With

cm.Send?'最後當然是執行發送了

Set?cm?=?Nothing?'發送成功後即時釋放對象

End?Sub

自己按說明改壹下。