Macro que copia e cola valores + integração outlook

[rpd]

Fala gente, tudo bom? Meu segundo post!

Eu não manjo muito, quase nada para não dizer NADA, sobre macros e vba, mas preciso criar uma macro para facilitar a vida em 3 horas a menos de trabalho.

Seguinte:

1) Eu tenho 1 workbook com 7 sheets.

2) Eu somente vou usar a sheet 2 e 3.

3) A sheet 2 e 3 usam filtros.

4) Na sheet 2 como na 3, eu preciso fazer o seguinte:

4.1) Filtrar pela coluna E, selecionar todas as células com valores, copiar em um corpo de e-mail, adicionar o destinatário através do filtro da coluna E, adicionar o subject e enviar o e-mail.

Parece simples, mas não é! Eu tenho em torno de 110 e-mails para serem enviados. Destes 110, em torno de 7, tem mais de 1 destinatário.

Eu estou com dúvida em tudo, ehehhe, inicialmente, não quero que alguém faça isso para mim, eu gostaria de desenvolver eu mesmo, mas para isso, preciso de ajuda de como adiquirir este conhecimento inicial.

Alguém poderia me ajudar?

[Renato Knupp]

Cara, esse código foi o mais completo que achei, pois ele abre o outlook caso esteja fechado e tira um aviso de segurança do outlook, mas ele resolve seu problema parcialmente:

Dim texto As String

Dim oOutlookApp As Object, oOutlookMessage As Object

Dim mySafeEmail As Redemption.SafeMailItem

Set oOutlookApp = CreateObject("Outlook.Application")

oOutlookApp.Session.Logon

Set oOutlookMessage = oOutlookApp.CreateItem(olMailItem)

'faz referencia a DLL instalada

Set mySafeEmail = CreateObject("Redemption.SafeMailItem")

contato = "destinatario@abc.com.br"

texto = "Bom dia," & RNC & "," & vbNewLine & vbNewLine & _

"Segue teste de e-mail."

With mySafeEmail

.Item = oOutlookMessage

.Subject = "Teste "

.Recipients.Add contato

.Recipients.ResolveAll

.Body = texto

.Send

End With

conforme falei ao enviar um e-mail do excel pelo outlook, o mesmo identificará e dará uma msg de aviso, para que essa mensagem não aconteça, você terá que baixar uma DLL chamada "Redemption.dll" e registrá-la no windows, depois disso você vai ter que ir no ambiente do VBA no menu Ferramentas e entrar na opção referências e marcar a opção Redemption Outlook and MAPI COM Library.

Como nem tudo é perfeito, esse codigo resolve parcilamente seus problemas, pois nele na época eu não conseguia fazer enviar para mais de uma pessoa por vez, como pra mim isso não era necessário eu não pesquisei mais.

Caso consiga utilizar a opção CC e CCO dentro desse código, poste ai.

[rpd]

Muito obrigado! Eu estarei alterando esta macro no escritório durante os próximos dias (meses ehehe) e vou postando! Vai ser um páreo duro!

[Renato Knupp]

cara achei essa função perdida aqui comigo, ve se funciona, ela resolveria tudo que você precisa

Dim destino1, destino2, arquivo, gerente As String

Dim OutApp As Object, oOutlookMessage As Object

'Dim OutMail As Outlook.MailItem

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(olMailItem)

'endereco = "C:\Documents and Settings\administrador\Desktop\"

'arquivo = "imagem.jpg"

destino1 = "destino1@abc.com.br"

destino2 = ""destino2@abc.com.br; destino3@abc.com.br"

Application.DisplayAlerts = False

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail

.To = destino1

.CC = destino2

.BCC = ""

.Subject = "Teste de envio"

.Body = "teste"

'verificar se o arquivo está no local informado.

'.Attachments.Add (endereco & arquivo)

.Send

End With

Application.DisplayAlerts = True

Set OutMail = Nothing

Set OutApp = Nothing

MsgBox "Emails enviados com Sucesso.", vbInformation, "Envio de Emails"

Editado Novembro 10, 2010 por Renato Knupp