ACCESS关联邮件发送。。。（咨询）

发个OUTLOOK的,供参考

Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)
With itmNewMail
.Subject = "ECN System message" '主旨
.Body = "请登陆ECN System 审核编号为" & Me.Text32 & "的ECN!(消息由ECN System 自动发送)" '邮件内容
.To = "13456@163.com "  '收件人
End If
.Display '啟動視窗
End With
On Error GoTo continue
SendEmail:
AppActivate itmNewMail
DoEvents
SendKeys "%s", Wait:=True
DoEvents
itmNewMail.Display
GoTo SendEmail '发送不成功誓不罢休
continue:
On Error GoTo 0
Set objOL = Nothing
Set itmNewMail = Nothing