Visual Basic Link e-mail no VBA com erro

Quedison Nunes Alves · 18 de setembro de 2022

Bom dia Pessoal !

Estou montando uma macro que envia e-mail contendo um link.
neste link devera conter:

Nome do arquivo = Dim sFile As String: sFile = Application.ActiveWorkbook.Name
Caminho: Dim PathWatting As Strin: PathWatting = "C:\Users\Nunes\Desktop\PROJETO\Teste_Local\ENVIADOS\"
Link = "<a href=" & PathWatting & Ano & "\" & Mes & "\" & sFile & ">Click Aqui</a> Para acesso ao Documento"

Erro:
porém o nome do aquivo pode possuir espacos e na hora que o VBA envia o link , ele vem quebrado .

segue exempo:
Deveria vir assim o link:
file///C:\Users\Nunes\Desktop\PROJETO\Teste_Local\ENVIADOS\Cadastro Clientes Restritos.xlsm
Mas vem assim:
file///C:\Users\Nunes\Desktop\PROJETO\Teste_Local\ENVIADOS\Cadastro

(faltando dados bem na parte onde temos os espacos )

Segue o codigo para usado.

Sub Envia_email()

Dim sFile As String: sFile = Application.ActiveWorkbook.Name
Dim PathWatting As String: PathWatting = "C:\Users\Nunes\Desktop\PROJETO\Teste_Local\ENVIADOS\"

'Enviar e-mail
    Dim sPara      As String
    Dim sMsg       As String
    Dim sAssunt    As String
    Dim Link       As String
    
    
    sAssunt = sFile + " - Aguardando Aprovação"  'Assunto
    Link = "<a href=" & PathWatting & sFile & ">Click Aqui</a> Para acesso ao Documento"
    
    
    strbody = "<BODY style=font-size:10pt;font-family:Arial>Prezados !<br><br>" & _
          "Para Aprovação, Acesse o link Abaixo:<br><br/><a href=" & FullNameNew & Link & "<br><br>" & _
          "Diretorio:  " + PathWatting & FullName & "<br>" & _
          "Nome Arquivo:  " + sFile & _
          "<br>" & _
          "<br><br>" & _
          "Obrigado," & _
          "<br>" & _
          "ATT Equipe Desenvolvimento"


    Dim OutlookApp   As Object
    Dim OutlookMail  As Object
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.createitem(0)

    With OutlookMail
        .to = ""
        .cc = ""
        .bcc = ""
        .Subject = sAssunt
        .Body = sMsg
        'Attachments.Add
        .htmlbody = strbody
        .display
    End With

    Set OutlookMail = Nothing
    Set OutlookApp = Nothing

End Sub