AjHottz,

Bom Dia!

Veja, no arquivo anexo, se assim atende a sua necessidade.

Obrigado Wagner, mas para disparar automaticamente, sem ter que confirmar, já que a pesquisa ficará aberta e eu não estarei por perto, o que preciso fazer?

Vou colocar minha planilha em anexo, e ela ficará salva na pasta "meus documentos".

Mais uma vez obrigado da ajuda. E consigo colocar para disparar automaticamente em mais de um horário?

Obrigado
Att
Adir Hottz

Para disparar a mensagem de e-mail automaticamente, sem confirmar, modifique a linha:

    EMail.Display

Por:

    'Enviando
    EMail.Send

Lembre-se que esse arquivo de macro deve estar aberto e que ele vai enviar um outro arquivo, como anexo, que já deve está salvo e armazenado na mesma pasta onde está esse arquivo de macro.

Para disparar, automaticamente, em mais de um horário, você deve mudar a linha abaixo que está no Evento Worbook_Open():

    Application.OnTime TimeValue("14:00:00"), "EmailOutlook"

Por:

Application.OnTime Now + TimeValue("00:00:15"), "EmailOutlook" 

O detalhe nessa nova linha é que você precisa determinar o tempo que você quer que a macro seja disparada, substituindo o valor da função TimeValue. No caso acima, a função Now informa ao sistema que tem que pegar a hora atual e somar com mais 15 segundos. Ou seja, a cada 15 segundos, a partir da hora atual do micro, a macro "EmailOutlook" será executada.

E pra eu enviar a mesma planilha que a macro está ativada? como faço?

E mais uma vez obrigado por toda sua ajuda

Substitua a linha:

    EMail.Attachments.Add Pasta & "" & Arquivo

Por esta:

    EMail.Attachments.Add Pasta & "" & ActiveWorkbook.Name

Realmente sou muito ruim em VBA, não consegui fazer isso não estou alguns dias tentando e sempre da erro quando tento colocar o arquivo que deve ser anexado, ou seja nunca consegui nem testa =/