Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
Por lontra78
#60187
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
Você não está autorizado a ver ou baixar esse anexo.
Por lontra78
#60195
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
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por AfonsoMira
#60196
Veja se assim funciona para todas as linhas?

Ps. não consegui testar aqui.
Você não está autorizado a ver ou baixar esse anexo.
Por lontra78
#60385
Boa tarde
Ainda não consegui resolver o problema totalmente, esta melhor, agora so me falta enviar anexo automaticamente
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por Strogonoff
#60393
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
Kledison agradeceu por isso
Por lontra78
#60640
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
Você não está autorizado a ver ou baixar esse anexo.
Por lontra78
#68647
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
Você não está autorizado a ver ou baixar esse anexo.

Boa tarde! Solicito a sua ajuda, de acordo com o […]

Controles ActiveX Excel Mac

Pessoal, seguinte: Meu sistema não roda no[…]

Olá, sou novo aqui no fórum, tenho u[…]

Boa tarde. Estou precisando automatizar uma planil[…]

Em J52 ~~~&gt; =ÍNDICE(C10:C40;CORRES[…]

Salvar PDF sem substituir o arquivo

Boa tarde pessoal, Queria uma ajuda para fazer um[…]

Assiduidade

Bom dia a tod@s, tenho uma tabela no formato que s[…]

Ficheiro mais atualizado