- 14 Mar 2018 às 17:13
#31048
Pessoal,
Boa tarde.
Estou usando em meu dia a dia uma macro que pega uma range e cola no corpo do e-mail e envia para meus pares.
Ela funciona, mas meu gestor pediu algumas melhorias e não consigo chegar.
A macro é esta:
Sub EnvioL()
Sheets("Lig").Select
ActiveSheet.Range("A86:Y98").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Bom dia! Segue fechamento do controle de ligações, referente à Março. Obs.: Média mínima 40 ligações."
.Item.To = ""
.Item.Cc = ""
.Item.Subject = "Controle Ligações - Março"
.Item.Send
End With
End Sub
As questões que preciso lapidar e não consigo são:
No "Introduction" precisava que o texto ficaria desta forma
Bom dia!
Segue fechamento do controle de ligações, referente à Março.
Obs.: Média mínima 40 ligações.
Onde se encontra "Obs.: Média mínima 40 ligações." ela precisava estar negritada e grifada de amarelo, é possível?
Precisava também melhora na seleção.
Hoje uso "ActiveSheet.Range("A86:Y98").Select"
A range é esta que tenho que mandar no corpo do e-mail, mas ela está parcialmente oculta e conforme os dias vão passando eu "desoculto" uma coluna.
Hoje, quando envio o e-mail, ele manda todas as colunas (inclusive as ocultas). É possível só enviar as que não estão ocultadas dentro da range?
Obrigado
Boa tarde.
Estou usando em meu dia a dia uma macro que pega uma range e cola no corpo do e-mail e envia para meus pares.
Ela funciona, mas meu gestor pediu algumas melhorias e não consigo chegar.
A macro é esta:
Sub EnvioL()
Sheets("Lig").Select
ActiveSheet.Range("A86:Y98").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Bom dia! Segue fechamento do controle de ligações, referente à Março. Obs.: Média mínima 40 ligações."
.Item.To = ""
.Item.Cc = ""
.Item.Subject = "Controle Ligações - Março"
.Item.Send
End With
End Sub
As questões que preciso lapidar e não consigo são:
No "Introduction" precisava que o texto ficaria desta forma
Bom dia!
Segue fechamento do controle de ligações, referente à Março.
Obs.: Média mínima 40 ligações.
Onde se encontra "Obs.: Média mínima 40 ligações." ela precisava estar negritada e grifada de amarelo, é possível?
Precisava também melhora na seleção.
Hoje uso "ActiveSheet.Range("A86:Y98").Select"
A range é esta que tenho que mandar no corpo do e-mail, mas ela está parcialmente oculta e conforme os dias vão passando eu "desoculto" uma coluna.
Hoje, quando envio o e-mail, ele manda todas as colunas (inclusive as ocultas). É possível só enviar as que não estão ocultadas dentro da range?
Obrigado
