enviar correo con MAPI

carlos
17 de Diciembre del 2004
Resulta que he hecho un programilla que envia correos con mapi, la cuestion es que funciona perfectamente en interpretado, pero cuando compilo y lo ejecuto desde el exe, no me fulula, suele pasar en windows XP, alguna explicación?
os adjunto codigo :

Sesion = LogOn
On Error GoTo ComposeErr
'inicializamos el buffer del mapmess
mapMess.Compose
mapMess.AddressResolveUI = False
'Indicamos el asunto
mapMess.MsgSubject = TxtAsunto
'Indicamos el cuerpo
mapMess.MsgNoteText = TxtCuerpo
'Indicamos los adjuntos
I2 = -1
For I = 1 To RejillaAdjAct.Rows - 1
If Mid(RejillaAdjAct.TextMatrix(I, 0), 1, 2) = "No" Then GoTo otro
I2 = I2 + 1
mapMess.AttachmentIndex = I2
mapMess.AttachmentPathName = RejillaAdjAct.TextMatrix(I, 1)
otro:
Next I
mapMess.RecipIndex = 0
mapMess.RecipType = 1
mapMess.RecipAddress = TxtDestinatario
mapMess.ResolveName
mapMess.Send True
LogOff

Gracias.