enviar correo con MAPI
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.
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.