Oi , eu esperava ago mais simples como o que vc havia sugerido antes, porem tb nao deu certo. André, Faça uma pequena alteração na seguinte linha pa...

fiz uma modificacao mas esbareei numa linha contendo erro, alguem pode me ajudar ? Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) Option Expl...

André, Faça uma pequena alteração na seguinte linha para o que segue: .HTMLBody = textoEmail & "<br><br></br> & "...

falta so essa ! alguem se habilita a me ajudar ? Sei que sim, grato Andre

Quebrei aqui a cabeça e resolvi Grato a todos, mas desta vez consegui sozinho. Se faltar algo, com certeza corro aqui. Sub A6_Leader() Dim OlMensa...

Refiz o codigo, com a ajuda de outras macros que aqui tenho, fiz os testes e ok, porem a conta que quero que o email seja enviado, nao esta sendo a co...

Minha Macro ja esta fazendo o passo 1 do topico. A tela pisca e tudo mais, pega a assinatura com imagem etc . So tem um problema, eu tenho 4 tipos de...

Nao sei ainda o motivo, mas no codigo aqui postado, consigo selecionar a conta de email, mas infelizmente a assinatura que esta relacionada a tal cont...

Ola desculpe a demora, mas assim eu nao quero, eu queria ja fazer pela Macro, por isso postei a Macro inteira, Gostaria que alguem pudesse completar ...

consegui Sheets("COMPLEMENTO").Copy ActiveWorkbook.SaveAs Filename:="C:UsersAndreDesktopPedidosrComplemento" & ".xLs&quo...

So tem um detalhe aqui, esta salvando a planilha em modo de compatibilidade, pois a planilha que esta sendo salva esta dentro do projeto que comtem ma...

Consegui aqui . Sheets("complemento").copy Activeworkbook.saveAs filename:= "c:usersandredesktoppedidos" & Range ("f4&qu...

Mais simples que duas linhas de codigo?????????? O Local a ser salvo vai ser escolhido durante a execução ou vai ser salvo sempre no mesmo local pre ...