[Resolvido]Email - Saída em formato word ou bloco de notas!

Olá boa noite apaixonados pelo access, preciso de uma luz!

Este código é do JPaulo!

Private Sub Comando29_Click()

On Error GoTo btnErro

DoCmd.SendObject acReport, "RELATORIOGERAOPCIONAL", "MicrosoftExcel(*.xls))", "lupercio_azarias@hotmail.com", "", "", "Relatório ", "Lupércio...", True, ""



btnErro:
If Err.Number = 2501 Then
Resume Next
Else
Call InformaErro

End If

End Sub


Preciso que o relatório saia em formato word ou bloco de notas!

Alguem pode me ajudar, por favor!

Já tentou pesquisar no próprio VBA com o F1? Posicione o cursor no meio do nome SendObject e pressione F1 para ver se ajuda.

Ta certo cliquio..

to usando esse código:


Private Sub Comando29_Click()

On Error GoTo btnErro

DoCmd.OutputTo acOutputReport, "RELATORIOGERAOPCIONAL", _
acFormatRTF, "RELATORIOGERAOPCIONAL.rtf", True


btnErro:
If Err.Number = 2501 Then
Resume Next
Else
Call InformaErro

End If


End Sub

Acontece que ele está enviando para o word, não quero que enviei para o word...
quero que que apenas saia no formato word direto no outlook.

Consegui ... obrigado grande criquio...