em .body tente colocar o código abaixo :
coloque o link em b1

Sheets("nome planilha").Range("b1").Value

bom dia,

Thiago4142,

desculpe, não fui bem claro na minha colocação acima.

tenho uma pasta chamado "Anexo", dentro da pasta anexo tem vários arquivos chamados "At - 001"; "At - 002" e assim por adiante.
quando uso a macro para enviar email, gostaria de enviar um link para acessar os arquivos desta pasta, apenas um arquivo.
o endereço para acessar este arquivo seria da celula B1, (P:anexoAt - xxx)

a macro que uso é o seguinte: ele salva o arquivo automaticamente na pasta "anexo" e envia um email ao destinario avisando que o arquivo foi salvo na pasta "anexo".

gostaria de modificar, enviando o link para acessar o arquivo.

desde já agradecido

Zeuh, boa tarde.

Verifique se te atende, onde sFullName é uma variável com o endereço que você quer.

 With OutMail
        .To = 
        .CC = 
        .BCC = ""
        .Subject = 
        .HTMLbody = strbody & "(The file with the full details can be found <a href='" & sFullName & "'>here</a>.)"

leogranja

como inserir esta variavel sfullName??

obrigado.

Zeuh, boa tarde.

Tente fazer assim:

    Dim sFullName As String

sFullName = Sheets("VENDAS CONSOLIDADAS").Range("B1").Value

ou

    Dim sFullName As String

sFullName = "P:anexoAt - xxx"

leogranja

Mano, deu certo.... ok...
outra coisa, pra ficar 101% rsrs..
como coloco quebra de texto no corpo de email.
gostaria que ficasse assim:

" olà,
segue abertura da At - xx
(The file with the full details can be found here.) "

valeu.... mas deu certo...

abraço..

Boa tarde Zeuh,

Use o código "<br>":

.HTMLbody = "olá" & "<br>" & "segue abertura da At - xx" & "<br>" & "(The file with the full details can be found <a href='" & sFullName & "'>here</a>.)"

Abraço!!

leogranja

PERFEITO..... isso mesmo..

show..

obrigado

Muito obrigado ai...

Thiago4142

leogranja

abraço...