Guru do Excel e Power BI

Bom dia
Já procurei aqui no fórum mas não consegui encontrar
A ideia é enviar email automaticamente com anexo,
O anexo terá sempre o nome do destinatário e será tipo pdf tem estar localizado na pasta especifica
noutra coluna tem o corpo do texto
e se possível outra coluna com CC.
o ideal seria possível enviar vários em simultâneo consoante o numero de linhas preenchidas
Obrigado

depois de muito pesquisar encontrei esta macro que funciona fiz as adaptações necessárias no entanto so funciona para a primeira linha
gostava q funcionasse para as linhas necessárias independente do numero de linhas

Veja se assim funciona para todas as linhas?

Ps. não consegui testar aqui.

Obrigado
Não esta a funcionar

Bom dia!

esse vídeo deve ajudar.

https://www.youtube.com/watch?v=m5q0KjgVCgY

Att

Boa tarde
Ainda não consegui resolver o problema totalmente, esta melhor, agora so me falta enviar anexo automaticamente

Tenta esse código...
precisa ter o outlook instalado


Sub EnviarEmailIncidente()
Dim OutApplication As Object
Dim nEmail As Object
Dim W As Worksheet: Set W = Plan5
Dim bUltLin As Byte: bUltLin = 1

While W.Cells(bUltLin, "A") <> ""
bUltLin = bUltLin + 1
Wend


Set OutApplication = CreateObject("Outlook.Application")
Set nEmail = OutApplication.CreateItem(OlMailItem)

With nEmail
.Display
.To = "email1@empresa.com.br" ' pode colocar uma range com o endereço. Por segurança gosto de colocar uma rotina dessa para cada ocasiao que precisa ser mandado um email.
.CC = "copia@empresa.com.br"
.Subject = "Assunto do Email "
' corpo do email
With .GetInspector.WordEditor.Windows(1).Selection

.typetext " coloque um texto padrão ou vincule a um texto da planilha "
.typetext " a mesma coisa, coloque um texto aqui "
.TypeParagraph
.TypeParagraph
'insira o trecho da planiha a ser copiado
'gosto de declarar uma variável W como Worksheet para por o nome da planilha
' e também uma variável para a ultima linha, para o trecho ficar exato e flexível para toda a vez que enviar o email
W.Range("a1:h" & bUltLin).Copy
.Paste
Application.CutCopyMode = False

Set OutApplication = Nothing
Set nEmail = Nothing
End With
'.send ' se tirar a aspa simples ates do send, ele enviará o email automaticamente
End With

End Sub


Tenho essa rotina em pelo menos 3 sistemas montados e funciona muito bem.
o que gosto dela é que você determina o que quer colar e para quem mandar,
Espero ter ajudado.
Abraço

Bom dia
Não estou conseguir, tem alguma planilha que me possa enviar
Obrigado

Você tem o outlook instalado na sua máquina?
Só roda com o outlook.
Manda uma planilha teste para que consiga adaptar o codigo para você

Acabei de observar
dim W as worksheet : set W = (coloque o nome de sua planilha antes do parenteses ou sheets("NomedaPlanilha")

Strogonoff escreveu: ↑18 Nov 2020 às 19:13 Você tem o outlook instalado na sua máquina?
Só roda com o outlook.
Manda uma planilha teste para que consiga adaptar o codigo para você

Boa tarde
envio o ficheiro consigo fazer tudo expecto adicionar o anexo automaticamente
sim tenho outlook instalado
para tentar explicar o ficheiro a anexar tem sempre o nome da pessoa que consta da coluna b

Bom dia
Desculpem voltar de novo surgiu uma duvida tenho a função em pleno funcionamento no entanto precisava de adicionar ao emai CC e nao estou a conseguir
envio anexo