E-mail por VBA

[HelderREC]

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