Enviar correo por OUTLOOK con vbscript - Eliminado Adjunto -

vForum público de la plataforma de desarrollo Velneo

Moderador: vCoaches

Responder
antonio osorio
vAdviser
vAdviser
Mensajes: 257
Registrado: 14 Mar 2006, 20:27

Enviar correo por OUTLOOK con vbscript - Eliminado Adjunto -

Mensaje por antonio osorio » 01 Mar 2011, 13:47

Hola.

Adjunto un script que envia correos, con ficheros adjuntos por medio de outlook.
//////////////////////////////////////////////////
Dim MessageAttachment
On Error Resume Next
RCP = "info@dominio.com"
SUBZ = "Prueba de Correo con Outlook"
MSG = "Cuerpo del correo"
MsgOk="Email enviado con exito"
MessageAttachment="C:\parte.pdf"
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 = "Comprobar esto"
NewMail.Recipients.Add RCP
NewMail.Send
MsgBox MsgOk, 64, " Envio de Email "
Set msg = Nothing
///////////////////////////////////////////////////////////////////////////

Espero que sea de vuestro interes.

Un Saludo.
Última edición por antonio osorio el 01 Mar 2011, 19:47, editado 1 vez en total.

Avatar de Usuario
DESARROLLADOR
vLeader
vLeader
Mensajes: 1504
Registrado: 17 Ago 2006, 17:49
Ubicación: Tamaulipas México
Contactar:

Mensaje por DESARROLLADOR » 01 Mar 2011, 15:03

El link de descarga marca virus con kaspersky OJO

Responder