Visual Basic - CORREO VB6

Tengo una función que envía de forma automática los correos sin tener que interactuar con ellos. El problema que tengo es que cuando envío los mensajes con archivos adjuntos, el VB me dice que no tengo memoria suficiente cuando llega al método "MAPIMessages1.Action = 3". Los archivos no tienen más de 10k. ¿Necesito hacer algo más? ¿Lo hago mal?. Espero que alguno se apiade de mí. Estoy casi desesperado.

Gracias.

Mi codigo es el siguiente:

MAPISession1.Action = 1
MAPIMessages1.SessionID = MAPISession1.SessionID

'Envío
MAPIMessages1.MsgIndex = -1

MAPIMessages1.RecipAddress = EnviarA
MAPIMessages1.MsgSubject = Asunto
MAPIMessages1.MsgNoteText = Mensaje
MAPIMessages1.AttachmentPathName=PathAdjunto
MAPIMessages1.AttachmentName = NombreAdjunto

MAPIMessages1.Action = 3

'Cierra la sesión
MAPISession1.Action = 2