FoxPro/Visual FoxPro - Problemas despues de embiar mail

 
Vista:

Problemas despues de embiar mail

Publicado por ZAMORA (25 intervenciones) el 18/08/2005 18:49:46
Estoy usando este codigo el primer mail si lo manda bien pero al termino prierde el SET FOCUS del programa y ya no puedo hacer nadamas.

DE ANTEMO MIL GRACIAS

oComm=CREATEOBJECT("Scripting.FileSystemObject")
ocomm.CreateTextFile(SYS(5)+SYS(2003)+"\reportes\pedidos\RPED"+ALLTRIM(STR(.D1.VALUE))+ALLTRIM(DTOS(DATE()))+".TXT",.t.,.t.)

report form PED_PROVP to file &REPMAIL ASCII

Local pcPara, pcAsunto, pcCuerpo, paFichEnviar, plMostrarDialogo

pcPara = ALLTRIM(thisform.d7.Value)
pcAsunto = 'Pedido'+ alltrim(STR(thisform.d1.value))
pcCuerpo = 'Agradeciendo de antemano la atencion a este pedido #'+ALLTRIM(STR(THISFORM.D1.VALUE))

IF EMPTY(pcPara)
pcPara = "esmerjon@yahoo.com"
ENDIF

IF EMPTY(pcAsunto)
pcAsunto = "<Asunto>"
ENDIF

IF EMPTY(pcCuerpo)
pcCuerpo = "Pedido #"+ALLTRIM(STR(THISFORM.D1.VALUE))
ENDIF

IF EMPTY(paFichEnviar)
paFichEnviar = REPMAIL
ENDIF

LOCAL oform
oform = CreateObject("form")
oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")

IF TYPE('oform.Session1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF

oform.addobject("Message1","olecontrol","MSMAPI.mapiMessages")

IF TYPE('oform.Message1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF

oform.Session1.LogonUI = .t.

oform.Session1.DownloadMail=.f.

oform.Session1.signon
oform.Message1.sessionid = oform.Session1.sessionid

oform.Message1.compose
oform.Message1.RecipDisplayName = pcPara
oform.Message1.msgsubject = pcAsunto
oform.Message1.msgnotetext = pcCuerpo

IF TYPE('paFichEnviar[1]') = 'U'
LOCAL lcFileEnviar
lcFileEnviar = paFichEnviar
DIMENSION paFichEnviar(1)
paFichEnviar(1) = lcFileEnviar
ENDIF

LOCAL lnContFiles
lnContFiles = 1

FOR lnCount = 1 TO ALEN(paFichEnviar,1)

IF FILE(paFichEnviar(lnContFiles))
oform.Message1.AttachmentIndex = lnContFiles - 1
oform.Message1.AttachmentPathName = paFichEnviar(lnContFiles)
oform.Message1.AttachmentPosition = lnContFiles - 1

lnContFiles = lnContFiles + 1

ENDIF

endfor
oform.Message1.send(.f.)
oform.Session1.signoff
Send Mail to "+Chr(13)+Chr(13)+ReportSendTo,64,"Complete")
release oform
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder