Envio de Email (html, con autenticacion, ssl, sin dll)
Moderador: vCoaches
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
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
El hardware es lo que puedes patear, y el software, lo que puedes maldecir.
weekend40@gmail.com
-
- vRookie
- Mensajes: 23
- Registrado: 25 Mar 2009, 23:58
Fichero adjunto desde ventana
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
UN saludo
re
Version mejorada en http://forum.velneo.com/es/viewtopic.php?t=21581
Filipe Gomes
Programador y consultor SEO
Programador y consultor SEO
Re: re
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
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
Re
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% )
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% )
-
- vMate
- Mensajes: 30
- Registrado: 22 Sep 2005, 09:54
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.
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 291 veces
Juan Carlos Salom
"Creo mucho en que la suerte ayuda, y entre más me esfuerzo más me ayuda."
"Creo mucho en que la suerte ayuda, y entre más me esfuerzo más me ayuda."
-
- vMate
- Mensajes: 30
- Registrado: 22 Sep 2005, 09:54
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
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."
"Creo mucho en que la suerte ayuda, y entre más me esfuerzo más me ayuda."