Ok , vou deixar este em aberto e pensarei o que vou fazer. Andre

e onde na minha macro eu colocaria tal comando ? Pois tenho que deixar tb disponivel a qualquer hora caso eu desejar fazer o envio manual.

qual formato de data e hora devo por na celula ? exemplo : 31/01/2015 11:00h E o que deve estar aberto ? so o excel ou Outlock tambem ?

Informe data e hora em uma celula em A1 por exemplo if range("A1").value = Now then excecuta macro end if So funciona com o arquivo a...

Resolvendo eta aqui agora eu fecho com chave de ouro !

funcionou sim, eu fiz a correcao , eu que usei Ranger ao ives de Range. Assim ficou joia !! .body = corpo & Chr(13) & Chr(13) & sheets(...

Desculpe !! Agora foi sim botei Ranger ao inves de Range em : .body = corpo & Chr(13) & Chr(13) & sheets(aba).Range("AS24") Mu...

Andre, Experimente o que o mestre falou. Caso não atenda, experimente alterar a string corpo para: corpo = Sheets(aba).Range("AS20")...

Se eu entendi direito PEDIDO GAUER é um prefixo, ou seja todos os arquivos teram esse nome a diferença é o nome da celula G1 Se for isso teste assim ...

entao ja tentei assim , como sugerido pelo outro colega mas nao vai sNomeArquivo = wbAtual.Worksheets("PEDIDO GAUER") & " - "...

ja tentei e nao deu, acho que e porque falta o .Name segue comando Inclusive abri outro post que se refere a esta Macro , porem assuntos diferentes....

sim , Bom dia amigao erro em tempo de execucao 438 O Objeto nao aceita esta propriedade ou metodo