点击按钮发送邮件，里面带有附件，可是每次发送都发不出去，也不知道问题出在什么地方，请各位高人给看看!

Private Sub email_Click()
MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = email_address.Text
.MsgSubject = txtSubject.Text
.SessionID = MAPISession1.SessionID
.AttachmentPathName = 路径名
.Send
End With
MAPISession1.SignOff
MsgBox "邮件发送完毕!", , "发送邮件"
End Sub