Ir ao conteúdo
  • Cadastre-se
HelderREC

E-mail por VBA

Recommended Posts

Bom dia!

Tenho um código que fui construindo a partir de pesquisas aqui no fórum, mas agora tenho que recorrer a vocês novamente.

As dúvidas estão no arquivo, que envio abaixo pelo sendSapce.

http://www.sendspace.com/file/b1v94e

segue também o código por aqui:

Sub EnviarEmail()

'

'

'

Dim x As Integer

Dim y As Integer

Sheets("Funcionario").Select

Range("A1").Select

Selection.End(xlDown).Select

x = ActiveCell.Row

For d = 2 To x

Sheets("Dados").Select

ActiveSheet.Range("$A$1:$R$15").AutoFilter Field:=13, Criteria1:="" 'Tem que ser igual a célula B & d da sheet Funcionário

Range("A1:E15").Slect ' tem que ser na verdade o resultado do filtro

Selection.Copy

Sheets("Body").Select

Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Set myOlApp = CreateObject("Outlook.Application")

Set myItem = myOlApp.CreateItem(olMailItem)

Set myAttachments = myItem.Attachments

With myItem

.To = Range("B" & d).Value 'DESTINATÁRIO

.Subject = "Fatura Cartão Novembro 2012" '"Licença " & Range("A" & d).Value 'ASSUNTO

.Body = "" ' No Corpor do e-mail preciso: um txto fixo na primeira linha, próxima linha em branco, em seguida os dados da plan Body

.Save

.Send

End With

Next d

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×