sábado, 27 de agosto de 2016

Mandar Mail Desde Vbscript Con Outlook

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

No hay comentarios.:

Publicar un comentario