Bom dia, falta so este detalhe apenas.
Quero dentro deste comando, colocar uma localizacao de uma celula, que aponte inclua alguma observacao.
.Body = "Segue anexo seu Pedido para Aprovação." ........ , eu quero colocar antes do "Segue anexo ......" a celula onde se encontra a observacao a ser enviada, pois esta poderá mudar de loja para loja. Na minha planilha esta Celula será a "A 26" .
With EmailItem
.Subject = "Seu Pedido Gauer do Brasil"
.Body = "Segue anexo seu Pedido para Aprovação." & vbCrLf & _
"" & vbCrLf & _
"FAVOR VERIFICAR SEUS DADOS DE LOJISTA E ENDEREÇO DE ENTREGA" & vbCrLf & _
"" & vbCrLf & _
"Obrigado!" & vbCrLf & _
"" & vbCrLf & _
"André Luiz" & vbCrLf & _
"Fone: (21)3564-2347" & vbCrLf & _
"WhatsApp: (21)98799-3381" & vbCrLf & _
"atendimento-rj@gauerdobrasil.com.br"
.To = sQualEmail
.CC = "atendimento-rj@gauerdobrasil.com.br"
.Importance = olImportanceNormal
.Attachments.Add ActiveWorkbook.Path & "Temp.pdf"
.Send
Grato pela Ajuda
Andre, você está querendo carregar em uma Variável o nome que se encontra em outras abas em um determinado Range.
Então pelo que entendi :
1º ) Você cria varias abas que ficam em espera (temporárias) para em determinado tempo enviar ao cliente.
2º ) Na criação destas abas cada uma recebe o nome do cliente que é armazenado sempre em "A27".
Então conforme eu já havia comentado em seu outro tópico "alocar na memoria" - viewtopic.php?f=10&t=18311, precisamos da rotina em que cria estas abas para analisar e você só tem postado a rotina de envio de email, pois o "X" da questão está na criação.
Independente da rotina acima, você poderia adicionar uma linha na rotina que cria a aba para armazenar os nomes em uma outra aba qualquer, e quando for enviar os email carregar estes nomes em uma lista através de um userform e selecionar o nome que pretende e joga-lo na Variável.
Se não pretende fazer userform, então coloque a rotina em que cria as abas, preferencialmente a que tem a linha onde são definidos os nomes das abas.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
fiz da forma mais simples,
adicionei a minha macro a copia da celula para seu destino , deixei a fonte em branco , para quando enviar o email nao aparecer, e ficou assim:
.Body = "Olá Lojista. Segue anexo seu Pedido para Aprovação, fico no seu Aguardo !" & vbCrLf & _
"" & vbCrLf & _
Range("B58").Value & vbCrLf & _
Range("B59").Value & vbCrLf & _
Range("B60").Value & vbCrLf & _
"" & vbCrLf & _
"FAVOR VERIFICAR SEUS DADOS DE LOJISTA E ENDEREÇO DE ENTREGA" & vbCrLf & _
"" & vbCrLf & _
Acho que ficou a contendo.
Grato pela ajuda de vcs, vou postar outra ajuda rsrsrs.
Até daqui a pouco.
Andre