Dias2011,

Boa Noite!

Eu costumo utilizar o código abaixo para envio de e-mail pelo Outlook. Creio que seria melhor você adaptar a sua necessidade e utilizar dessa forma.

Sub EnviarEmail()

    Dim olApp As Object, olMail As Object

    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)

    olMail.Subject = "Teste1" 'Campo Assunto
    olMail.Body = "Teste2" 'Campo referente a mensagem que se quer enviar
    olMail.To = "c005388;f046779" 'Matrículas dos destinatários
    olMail.cc = "F114170" 'Campo Com cópia
    olMail.Attachments.Add "C:/CONFIG.SYS" 'Arquivo a inserir
    olMail.Display 'Exibição

End Sub

Bom Dia Wagner, Obrigada pela resposta

Mas a forma que vc me enviou eu não consigo fazer uma copia do arquivo apenas da planilha que eu quero e sim o arquivo inteiro, e o meu arquivo atual é muito grande se for para toda vez ele enviar completo vai ficar muito pesado.
E eu tbm não gostaria que aparece-se o Display para que eu veja oque esta sendo enviado, gostaria do jeito que está na minha programação mesmo.

Só que o unico problema é que eu não sei fazer a modificação de uniar a sua programação com a minha e o que vc me enviou e exatamente o pedaço que eu preciso, se der para apenas enviar a planilha que eu preciso e não o arquivo inteiro eu até descarto a minha programação e uso a sua. Vc poderia me ajudar?

Abraços

Daniela

Daniela,

Bom Dia!

No momento estou meio sem tempo (no trabalho) para implementar a solução para você. Todavia, aqui vão algumas dicas:
1 - Antes de começarem os códigos alusivos ao E-mail (que lhe enviei) você deve fazer um código (talvez o seu próprio) de modo a salvar apenas a Plan que você quer enviar em alguma pasta onde o código de envio do E-mail vai pegar esse arquivo (com a Plan única).
2 - Para não exibir o e-mail e o mesmo ser disparado automaticamente, basta substituit o Display por Send.

Wagner Obrigada, vou tentar modificar aqui e qualquer coisa eu te grito.

Abraços.

Daniela