Ajuda Para Enviar Msg Pelo Outlook

[Guest victorbebs]

Galera,

estou usando o codigo abaixo que está funcionando corretamente e envia a msg automaticamente, mas estou com o seguinte problema, preciso q ao invés de enviar a msg, gostaria q me abrisse a tela da msg do outlook, isso é possível???

Outra dúvida, assim o arquivo vai anexado, gostaria que a tabela fosse copiada no corpo da msg, é possível???

Private Sub Command1_Click()

Dim txt As String

Dim EmailApp, NameSpace, EmailSend As Object

DoCmd.OutputTo acTable, "Report", acFormatXLS, "caminho para salvar o arquivo"

Set EmailApp = CreateObject("Outlook.Application")

Set NameSpace = EmailApp.getNameSpace("MAPI")

Set EmailSend = EmailApp.CreateItem(0)

EmailSend.To = "xxxxxx"

EmailSend.Cc = "xxxxxx"

EmailSend.Subject = "assunto"

EmailSend.Body = "corpo da msg"

EmailSend.Attachments.Add "caminho do arquivo a ser anexado"

EmailSend.Send

Set EmailApp = Nothing

Set NameSpace = Nothing

Set EmailSend = Nothing

End Sub

[Guest - victorbebs -]

Galera, precisa dessa ajuda, ninguém pode me ajudar???