Notifications
Clear all

Corpo do Email PDF

17 Posts
3 Usuários
0 Reactions
1,521 Visualizações
(@fazerbem)
Posts: 0
New Member
Topic starter
 

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 & _
"[email protected]"

.To = sQualEmail
.CC = "[email protected]"
.Importance = olImportanceNormal
.Attachments.Add ActiveWorkbook.Path & "Temp.pdf"
.Send

Grato pela Ajuda

 
Postado : 07/12/2015 6:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 08/12/2015 5:17 am
(@fazerbem)
Posts: 0
New Member
Topic starter
 

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

 
Postado : 08/12/2015 9:26 am
Página 2 / 2