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

  • Pergunta

  • 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.

    sábado, 1 de dezembro de 2012 02:10

Respostas

  • 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 = "email1@hotmail.com; email2@hotmail.com; email3@hotmail.com; email4@hotmail.com"
            .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

    segunda-feira, 3 de dezembro de 2012 21:49
    Moderador

Todas as Respostas

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

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

    sábado, 1 de dezembro de 2012 16:07
    Moderador
  • 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.

    domingo, 2 de dezembro de 2012 00:35
  • 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 = "email1@hotmail.com; email2@hotmail.com; email3@hotmail.com; email4@hotmail.com"
            .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

    segunda-feira, 3 de dezembro de 2012 21:49
    Moderador
  • Felipe muito obrigando , nota 10 consegui o que queria, um abraço.

    • Editado Rafaello4 domingo, 9 de dezembro de 2012 02:19
    domingo, 9 de dezembro de 2012 02:02
  • Felipe

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

    .Attachments.Add ActiveWorkbook.FullName

    sabe o motivo?

    domingo, 9 de dezembro de 2012 05:18
  • 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

    domingo, 9 de dezembro de 2012 12:18
    Moderador
  •  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.

    domingo, 9 de dezembro de 2012 19:15
  • 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 = "email1@hotmail.com; email2@hotmail.com; email3@hotmail.com; email4@hotmail.com"
            .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

    segunda-feira, 10 de dezembro de 2012 21:24
    Moderador
  • Grato mais uma vez, desta vez esta ok, obrigado
    terça-feira, 11 de dezembro de 2012 01:53