Esta ves les traigo un pedazo de código en vbscript para mandar mail usando outlook y para eso deberemos de agregar nuestra cuenta dando clic en:
Herramientas--Configuración de cuenta y nos saldrá esta imagen
damos clic en Nuevo y ingresamos los datos que nos piden en la siguiente ventana
al terminar daremos clic en siguiente y luego finalizar
y como ven ya tenemos agregada nuestra cuenta.
ahora abriremos el bloc de notas y escribiremos el siguiente código:
Nota: en cada linea del código viene su explicación
On Error Resume Next ' esta linea espara que si hay un error no se detenga y siga ejecutandose'
dim para,asunto,mensaje,adjunto,correo,outlook ' aqui declaramos las variables a usar'
para = "flamer.mateus@gmail.com" ' guardamos en la variable "para" el correo destino en mi caso es el mio '
asunto = "Pruebas 123" ' aguardamos en la variable "asunto" el asunto del mensaje'
mensaje = "solo es una prueba" ' aqui aguardamos en la variable "mensaje" el mensaje que llevara el correo'
Adjunto="" ' aqui aguardamos en la variable "adjunto" la direccion del archivo que enviaremos'
Set outlook = createObject("Outlook.Application") ' en esta linea creamos el objecto outlook'
Set correo = outlook.CreateItem(olMailItem) ' y en esta otra creamos el objecto correo de tipo Mailitem, pueden poner 0 olMailItem es la misma'
correo.To = para ' le pasamos el valor de la variable "para" al evento "To" del objeto correo '
correo.Subject = asunto ' le pasamos el valor de la variable "asunto" al evento "subject" del objeto correo '
correo.Body = mensaje ' le pasamos el valor de la variable "mensaje" al evento "body" del objeto correo '
correo.Attachments.Add(adjunto).Display ' aqui adjuntamos el archivo de la direccion que se almasena en la variable "adjunto"'
correo.Send ' aqui enviamos el correo'
if err.number=0 or err.number=-2147024893 then ' pregunta si no hay errores entra y si el error fue de que no encontro el archivo entra tambien'
msgbox "El Mail Se envio Correctamente a " & para ' si todo sale bien muestra el mensaje que el mail se envio correctamente'
else
msgbox err.number & " : " & err.description ' muestra un mensaje de error si lo hay'
end if
ahora que tenemos el archivo pasaremos a ejecutarlo y me muestra el mensaje correcto
ahora pasare a verificar mi cuenta de gmail y como si me llego el mensaje
bueno amigos eso es todo espero que a alguien le sirva
saludos Flamer
