Envio de Mail con Mapi

Tienes algún cortafuegos instalado?. o algún programa antivirus que
intercepte las salidas de correo...


"Diana Borello" escribió en el mensaje
news:
Mostrar la cita

Estoy intentando enviar Email con mapi con un ejemplo que me bajé de
PortalFox pero cuando envío el primero me dá un mensaje diciendo que un
programa está intentando enviar un Mensaje a mi nombre y me pide
autorización. Si le doy que sí, lo envía a la Bandeja de Salida. Pero si
intento enviar más Emails no lo hace, y tampoco dá ningún error.
El codigo que sigue es el que tengo en el botón "Enviar".
Les agradezco cualquier sugerencia.
Tengo VPF6 SP5 Windows XP y Outlook Express 6

Evento Click:

*
Mostrar la cita

thisform.addobject("MapiSesion", "olecontrol","MSMAPI.MapiSession")
IF Type("thisform.MapiSesion")#"O"
messagebox("No se puede iniciar el programa de Correo")
thisform.release
ENDIF

thisform.addobject("MapiMensaje", "olecontrol","MSMAPI.MapiMessages")
IF Type("thisform.MapiMensaje")#"O"
messagebox("No se puede iniciar el programa de Correo")
thisform.release
ENDIF

thisform.MapiMensaje.AddressResolveUI=.F.

With thisform.MapiSesion
.LogonUI=.T.
.DownLoadMail=.F.
.NewSession=.T.
.SignOn
EndWith

With thisform.MapiMensaje
.msgIndex= -1
.SessionId= thisform.MapiSesion.SessionID
.RecipDisplayName= ALLT(thisform.cDestinatario.value)
.MsgSubject= ALLT(thisform.cAsunto.value)
.MsgNoteText= ALLT(thisform.cTexto.value)
.send()
EndWith

thisform.MapiSesion.SignOff
*


Un saludo para todos.
Diana Borello.-

Lo que sucede es que OutLook tiene una protección sobre Mapi

No te aconsejo que la desactives .. pero puedes hacerlo desde outlook ... en
el menu herramientas, Opciones, Seguridad y luego desactivas "Avisarme
cuando otras aplicaciones intenten enviar email a mi nombre"

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523

"Diana Borello" escribió en el mensaje
news:
Mostrar la cita

Estoy intentando enviar Email con mapi con un ejemplo que me bajé de
PortalFox pero cuando envío el primero me dá un mensaje diciendo que un
programa está intentando enviar un Mensaje a mi nombre y me pide
autorización. Si le doy que sí, lo envía a la Bandeja de Salida. Pero si
intento enviar más Emails no lo hace, y tampoco dá ningún error.
El codigo que sigue es el que tengo en el botón "Enviar".
Les agradezco cualquier sugerencia.
Tengo VPF6 SP5 Windows XP y Outlook Express 6

Evento Click:

*
Mostrar la cita

thisform.addobject("MapiSesion", "olecontrol","MSMAPI.MapiSession")
IF Type("thisform.MapiSesion")#"O"
messagebox("No se puede iniciar el programa de Correo")
thisform.release
ENDIF

thisform.addobject("MapiMensaje", "olecontrol","MSMAPI.MapiMessages")
IF Type("thisform.MapiMensaje")#"O"
messagebox("No se puede iniciar el programa de Correo")
thisform.release
ENDIF

thisform.MapiMensaje.AddressResolveUI=.F.

With thisform.MapiSesion
.LogonUI=.T.
.DownLoadMail=.F.
.NewSession=.T.
.SignOn
EndWith

With thisform.MapiMensaje
.msgIndex= -1
.SessionId= thisform.MapiSesion.SessionID
.RecipDisplayName= ALLT(thisform.cDestinatario.value)
.MsgSubject= ALLT(thisform.cAsunto.value)
.MsgNoteText= ALLT(thisform.cTexto.value)
.send()
EndWith

thisform.MapiSesion.SignOff
*


Un saludo para todos.
Diana Borello.-

Si, tengo Norton Antivirus instalado.
Pero no creo que sea conveniento desactivarlo. O si?
Es por eso que me envía el primer correo y luego no envía más?
Gracias a todos
Un saludo para todos.
Diana Borello.-






"David Amador (Davphantom)" escribió en el mensaje
news:%
Mostrar la cita

Lo que sucede es que OutLook tiene una protección sobre Mapi

No te aconsejo que la desactives .. pero puedes hacerlo desde outlook ...

en
Mostrar la cita

el menu herramientas, Opciones, Seguridad y luego desactivas "Avisarme
cuando otras aplicaciones intenten enviar email a mi nombre"

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523

"Diana Borello" escribió en el mensaje
news:
> Estoy intentando enviar Email con mapi con un ejemplo que me bajé de
> PortalFox pero cuando envío el primero me dá un mensaje diciendo que un
> programa está intentando enviar un Mensaje a mi nombre y me pide
> autorización. Si le doy que sí, lo envía a la Bandeja de Salida. Pero si
> intento enviar más Emails no lo hace, y tampoco dá ningún error.
> El codigo que sigue es el que tengo en el botón "Enviar".
> Les agradezco cualquier sugerencia.
> Tengo VPF6 SP5 Windows XP y Outlook Express 6
>
> Evento Click:
>

*
Mostrar la cita

> thisform.addobject("MapiSesion", "olecontrol","MSMAPI.MapiSession")
> IF Type("thisform.MapiSesion")#"O"
> messagebox("No se puede iniciar el programa de Correo")
> thisform.release
> ENDIF
>
> thisform.addobject("MapiMensaje", "olecontrol","MSMAPI.MapiMessages")
> IF Type("thisform.MapiMensaje")#"O"
> messagebox("No se puede iniciar el programa de Correo")
> thisform.release
> ENDIF
>
> thisform.MapiMensaje.AddressResolveUI=.F.
>
> With thisform.MapiSesion
> .LogonUI=.T.
> .DownLoadMail=.F.
> .NewSession=.T.
> .SignOn
> EndWith
>
> With thisform.MapiMensaje
> .msgIndex= -1
> .SessionId= thisform.MapiSesion.SessionID
> .RecipDisplayName= ALLT(thisform.cDestinatario.value)
> .MsgSubject= ALLT(thisform.cAsunto.value)
> .MsgNoteText= ALLT(thisform.cTexto.value)
> .send()
> EndWith
>
> thisform.MapiSesion.SignOff
> *
>
>
> Un saludo para todos.
> Diana Borello.-
>
>
>

Mira, Diana, yo tengo el norton, tambien y esto me funciona Ok...

Local pcPara, pcAsunto, pcCuerpo, paFichEnviar, plMostrarDialogo

IF EMPTY(pcPara)
pcPara = " "
ENDIF

IF EMPTY(pcAsunto)
pcAsunto = " "
ENDIF

IF EMPTY(pcCuerpo)
pcCuerpo = " "
ENDIF

IF EMPTY(paFichEnviar)
paFichEnviar = " "
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.

*- Si no se pone la propiedad a .F. y en OUTLOOK está puesto trabajar sin
conexión
*- se cuelga
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

*- Si no es un array, lo crea
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)
*- Si existen los archivos
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(plMostrarDialogo)
oform.Session1.signoff

RELEASE oform

*!* FoxPress - Febrero de 2002
*!* © 2002 FoxPress. All rights reserved


"Diana Borello" escribió en el mensaje
news:
Mostrar la cita

Estoy intentando enviar Email con mapi con un ejemplo que me bajé de
PortalFox pero cuando envío el primero me dá un mensaje diciendo que un
programa está intentando enviar un Mensaje a mi nombre y me pide
autorización. Si le doy que sí, lo envía a la Bandeja de Salida. Pero si
intento enviar más Emails no lo hace, y tampoco dá ningún error.
El codigo que sigue es el que tengo en el botón "Enviar".
Les agradezco cualquier sugerencia.
Tengo VPF6 SP5 Windows XP y Outlook Express 6

Evento Click:

*
Mostrar la cita

thisform.addobject("MapiSesion", "olecontrol","MSMAPI.MapiSession")
IF Type("thisform.MapiSesion")#"O"
messagebox("No se puede iniciar el programa de Correo")
thisform.release
ENDIF

thisform.addobject("MapiMensaje", "olecontrol","MSMAPI.MapiMessages")
IF Type("thisform.MapiMensaje")#"O"
messagebox("No se puede iniciar el programa de Correo")
thisform.release
ENDIF

thisform.MapiMensaje.AddressResolveUI=.F.

With thisform.MapiSesion
.LogonUI=.T.
.DownLoadMail=.F.
.NewSession=.T.
.SignOn
EndWith

With thisform.MapiMensaje
.msgIndex= -1
.SessionId= thisform.MapiSesion.SessionID
.RecipDisplayName= ALLT(thisform.cDestinatario.value)
.MsgSubject= ALLT(thisform.cAsunto.value)
.MsgNoteText= ALLT(thisform.cTexto.value)
.send()
EndWith

thisform.MapiSesion.SignOff
*


Un saludo para todos.
Diana Borello.-