Usuário com melhor resposta
macro que envia emails para uma lista (4 emails) e inseri o conteudo de uma celula como titulo desse email.

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.
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 SubFelipe Costa Gualberto - http://www.ambienteoffice.com.br
- Sugerido como Resposta Hezequias VasconcelosModerator terça-feira, 4 de dezembro de 2012 11:04
- Marcado como Resposta Hezequias VasconcelosModerator quarta-feira, 5 de dezembro de 2012 11:09
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
-
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.
-
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 SubFelipe Costa Gualberto - http://www.ambienteoffice.com.br
- Sugerido como Resposta Hezequias VasconcelosModerator terça-feira, 4 de dezembro de 2012 11:04
- Marcado como Resposta Hezequias VasconcelosModerator quarta-feira, 5 de dezembro de 2012 11:09
-
-
-
-
-
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
-