** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Envio de correo con link a web (2)
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoEnvio de correo con link a web (2)

 Responder Responder
Autor
Mensaje
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 807
Enlace directo a este mensaje Tema: Envio de correo con link a web (2)
    Enviado: 22/Abril/2020 a las 21:28
Estoy con un codigo para enviar correos mediante automatizacion:
lo que hace es, coje el archivo htmde la firma y cambia las rutas relativas (\archivo_firma_archivos\ficheros de imagenes) por rutas absolutas (c:\users\usuario\appdata\microsoft\firmas...\ficheros de imagenes), cambiando las barras "\" por "/" (Tal como exige html) para despues usarlos en el correo como firma.

Cuando el nombre de la firma es una sola palabra (sin espacios) lo hace bien, pero en cuanto tiene espacios deja de hacerlo (aunque meta en medio de las palabras "%20")

alguien tiene una idea de esto?

PD: Os dejo el mdb, por si quereis verlo o aprovecharlo

Gracias por anticipado
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
guarracuco Ver desplegable
Moderador
Moderador


Unido: 24/Abril/2004
Localización: EEUU
Estado: Sin conexión
Puntos: 3239
Enlace directo a este mensaje Enviado: 24/Abril/2020 a las 12:44
Se debe codificar las cadenas de texto enviadas en URL. Busca en el foro al respecto, encontrarás ejemplos. Hace unos meses colgué un ejemplo donde se hacía manualmente o usando Javascript.
Arriba
guarracuco Ver desplegable
Moderador
Moderador


Unido: 24/Abril/2004
Localización: EEUU
Estado: Sin conexión
Puntos: 3239
Enlace directo a este mensaje Enviado: 24/Abril/2020 a las 18:24
En vista de que no encontre ni mis propias respuestas:
Una es utilizando libreria de Javascript y la otra es 'manual'.

Function encoded(strUrl As String) As String
'Microsoft Script Control as reference
Dim ScriptEngine As ScriptControl
Set ScriptEngine = New ScriptControl
ScriptEngine.Language = "JScript"

ScriptEngine.AddCode "function encode(str) {return encodeURIComponent(str);}"
'Dim encoded As String
encoded = ScriptEngine.Run("encode", strUrl)
Set ScriptEngine = Nothing
End Function



Function fEncode(texto) As String
 ' Encode URL special characters
   texto = Replace(texto, " ", "%20")
   texto = Replace(texto, "'", "%27")
   texto = Replace(texto, "-", "%2D")
   texto = Replace(texto, ",", "%2C")
   texto = Replace(texto, "_", "%5F")
   texto = Replace(texto, "=", "%3D")
   texto = Replace(texto, "+", "%2B")
    texto = Replace(texto, "/", "%2F")
   texto = Replace(texto, Chr(13), "%20")
   texto = Replace(texto, vbCr, "%0D%0A")
    texto = Replace(texto, vbLf, "%20")
    texto = Replace(texto, "?", "%3F")
   fEncode = texto
End Function
Arriba
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 807
Enlace directo a este mensaje Enviado: 16/Enero/2021 a las 13:04
Gracias , ya lo solucione!
Podéis cerrar el hilo
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable