#1 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
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
0
