Problemas para enviar correo vía msmapi con Windows 8

[Rodolfo Arias]

Estimados compañeros,

Recurro a ustedes ya que no encuentro como solucionar el problema que tengo con el envío de correos por mapi en Windows 8.

Resulta que la rutina lo que hace es enviar el correo en formato texto a Outlook, con un pdf adjunto en un email que se abre al usuario para que este lo edite si fuera necesario o lo envié, si no tiene que hacer ninguna modificación a los datos. 

Esto viene funcionando bien hasta que instalaron el sistema en equipos con Windows 8.1, ahora hace su trabajo, pero el equipo no puede usar ni el Sistema Operativo y otra aplicación, Word, Excel, etc., hasta que la persona le de enviar a dicho correo electrónico. Generando inconvenientes a los usuarios ya que muchas veces copian texto de otras aplicaciones y la pegan en el cuerpo del mensaje, o simplemente necesitan hacer otros trabajos antes de enviar el email.

El código que utilizo es el siguiente:

Local loSession, loMessages

loSession = Createobject( "MSMAPI.MAPISession" )

loSession.Signon()

If (loSession.SessionID > 0)

loMessages = Createobject( "MSMAPI.MAPIMessages" )

loMessages.SessionID = loSession.SessionID

Endif

With loMessages

.Compose()

IF NOT EMPTY(This.cbuzon)

.RecipDisplayName = This.cbuzon

.RecipType = 1

ENDIF

*      .ResolveName()

.MsgSubject = This.casunto

.MsgNoteText = This.ctexto

IF NOT EMPTY(ALLTRIM(This.cadjunto))

.attachmentPathName = This.cadjunto

ENDIF

*       .SEND(.F.)

.Send(1)

Endwith

loSession.Signoff()

Store .Null. To loSession, loMessages

Release loSession, loMessages

Agradecería el apoyo que me puedan dar para solucionarlo, gracias.

Saludos,

Rodolfo Arias

VFP9 SP2.