Notifications
Clear all

Nome de arquivo com ESPAÇOS

5 Posts
2 Usuários
0 Reactions
714 Visualizações
(@mpmenarim)
Posts: 2
New Member
Topic starter
 

Boa Tarde

Estou tentando inserir um link de um arquivo em um e-mail que envio através de uma macro. O problema é que o nome do arquivo possui um ESPAÇO no meio (TESTE PASTA.xlsm), e quando o destinatário recebe o e-mail, o link para o arquivo fica incorreto, pois só considera até o ESPAÇO.

O VBA que estou utilizando segue abaixo:

Set aplicacaoOutlook = CreateObject("Outlook.Application")
 Set OutLookMail = aplicacaoOutlook.CreateItem(0)
 On Error Resume Next

 With OutLookMail
 .to = "teste@teste.com"
 .Subject = "Teste"
 .Body = "Olá." & vbNewLine & _
 "TESTE" & _
 vbNewLine & _

 "file://C:TESTETESTETESTE PASTA.xlsm"
 .Send
 End With

Quando o destinatário recebe a mensagem, o texto do e-mail fica dessa forma:

Olá.

TESTE

file://C:TESTETESTETESTE PASTA.xlsm

Note que o link fica somente até onde tem o ESPAÇO, após isso ele considera como texto normal.

Alguém sabe como resolver este problema??? Como faço para que o todo o texto (não somente até onde tem ESPAÇO) seja atribuído ao link???

 
Postado : 27/06/2016 10:29 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Tente inserir no espaço "%20" (sem as aspas)

Click em se a resposta foi util!

 
Postado : 27/06/2016 2:34 pm
Basole
(@basole)
Posts: 487
Reputable Member
 

Ou melhor... tente desta forma:

Set aplicacaoOutlook = CreateObject("Outlook.Application")
Set OutLookMail = aplicacaoOutlook.CreateItem(0)
On Error Resume Next

With OutLookMail
.to = "teste@teste.com"
.Subject = "Teste"
.Body = "Olá." & vbNewLine & _
"TESTE"
.HTMLBody = "Por favor click aqui<a href='file://C:TESTETESTETESTE PASTA.xlsm'>link</a>"
.Send
End With

Click em se a resposta foi util!

 
Postado : 27/06/2016 9:04 pm
Basole
(@basole)
Posts: 487
Reputable Member
 

Ou melhor... tente desta forma:

Set aplicacaoOutlook = CreateObject("Outlook.Application")
Set OutLookMail = aplicacaoOutlook.CreateItem(0)
On Error Resume Next

With OutLookMail
.to = "teste@teste.com"
.Subject = "Teste"
.Body = "Olá." & vbNewLine & _
"TESTE"
.HTMLBody = "Por favor click aqui<a href='file://C:TESTETESTETESTE PASTA.xlsm'>link</a>"
.Send
End With

Click em se a resposta foi util!

 
Postado : 27/06/2016 9:04 pm
(@mpmenarim)
Posts: 2
New Member
Topic starter
 

Bom dia Basole.

Deu certo com a primeira opção ("%20").

Com o HTML não consegui enviar como link.

Obrigado.

 
Postado : 28/06/2016 6:40 am