Sending an email

Private Sub Command1_Click()
MAPISession1.SignOn

With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose

.RecipAddress = "[email protected]"
.MsgSubject = "Update Disaster Recovery Database"
.MsgNoteText = "John, "
.AttachmentPathName = "C:\boot.ini"
.Send True
End With

MAPISession1.SignOff
End Sub

why does this now work

and also how can i check emails and download??