[Resolvido]Enviar e-mail's

Boa noite a todos

Gostaria de ajudas que é a seguinte
Uso o código abaixo em um botão para enviar um relatório por e-mail.


Private Sub Comando111_Click()
On Error GoTo Err_RltEmail1_Click
Dim stDocName As String
stDocName = "Rlt_OcamentoCodigoBarra"
DoCmd.SendObject acReport, stDocName, acFormatHTML, "meu e-mail@uol.com.br", , , "Digito aqui o assunto do e-mail"
Exit_RltEmail1_Click:
Exit Sub
Err_RltEmail1_Click:
MsgBox Err.Description
Resume Exit_RltEmail1_Click
End Sub


Queria que abrisse um form com caixa de marcação para a escolha dos cliente(s) que eu gostaria de enviar o e-mail após a escolha clicar no botão para enviar o mesmo.
Sou grato pela atenção de todos

Já deu uma olhada nesse exemplo?
http://maximoaccess.forumeiros.com/t3878-envio-de-email-por-cdo-com-muito-mais-recursos

Clique no botão Para ou CC ou Cco e veja o que acontece.

Criquio dei uma boa olhada neste exemplo hoje a tarde toda, mas tem erros, referência quebradas e outros, acredito ser por motive que eu uso Access 2003 e por ter pouco conhecimente em VBA, gostaria de algo bem mais simples mas não encontrei aqui no Forum.

Uma das principais referências dele é a Microsoft DAO. Como ele foi criado no 2007, usa a versão do 2007. Para usar no 2003, desabilite essa referência e acrescente a da sua versão. Se não tiver a cdosys.dll na sua pasta System32, terá que colocar uma cópia lá e registrá-la tambem.

Saudações, Criquio deu tudo certo foi como vc me explicou.

Grande abraço, DEUS ILUMINE SEUS CAMINHOS.