¿Te atreves a demostrar lo que sabes resolviendo alguno de estos
temas abiertos/no resueltos?

Ayuda con Correos d...
 
Compartir:
Avisos
Vaciar todo

Ayuda con Correos desde VBA con imagen como firma.  

  RSS
Purifying
(@purifying)
Nuevo miembro Registered

Hola, tengo el siguiente código para enviar un correo.

El problema que tengo es que la ubicación de la firma varia dependiendo el usuario de windows.

Si alguien podría darme una solución, para no tener que cambiar el código para cada usuario.

Muchas gracias!!!!

Spoiler
Codigo

Sub Enviar_Correo()

Dim mi_App As Object
Dim mi_Correo As Object

Set mi_App = CreateObject("Outlook.Application")
mi_App.Session.logon

Set mi_Correo = mi_App.CreateItem(0)
ActiveWorkbook.Save

On Error Resume Next

With mi_Correo
body1 = Range("G8").Value
body2 = Range("G9").Value
body3 = Range("G10").Value

firma_nombre = Range("G12").Value

.To = Range("G5").Value
.CC = Range("G6").Value
.BCC = Range("").Value
.Subject = Range("G7").Value

.HTMLBody = "

" & "" & body1 & "

" & body2 & "

" & body3 & "
" & "

" & "" & "

" & "
" & firma_nombre & "

"
.Attachments.Add Range("G11").Value
.DeleteAfterSubmit = False
.Recipients.ResolveAll
.display
End With

On Error GoTo 0

Set mi_Correo = Nothing
Set mi_App = Nothing

End Sub

Citar
Respondido : 06/10/2020 6:31 am
RET
 RET
(@ret)
Miembro Admin

Hola @Purifying,

Puedes mandar un par de pantallazos de a que te refieres con que la ubicación varía en función del usuario de Windows?

Creo entenderte que ese código es usado para diferentes usuarios, en diferentes máquinas o en la misma con distinta sesión, pero no se si te refieres a que cambia la ubicación de la imagen de la firma (C:\Users\Test\Desktop\Herramientas\Firma.png) o a que cambia físicamente su posición en el cuerpo del mensaje.

Si te refieres a la ruta, puedes crear la ruta de cada usuario, siempre que almacenes su imagen de firma en un sitio homogéneo, por ejemplo en Documentos del usuario, con el siguiente código:

Set WshShell = CreateObject("WScript.Shell")
Ruta = WshShell.SpecialFolders("MyDocuments")
Set WshShell = Nothing
Ruta = Ruta & "\Firma.png"

 

Ya dirás si es esto lo que necesitas.

 

Saludos,

IMF_RET

https://InformaticaMuyFacil.com

 

ResponderCitar
Respondido : 06/10/2020 4:21 pm
Purifying
(@purifying)
Nuevo miembro Registered

@ret gracias por la ayuda.

ResponderCitar
Respondido : 07/10/2020 6:41 am
RET
 RET
(@ret)
Miembro Admin

Buena @purifying,

 

Al final no me queda claro si eso era lo que necesitabas o ya lo has resuelto por otro lado.

IMF_RET

https://InformaticaMuyFacil.com

ResponderCitar
Respondido : 07/10/2020 11:24 am

Dejar una respuesta

Nombre del autor

Correo electrónico del autor

Título *

 
Vista previa 0 revisiones Guardado