obligada > microsoft.* > microsoft.win2000

xabier (27-10-2005, 13:15)
Hola a todos.
Alguien sabe si puedo hacer una tarea programada para enviar un archivo

por mail cada vez que encienda un equipo.
en realidad me hace falta cuado se apague pero eso va a ser imposible,
asi que me arreglo con que se mande cuando se encienda
yo habia pensado hacerlo con una tarea programada pero si alguien
conoce otra forma mejor, tambien me vale que se menade a una hora
determinada
si a alguien tambien se le ha ocurrido eso y no se puede hacer que me
lo diga asi no me como la cabeza como estoy haciendo ahora
gracias
Carlos Moral (27-10-2005, 15:22)
Si que se puede, pero con software de terceros.
Yo te puedo pasar un programa que ocupa menos de 200 Kb para enviar email
bajo windows por linea de comandos.
Necesita de un servidor de correo para que funcione y debe funcionar al
apagar el equipo, si se le pone la macro en el script de cierre de sesión o
apagado.
Si te interesa, dime un email valido para enviartelo.
Fernando Reyes [MS MVP] (28-10-2005, 01:54)
Lo puedes hacer con VBScript. Te lo adjunto como .txt para evitar a los antivirus; debes cambiarle la extensión a .vbs y lanzarlo con cscript o wscript. Para los que acceden desde web pego a continuación el script:

<pego>
'Creamos un objeto CDO.Message
Set obj_Emilio = CreateObject("CDO.Message")

'Establecemos el remitente
obj_Emilio.From = "remitente"

'Establecemos el destinatario
obj_Emilio.To = "destinatario"

'Si necesitamos mandar una copia
obj_Emilio.CC = "concopia"

'Si necesitamos mandar una copia oculta
obj_Emilio.BCC = "concopiaoculta"

'Asunto del correo
obj_Emilio.Subject = "Asunto del emilio"

'Texto del cuerpo del mensaje
obj_Emilio.Textbody = "Este es el texto que tiene el emilio" & vbCrLf & vbCrLf & "Un saludo" & vbCrLf & "remitente"

'Especificamos el fichero a adjuntar
obj_Emilio.AddAttachment("c:\fichero1.txt")

'El método AddAttachment nos permite adjuntar tantos ficheros como necesitamos
'sólo con volver a llamarlo tantas veces como sea necesario. En este ejemplo
'vamos a adjuntar un segundo fichero.
obj_Emilio.AddAttachment("e:\fichero2.txt")

'Especificamos que el servidor SMTP no está en el propio equipo desde el que se envía el correo
'Un valor de 1 significa que usaremos el servidor SMTP del propio equipo y un valor de dos
'que utilizaremos uno externo; por ello ponemos de valor 2
obj_Emilio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Especificamos la URL o la IP del servidor SMTP (aquí pones la de tu ISP, por ejemplo)
obj_Emilio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tuisp.com"

'Especificamos el tipo de autenticación (0 sin autenticación, 1 con autenticación básica (texto plano) y 2 con
'autenticación NTLM. En el ejemplo lo haremos con autenticación básica.
obj_Emilio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Especificamos si se usará SSL para el envío, en el ejemplo no se usará.
obj_Emilio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Especificamos el nombre del usuario
obj_Emilio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario@"

'Especificamos la contraseña
obj_Emilio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "contraseña"

'Especificamos el puerto por el que está el servidor SMTP (por defecto el 25)
obj_Emilio.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Actualizamos la configuración de envío del objeto CDO.Message
obj_Emilio.Configuration.Fields.Update

'Enviamos el correo
obj_Emilio.Send
</pego>

Y ahora me voy a la cama, que ya va siendo hora -(|;o))
xabier (28-10-2005, 10:51)
Hola Carlos.
Enviamelo a este mail xabier.bit

probare con tu opcion porque la de fernándo Reyes me parece un poco
mas complicada

Carlos Moral ha escrito:
[..]
xabier (28-10-2005, 19:07)
Gracias Carlos.
Ya lo he probado y funciona bien, por lomenos lo enviar el archivo,
ahora probare a comprimirlo y hacerlo cuando se apague, pero para eso
ya me arreglo
gracias
Carlos Moral (29-10-2005, 02:14)
De nada
maciasjean23 (15-02-2016, 20:01)
El jueves, 27 de octubre de 2005, 8:22:57 (UTC-5), Carlos Moral escribió:
[..]
> Saludos desde Granada
> "xabier" <xabier.bit> escribió en el mensaje
> news:5780

amigo puedes enviarme a este correo necesito ese software por favor
maciasjean23
juangdm (19-09-2016, 14:53)
El jueves, 27 de octubre de 2005, 20:54:28 (UTC-3), Fernando Reyes [MS MVP]escribió:
[..]
> una hora
> y no se puede hacer que me
> haciendo ahora


Muchas gracias!

Slds
johangutierrez90 (12-07-2017, 04:47)
El jueves, 27 de octubre de 2005, 9:22:57 (UTC-4), Carlos Moral escribió:
[..]
> Saludos desde Granada
> "xabier" <xabier.bit> escribió en el mensaje
> news:5780


holaa carlos me podrias enviar el programa al correo johangutierrez90@gmail..com, saludos desde caracas venezuela o me podrias ayudar a realizar uno que envie un correo cuando la impresora se le este acabando la tinta o mande el mensaje de alerta
johangutierrez90 (12-07-2017, 04:49)
El jueves, 27 de octubre de 2005, 7:15:18 (UTC-4), xabier escribió:
[..]
Temas Similares