macro que envia emails para uma lista (4 emails) e inseri o conteudo de uma celula como titulo desse email.

Question

Amigos

Preciso de uma ajuda.

preciso criar uma macro, no excel, que apos dado o comando, ela abra o outlook com a planilha ja anexada, e com 4 destinatarios ja inseridos, porem ele não deve enviar automaticamente, pois o usuario poderá ter que anexar algo mais, então não pode ir automatico.

Outra coisa, Ela deve coletar o conteudo de uma celula e inserir como titulo deste email.

grato.

Answer 1

Verifique se o suplemento deste link te atende: http://www.ambienteoffice.com.br/suplementos/emailxl/

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Olá felipe

muito boa sua dica, mas não me atende no momento, pois a planilha que ira fazer estas ações irei distribuir para colaboradores de uma empresa onde atendo chamados, e acho dificil que todos irão instalar o suplemento no seu excel, com uma macro sera mais facil pois vou colocar como botão no final da planilha.

Answer 3

Sub Mail_workbook_Outlook_1()
    'From: http://www.rondebruin.nl/mail/folder2/mail1.htm
    'Working in 2000-2010
    'This example send the last saved version of the Activeworkbook
    Dim OutApp As Object
    Dim OutMail As Object

    'Sugiro você chamar o botão que for criar de "Salvar e Enviar"
    'e então você utilizar o método abaixo:
    'ThisWorkbook.Save

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "[e-mail]; [e-mail]; [e-mail]; [e-mail]"
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With

End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

Felipe muito obrigando , nota 10 consegui o que queria, um abraço.

Answer 5

Felipe

só mais uma duvida, depois que salvo, tenho erro nesta linha

.Attachments.Add ActiveWorkbook.FullName

sabe o motivo?

Answer 6

Experimente trocar por ThisWorkbook.FullName, considerando que você quer enviar a pasta de trabalho que tem o código, e não a que está ativa, certo?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 7

 As informações são digitada e  o usuario clica em um botão para enviar, no primeiro teste tudo ok, apos fechar e salvar aperece este erro.

Answer 8

Você deve estar tendo esse problema porque a pasta de trabalho que está colando não foi salva nenhuma vez, isto é, você colou o código numa pasta de trablaho em branco. Salve a pasta de trabalho (em qualquer lugar) que você está utilizando antes de executar a macro. Além disso, use o código abaixo:

Sub Mail_workbook_Outlook_1()
    'From: http://www.rondebruin.nl/mail/folder2/mail1.htm
    'Working in 2000-2010
    Dim OutApp As Object
    Dim OutMail As Object

    'Sugiro você chamar o botão que for criar de "Salvar e Enviar"
    'e então você utilizar o método abaixo:
    ThisWorkbook.Save

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "[e-mail]; [e-mail]; [e-mail]; [e-mail]"
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add ThisWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 9

Grato mais uma vez, desta vez esta ok, obrigado