Envio de Email (html, con autenticacion, ssl, sin dll)

Comparte aquí tu código abierto Velneo

Moderador: vCoaches

Avatar de Usuario
weekend
vAdviser
vAdviser
Mensajes: 487
Registrado: 03 Nov 2007, 12:24
Ubicación: Madrid, España

Mensaje por weekend » 28 Mar 2009, 23:14

Te he enviado un correo, usando el vbScript, con un fichero adjunto que es un script que deberia de funcionar, echale un vistazo.
Algunas cosas que he visto
Si usas google el puerto creo que obligatoriamente es 465, por lo menos es el que yo uso
En la linea UsaAutenticacion = 1, yo en lugar de 0 o 1 yo uso true o false, creo que deberia dar lo mismo, pero por si acaso...
Y la linea msg.AddAttachment Anexo siempre tiene que ir sin comilla

Espero que te sirva
Saludos

El hardware es lo que puedes patear, y el software, lo que puedes maldecir.
weekend40@gmail.com

Fredy
vMate
vMate
Mensajes: 26
Registrado: 10 Jun 2006, 11:11

Mensaje por Fredy » 29 Mar 2009, 00:38

Alabado seas weekend, no se como agradecerte el que me hayas dedicado tanto tiempo, por fin me funciona. He cambiado el puerto y ahora si.
Gracias de nuevo, me has sacado de un apuro

Multicarten
vRookie
vRookie
Mensajes: 23
Registrado: 25 Mar 2009, 23:58

Fichero adjunto desde ventana

Mensaje por Multicarten » 04 Abr 2009, 22:40

Una pregunta, con este map se podría enciar un adjunto seleccionado desde la ventana, mandar me manda el prueba.jpg, pero podría seleccionar el fichero desde la ventana de envío.

UN saludo

Fredy
vMate
vMate
Mensajes: 26
Registrado: 10 Jun 2006, 11:11

Mensaje por Fredy » 05 Abr 2009, 17:47

Si que puedes hacerlo
Adjuntos
Untitled - 1.jpg
(9.84 KiB) Descargado 482 veces

filipeagg
vAdviser
vAdviser
Mensajes: 485
Registrado: 02 May 2008, 17:49
Ubicación: Zamora y Portugal

re

Mensaje por filipeagg » 18 Abr 2009, 21:28

Filipe Gomes
Programador y consultor SEO

gijontm
vRookie
vRookie
Mensajes: 24
Registrado: 09 Mar 2009, 13:51

Re: re

Mensaje por gijontm » 23 May 2009, 13:32

umm estoy intentando agregar un archivo adjunto y no soy capaz si que envio el mail pero sin el archivo adjunto

os dejo aqui el vb que uso


' ------------------- PARAMETROS
SMTPServer = "#AVP%SMTP%"
Recipient = "#AVP%DESTINATARIO%"
From = "#AVP%REMITENTE%'"
User = "#AVP%USER%'"
Pass = "#AVP%PASS%"
Subject = "#AVP%ASSUNTO%"
Message = "#AVP%CUERPO%"
UsaAutenticacion = #AVP%AUTENTICA%
ServerPort = #AVP%PUERTO%
TimeOut = 40
UsaSsl=#AVP%SSL%
MsgOk="Email enviado con exito"
Anexo=\cC:\ prueba.jpg\c

' ------------------- INICIO DE FUNCION
GenericSendmail SMTPserver, From, Recipient, Subject, Message
Sub GenericSendmail (SMTPserver, From, Recipient, Subject, Message)
set msg = WScript.CreateObject("CDO.Message")
msg.From = From
msg.To = Recipient
msg.Subject = Subject
'msg.TextBody = Message //envia email tipo texto plano
'msg.CreateMHTMLBody //envia email de url
msg.HTMLBody= Message

msg.AddAttachment Anexo
'msg.AttachFile "c:\texto.txt"

msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... thenticate") = UsaAutenticacion
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... smtpusessl") = UsaSsl
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... serverport") = ServerPort
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... iontimeout") = TimeOut
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... smtpserver") = SMTPServer
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... ndusername") = User
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... ndpassword") = Pass
msg.Configuration.Fields("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
msg.Configuration.Fields.Update

msg.Send
'errores: 64-informativo 16-Error
MsgBox MsgOk, 64, " Envio de Email "
Set msg = Nothing
End Sub

a ver si alguien me puede hechar un mano

gijontm
vRookie
vRookie
Mensajes: 24
Registrado: 09 Mar 2009, 13:51

Re

Mensaje por gijontm » 29 May 2009, 18:08

Bueno me contesto a mi mismo pero bueno estube haciendo pruebas y encontre la forma de hacerlo asi que las sentencias claves son estas

de esta manera se puede poner la ruta directamente
Anexo=\cC:\\Documents and Settings\\Usuario\\Escritorio\\Envio de Email\\Factura sin retención.pdf\c

o bien si se quiere hacer desde una variable
Anexo=\c"+%ANEXO%+"\c pero la variable anexo debera de estar en el formato para que pueda interpretarla por lo que tiene que pasar por fAjustaSenda( %ANEXO% )

aamoros
vAdviser
vAdviser
Mensajes: 318
Registrado: 16 May 2006, 23:39
Ubicación: Alicante-España

Mensaje por aamoros » 02 Jun 2011, 15:41

Hola, buenas tardes, cual es la forma de darle la ruta del archivo a adjuntar?? Actualmente adjunto toda la senda incluso con el archivo, pero no lo envía?

Muchas gracias!

Juan Carlos Salom
vMate
vMate
Mensajes: 30
Registrado: 22 Sep 2005, 09:54
Ubicación: Mallorca - España

Mensaje por Juan Carlos Salom » 06 Jun 2011, 11:00

Yo he logrado enviar UN archivo adjunto, utilizando la versión 1 que nos aportó Filipe Gomes en el link http://forum.velneo.com/es/viewtopic.ph ... ght=anexos , después de corregir un detalle pequeño que el mismo nos informó mas adelante.

Lo que no he logrado es enviar mas de UN archivo adjunto. Me explico un poco mas: Necesito enviar dos archivos, TEXTO1.TXT y TEXTO2.TXT

¿Como se lo debo decir al programa? He probado con punto y coma y no funciona.

Os adjunto el mapa de Filipe funcionando para enviar UN archivo anexo por si alguien lo necesita.
Adjuntos
vbscript-2.map
Mapa de Filipo que envía un adjunto
(243.52 KiB) Descargado 229 veces
Juan Carlos Salom
"Creo mucho en que la suerte ayuda, y entre más me esfuerzo más me ayuda."

Juan Carlos Salom
vMate
vMate
Mensajes: 30
Registrado: 22 Sep 2005, 09:54
Ubicación: Mallorca - España

Mensaje por Juan Carlos Salom » 06 Jun 2011, 12:01

Me respondo yo mismo por si a alguien le sirve:

Para enviar varios archivos adjuntos, hay que añadir tantas líneas como archivos adjuntos con la instrucción:

msg.AddAttachment archivo
en el archivo email.vbs

Os anexo un ejemplo con dos archivos anexos.

Saludes

' ------------------- PARAMETROS
SMTPServer = "smtp.server.com"
Recipient = "to@to.com"
From = "from@from.com"
User = "user"
Pass = "pwd"
Subject = "Hola, estoy testeando mi email"
Message = ""
UsaAutenticacion = 1
ServerPort = 25
TimeOut = 40
UsaSsl=false
MsgOk="Email enviado con exito"
' ------------------- INICIO DE FUNCION
GenericSendmail SMTPserver, From, Recipient, Subject, Message
Sub GenericSendmail (SMTPserver, From, Recipient, Subject, Message)
set msg = WScript.CreateObject("CDO.Message")
msg.From = From
msg.To = Recipient
msg.Subject = Subject
'msg.TextBody = Message //envia email tipo texto plano
'msg.CreateMHTMLBody //envia email de url
msg.HTMLBody= Message

'----PARA ENVIAR VARIOS ANEXOS
msg.AddAttachment "C:\TEXTO1.TXT"
msg.AddAttachment "C:\TEXTO2.TXT"

msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... thenticate") = UsaAutenticacion
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... smtpusessl") = UsaSsl
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... serverport") = ServerPort
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... iontimeout") = TimeOut
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... smtpserver") = SMTPServer
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... ndusername") = User
msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/config ... ndpassword") = Pass
msg.Configuration.Fields("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
msg.Configuration.Fields.Update
msg.Send
'errores: 64-informativo 16-Error
MsgBox MsgOk, 64, " Envio de Email "
Set msg = Nothing
End Sub
Juan Carlos Salom
"Creo mucho en que la suerte ayuda, y entre más me esfuerzo más me ayuda."

Responder