vb发邮件的问题，求助阿！

Question

MAPISession1.DownLoadMail = False '不立即进入用户的收信箱
MAPISession1.LogonUI = false  
MAPISession1.SignOn '激活
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = strMailAdd '收信人地址
MAPIMessages1.ResolveName
MAPIMessages1.RecipDisplayName = strAddName '收信人姓名
MAPIMessages1.MsgSubject = strSubject '发信的主题
MAPIMessages1.MsgNoteText = strNoteText '发信的内容
MAPIMessages1.AttachmentIndex = 0 '当前附件的索引位置
MAPIMessages1.AttachmentPathName = "d:\1.mdb" '附件的路径
MAPIMessages1.Send '开始发送
MAPISession1.SignOff '关闭