Correo con adjuntos

06/08/2003 - 11:09 por Julian | Informe spam
Tengo que realizar una aplicación que envíe automáticamente un correo con un
fichero adjunto a una serie de direcciones de correo, para lo cual utilizo
este programa que tomé del foro.



theApp = CREATEOBJECT("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon()
theMailItem = theApp.CreateItem(0)
IF TYPE('theMailItem')=='O'

theMailItem.Recipients.ADD( '&MEMAIL' )
theMailItem.Subject = 'E-Mail Profit '
theMailItem.Attachments.ADD('&LARCHIVO') theMailItem.SEND

ENDIF



Funciona muy bien, el problema que tengo es que cada vez que se ejecuta me
aparece el siguiente mensaje:

Un programa está intentando obtener acceso a direcciones de correo
electrónico almacenadas en Outlook. ¿Desea permitirlo?

Si esto es inesperado, puede que sea un virus y debería elegir no



Cuando pulso SI, aparece otra pantalla diciendo:

Un programa está intentando enviar un correo electrónico en su nombre,
¿Desea permitirlo?



Si le digo que SI me lo envía correctamente.



¿Hay alguna forma de enviar el correo sin que me aparezcan estos mensajes?,
ya que este procedimiento debe ser automático y se ejecutará por las noches

Preguntas similare

Leer las respuestas

#1 David Amador \(Davphantom\)
06/08/2003 - 13:50 | Informe spam
Debes desactivar esta opción de seguridad en las opciones del OutLook
pero entonces los virus podran enviar emails a tu nombre ...

Ve al menu Herramientas Opciones ... Luego escojes la pagina "Seguridad"
y quita la marca del chechbox donde diga "Avisarme cuando otras
aplicaciones esten intentado enviar email a mi nombre"

y Listo .. no te aparece el mensaje...

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


"Julian" escribió en el mensaje
news:eLqJpp$
Tengo que realizar una aplicación que envíe automáticamente un correo con


un
fichero adjunto a una serie de direcciones de correo, para lo cual utilizo
este programa que tomé del foro.



theApp = CREATEOBJECT("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon()
theMailItem = theApp.CreateItem(0)
IF TYPE('theMailItem')=='O'

theMailItem.Recipients.ADD( '&MEMAIL' )
theMailItem.Subject = 'E-Mail Profit '
theMailItem.Attachments.ADD('&LARCHIVO') theMailItem.SEND

ENDIF



Funciona muy bien, el problema que tengo es que cada vez que se ejecuta me
aparece el siguiente mensaje:

Un programa está intentando obtener acceso a direcciones de correo
electrónico almacenadas en Outlook. ¿Desea permitirlo?

Si esto es inesperado, puede que sea un virus y debería elegir no



Cuando pulso SI, aparece otra pantalla diciendo:

Un programa está intentando enviar un correo electrónico en su nombre,
¿Desea permitirlo?



Si le digo que SI me lo envía correctamente.



¿Hay alguna forma de enviar el correo sin que me aparezcan estos


mensajes?,
ya que este procedimiento debe ser automático y se ejecutará por las


noches













email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida