Access y VBA - Envio de correo con link a web (2)

Envio de correo con link a web (2)

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85201
Fecha de impresión: 26/Marzo/2026 a las 15:42

Tema: Envio de correo con link a web (2)

Publicado por: 01loko
Asunto: Envio de correo con link a web (2)
Fecha de publicación: 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

http://drive.google.com/open?id=1BsIxAdsQM29gaA9k2fLkf38vJjlYE1Z6" rel="nofollow - https://drive.google.com/open?id=1BsIxAdsQM29gaA9k2fLkf38vJjlYE1Z6

Gracias por anticipado

-------------
Recordar de que soy nuevo y estoy aprendiendo.

Respuestas:

Publicado por: guarracuco
Fecha de publicación: 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.

Publicado por: guarracuco
Fecha de publicación: 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

Publicado por: 01loko
Fecha de publicación: 16/Enero/2021 a las 13:04

Gracias , ya lo solucione!

Podéis cerrar el hilo

-------------
Recordar de que soy nuevo y estoy aprendiendo.