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

[weekend]

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

[Fredy]

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]

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]

Si que puedes hacerlo

[filipeagg]

Version mejorada en http://forum.velneo.com/es/viewtopic.php?t=21581

[gijontm]

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]

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]

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]

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.

[Juan Carlos Salom]

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