Estou precisando mandar um arquivo txt como anexo pelo email (MAPI)

este codigo foi utilizado...

sem os codigos do anexo o email foi passado normalmente,

mas quando coloco os codigos referente ao anexo, acontece este erro: falha inesperada...

 

MAPISession1.UserName = wUsuario
MAPISession1.Password = wSenha
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = wEmail
MAPIMessages1.MsgSubject = "caixa de " & wRepresentante
MAPIMessages1.MsgNoteText = "Segue anexo..."
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentType = mapData
MAPIMessages1.AttachmentName = "Anexo"
MAPIMessages1.AttachmentPathName = wCaminho
MAPIMessages1.Send False
MAPISession1.SignOff

este codigo foi copiado na integra no site do sr. Macoratti.

obrigado por alguem me ajudar,

onde estou errando!!!!

 

Dick.