ENVIANDO PDF DIRETO DO EXCEL

MARCELGARCIA 26/10/2010 10:35:37
#355934

Senhores, bom dia.

sou novo aqui e me perdoem por não ser um forum de excel, mas por ser de VBA, recorro à vocês para a seguinte duvida:

Tenho uma planilha que captura alguns dados preenchidos pelo usuário, os converte em um pdf (o proprio excel) e precisa ser enviada por e-mail.

Pois bem, consigo transformar a planilha em pdf na pasta [Ô]temp[Ô] porém, não consigo enviar este arquivo (que tem sempre um mesmo nome) para o e-mail descrito na macro, como segue:

Sub Send()
Dim WRF As String

[ô]Exporta como pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
[Ô]C:\Temp\ArquivoPDF.pdf[Ô], Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

[ô]Define novo valor de WRF
WRF = [Ô]C:\Temp\ArquivoPDF.pdf[Ô]

[ô]Envia o email
WRF.SendMail [Ô]teste@teste.com[Ô], [Ô]Teste WRF[Ô]

End Sub

Espero que possam ajudar!

Abs