Correo Outlook
Tengo este código y me funciona bien, el problema es cuando lo corro en entro maquina me marca este mensaje... Ya que cuando lo corro en otra maquina que tenga vfp 7.0 instalado no tengo problemas... Estuve leyendo en internet sobre MSMAPI32.OCX que hay que copiarlo en system32 o system, pero aun sigo teniendo problemas, no se si me hace falta algunos otros archivos ocx o librerías que tenga que copiar en las maquinas y en que lugar que no tengan instalado vfp7.0
muchas gracias amigo.. Por tu ayuda, ya que te lo agradecería mucho...
IF TYPE( '.Session1' ) <> 'O'
MESSAGEBOX( 'No se ha podido instanciar la aplicación de correo Ses.', 64, 'Atención')
RELEASE m.oForm
RETURN .F.
ENDIF
este es el codigo q tengo
#DEFINE CARBON_COPY 2
PARAMETERS m.cPara,m.cCopia,m.cAsunto, m.cMensaje, m.cArchivo, m.lMostrar
LOCAL m.oForm, m.xTemporal, m.nContador, m.nArchivos, m.cActual
m.cActual = SYS(5) + CURDIR()
IF TYPE( 'm.cPara' ) <> 'C'
m.cPara = " "
ENDIF
IF TYPE("m.cCopia") <> 'C'
m.cCopia= " "
ENDIF
IF TYPE( 'm.cAsunto' ) <> 'C'
m.cAsunto = "Hola"
ENDIF
IF TYPE( 'm.cMensaje' ) <> 'C'
m.cMensaje ="como estas"
ENDIF
IF TYPE( 'm.cArchivo' ) <> 'C'
m.cArchivo = ""
ENDIF
m.oForm = CREATEOBJECT( "form" )
WITH m.oForm
.ADDOBJECT( "Session1", "olecontrol", "MSMAPI.mapiSession" )
IF TYPE( '.Session1' ) <> 'O'
MESSAGEBOX( 'No se ha podido instanciar la aplicación de correo Ses.', 64, 'Atención')
RELEASE m.oForm
RETURN .F.
ENDIF
.ADDOBJECT("Message1", "olecontrol", "MSMAPI.mapiMessages" )
IF TYPE( '.Message1' ) <> 'O'
MESSAGEBOX( 'No se ha podido instanciar la aplicación de correo Men.', 64, 'Atención')
RELEASE m.oForm
RETURN .F.
ENDIF
WITH .Session1
.LogonUI = .T.
.DownloadMail = .F.
.SignOn
ENDWITH
WITH .Message1
.sessionid = .PARENT.Session1.sessionid
.compose
.RecipDisplayName = m.cPara
.msgsubject = m.cAsunto
.msgnotetext = m.cMensaje
.msgreceiptrequested = .T.
. SEND(m. LMostrar)
ENDWITH
. Session1. SignOff
ENDWITH
RELEASE m.oForm
SET DEFAULT TO (m.cActual)
muchas gracias amigo.. Por tu ayuda, ya que te lo agradecería mucho...
IF TYPE( '.Session1' ) <> 'O'
MESSAGEBOX( 'No se ha podido instanciar la aplicación de correo Ses.', 64, 'Atención')
RELEASE m.oForm
RETURN .F.
ENDIF
este es el codigo q tengo
#DEFINE CARBON_COPY 2
PARAMETERS m.cPara,m.cCopia,m.cAsunto, m.cMensaje, m.cArchivo, m.lMostrar
LOCAL m.oForm, m.xTemporal, m.nContador, m.nArchivos, m.cActual
m.cActual = SYS(5) + CURDIR()
IF TYPE( 'm.cPara' ) <> 'C'
m.cPara = " "
ENDIF
IF TYPE("m.cCopia") <> 'C'
m.cCopia= " "
ENDIF
IF TYPE( 'm.cAsunto' ) <> 'C'
m.cAsunto = "Hola"
ENDIF
IF TYPE( 'm.cMensaje' ) <> 'C'
m.cMensaje ="como estas"
ENDIF
IF TYPE( 'm.cArchivo' ) <> 'C'
m.cArchivo = ""
ENDIF
m.oForm = CREATEOBJECT( "form" )
WITH m.oForm
.ADDOBJECT( "Session1", "olecontrol", "MSMAPI.mapiSession" )
IF TYPE( '.Session1' ) <> 'O'
MESSAGEBOX( 'No se ha podido instanciar la aplicación de correo Ses.', 64, 'Atención')
RELEASE m.oForm
RETURN .F.
ENDIF
.ADDOBJECT("Message1", "olecontrol", "MSMAPI.mapiMessages" )
IF TYPE( '.Message1' ) <> 'O'
MESSAGEBOX( 'No se ha podido instanciar la aplicación de correo Men.', 64, 'Atención')
RELEASE m.oForm
RETURN .F.
ENDIF
WITH .Session1
.LogonUI = .T.
.DownloadMail = .F.
.SignOn
ENDWITH
WITH .Message1
.sessionid = .PARENT.Session1.sessionid
.compose
.RecipDisplayName = m.cPara
.msgsubject = m.cAsunto
.msgnotetext = m.cMensaje
.msgreceiptrequested = .T.
. SEND(m. LMostrar)
ENDWITH
. Session1. SignOff
ENDWITH
RELEASE m.oForm
SET DEFAULT TO (m.cActual)
1 Respuesta
Respuesta de davsoft
1