Si eres usuario
Ingresa aquí »
¿Eres nuevo?
Regístrate
  • Google
  • Artículos
  • Foros
  • Fotos
  • Videos
  • Amigos
Estás en: Inicio / Foros / Informática / Programación

Respuesta
 
LinkBack Herramientas Buscar en este tema
Primate
VBScript envio Correo Electronico Automatico desde el OUTLOOK
Hola Amigos:
directo al grano, hice un scritp en vbs el que remite un correo electronico automaticamente a las 8:00 AM de Lunes a Viernes, esto con ayuda de tareas programadas de WIN$$ y un BAT. el codigo funciona remite el correo y adjunta un archivo excel (que en el fondo tiene la asistencia de los que fueron a trabajar), a través del OUTLOOK. El problema es el siguiente cada vez que se ejecuta el codigo, aparece una ventana que dice algo asi como "hay un codigo que esta intentando tener acceso al libro de direcciones de OUTLOOK y bla bla" hacer click en si o no ....entonces hay que clickear en si.... luego otra ventanita de seguridad y ahi recien se envia el correo ......Como solución parche estoy usando un programa DEMO que se llama CLICKYES PRO ....el que automaticamente cumple de manera virtual me imagino yo elhacer click en si y si, para enviar el correo. (por mas que he tratado de crackearlo y consegirme el serial no he podido). Entonces mi pregunta es la siguiente ¿Alguien conoce alguna manera ya sea VBScript u otra de automatizar las ventanitas o simplemente de eliminarlas?.... bueno de todas formas mando el Script vbs.

Dim MessageAttachment

On Error Resume Next
RCP = "correo@hotmail.com"
SUBZ = "Asistencia"
MSG = "Hola Estimadas: Aquí les mando como siempre puntual la Asistencia ATTE YO"

MessageAttachment="C:\Documents and Settings\usuario\Escritorio\lista.xls"

Set Outlook = CreateObject("Outlook.Application")
Set MAPI = Outlook.GetNameSpace("MAPI")
Set NewMail = Outlook.CreateItem(0)
NewMail.Subject = SUBZ
NewMail.Body = MSG

NewMail.Attachments.Add(MessageAttachment).Display name = "Check this out"

NewMail.Recipients.Add RCP
NewMail.Send


PD: Se agradece todo tipo de ayuda correo alternativo yetroades@hotmail.com
Programación VB
Re: VBScript envio Correo Electronico Automatico desde el OUTLOOK
1.- En VB6 agrega la referencia "Microsoft CDO For Exchange 2000 Library".
2.- Pega un Boton y un TextBox en una ventana.
3.- Pon el siguiente codigo en la vetana.

Código:
 
Public oMail As New CDO.Message
Private Sub Command1_Click()
     oMail.Sender = "QUIEN_ENVIA@mail.com"
     oMail.ReplyTo = "A_DONDE_RESPONDER@mail.com"
     oMail.From = "NOMBRE DE QUE ENVIA"
     oMail.To = "DESTINATARIO@mail.com"
     oMail.CC = "avaldez@mail.com"
     oMail.AddAttachment ("C:\Archivo Adjunto.zip")
     oMail.Subject = "HOLA MUNDO??"
     oMail.HTMLBody = Text1.Text
     oMail.Send
End Sub
con esto envias correos sin pasar por Outlook... ya es de ti la programacion que tenias en el script para que lo haga a las 8 am y demas reglas que le tengas...

Espero te sea util y soluciones tu problema...
Primate
Re: VBScript envio Correo Electronico Automatico desde el OUTLOOK
Shiwax gracias, pero no cumple con lo que necesito ........en que sentido?.....bueno que de todas maneras hay que hacer click en el btn command.....entonces es lo mismo que lo otro ....eso si reconozco que es mejor que no pase por outlook.....ahora pensando bien podria ...mmmm....sincronizarlo que mande un boolean o algo asi al clickbtn ..... y hay se ejecuta.....mmmm .... de todas formas le estoy hechando mano al codigo cuando resulte lo dejo.
Ahora si a alguien se le ocurre algo mejor y sabe como hacerlo por favor que lo mande.....
Programación VB
Re: VBScript envio Correo Electronico Automatico desde el OUTLOOK
solo cambia el codigo del boton al Form_Load() y listo...
ya no tienes que hacer click en nincun lado... o en un timer que cheque la hora... osea... no debe estar dentro del boton... yo solo envio ejemplos.. solo piensale tantito y tendras lo que necesitas...

tu mejor opcion es ponerlo en un timer... que se inicie automatico al iniciar el form... cheque la hora cada x tiempo y que cuando sea la hora que quieres mande el correo.. mañana del trabajo te respondo con el codigo!!! Saludos
Colgado de la Palmera
Re: VBScript envio Correo Electronico Automatico desde el OUTLOOK
Para quitar el mensaje de Outlook

Tienes que ir a Opciones en Seguridad
quitar la que dice en ingles

Warn me when other application try to send mail as me

Notificarme cuando otra aplicacion intenta enviar correo

Gracias por el codigo de correo, me sirve para validar algo pendiente
 
Respuesta



Herramientas Buscar en este tema
Buscar en este tema:

Búsqueda avanzada
Califica este tema
Califica este tema:


Este tema está relacionado con otros ya publicados en el sitio. Podés visitarlos ahora!
Tema Iniciado por Foro Resp. Último mensaje
Tuto Linux Capitulo 7/9 (Servidores Web y Correo Electronico) }Tingal0{ Info y Manuales 10 18.09.2009 10:24 hs.
[AYUDA] Outlook 2003 Como correo electronico maxpcs Chat, E-Mail y Mensajeros 1 19.11.2006 19:52 hs.
Error de envio correo electronico (Personal) gigaset General Teléfonos Móviles 0 17.11.2004 15:53 hs.
Problemas con el correo electronico Mexicano Chat, E-Mail y Mensajeros 3 26.09.2003 15:08 hs.
Te pueden hackear tu cuenta de correo electronico? perro Seguridad Informática 0 15.04.2003 13:16 hs.

Ranking de temas y usuarios de este foro
Temas populares Usuarios más activos
• Cliente Servidor UDP en C#
• Ayuda-Como Insertar filas en un JTable y...
• Juego de Truco Open Source - Se necesitan...
• Leer/escribir archivos binarios
• Necesito AYUDA-ALGORITMOS!
• AGUSTIN_RAMONE
• pangus
• ExtrañoInocente
• -HeavenMight-
• Kryptonyte


 
Ir arriba
Contacto | Acerca de | Ayuda | Términos Legales | privacidad | Pautas de convivencia | Mapa de los foros | TrabajÁ con nosotros
©2008 Psicofxp.com S.A. - Todos los derechos reservados
CertificaIAB
{{diadelamigo}}