[Resolvido]Bloquear Comandos até que uma rotina seja concluída

Utilizo um botão para o envio de um e-mail (CDO).
Após o envio do e-mail tenho MsgsBox: "E-mail enviado com sucesso"

Gostaria que, durante o processo de envio, aparecesse uma mensagem: "Enviando.../Aguarde!!!". E depois que o e-mail fosse enviado, esta mensagem fechasse automaticamente e aí sim abrisse a MsgsBox: "E-mail enviado com sucesso".

Preciso também, que durante envio, não fosse permitido ao usuário, sair do formulário em uso.

Agradeço a atenção.

Olá Luiz,

Tenho um aplicativo publicado aqui chamado Dicionário Eletrônico Inglês-Português-Inglês. Mantenha a tecla

SHIFT pressionada e adapte o formulário frm_load_dicionario, deixando a propriedade Visible de todas as caixas da barra de progresso False. (Visible=False). Modifique o texto de abertura para Aguarde...

No evento Form_Close() desse mesmo formulário, coloque o seguinte código:

Private Sub Form_Close()

DoCmd.OpenForm "SeuFormulário"



End Sub

Obrigado good guy.
Obrigado Norbeto.

Já baixei o BD.
Agora vou tentar endenter e tentar aplicar no meu BD.
Logo logo peço Socorro

Abraços

Amigos
Peço desculpas. Sou iniciante e tenho dificuldades para acompanhar o raciocinio dos nobres amigos. O BD fornecido pelo good guy gerou-me duas dúvidas? 1-Se posso aplicar o código do "frm_load_Dicionario" dentro do meu código? 2-Se o tempo de disparado será sempre igual?

Abaixo segue o código (parcial)que estão no meu botão:

Private Sub btnEnviarEmail_Click()
..........
.To = "teste@teste.com.br"
.Send
End With
MsgBox "Email enviado com sucesso.", vbOKOnly, "Dados enviados"
Set Mens = Nothing
Set Config = Nothing
rs.Close
Set rs = Nothing
Exit Sub
erromail:
MsgBox Err.Number & " " & Err.Description
Exit Sub
End Sub

Olá Luiz,

Realmente, você com este formulário que indiquei só poderia exibir a mensagem desta maneira:

Private Sub bt_Email_Click()
Dim strLink As String
strLink = IIf(IsNull(CampoLink), "", CampoLink)
Application.FollowHyperlink "mailto:" & strLink
DoCmd.OpenForm "frm_load_ControleOS", acNormal, , , , acDialog
End Sub

Neste exemplo que eu tenho para enviar um email pelo Outlook, antes de abrir a janela de envio, o formulário com a mensagem seria aberto e fecharia ao concluir a abertura da janela. Mas eu acho que você quer que exiba a mensagem ao clicar o botão Enviar da referida janela. Correto?

Amigos

Lembrem-se que no nosso repositório tem um excelente exemplo EmailCDO criado pelo nosso amigo e Mestre Criquio

Abraços

O problema é évitar que o usuário saia do formulário (em uso) durante o processo de envio do e-mail. Na realidade, aparecer uma mensagem "Enviando", nem seria necessário.

Tem alguma sugestão?

Em tempo:
O código que estou usando (EmailCDO) é de autoria do Mestre Criquio

No mesmo exemplo do Criquio tem um formulário que é aberto no momento em que a mensagem é enviada e um outro formulário para quando for entregue com sucesso.
E se me lembro, é automático, abre e fecha automaticamente.
Creio que essa seria a melhor opção, já que numa msgbox existe o problema de ter que clicar no botão OK, para o código prosseguir, certo?

Abraços

Oi Balem.
Busquei "EmailCDO" no repositório e não localizei!
Pode me dar uma dica de como localizo este exemplo no repositório?
Muito Obrigado

Com prazer

Aqui está.

Abraços

Obrigado Balem.
Baixei o BD.

Desculpa minha ingenuidade!
Mas fiquei um tempão tentando achar "EmailCDO" nos repositórios e não consegui. Tem alguma técnica e/ou forma de busca? Ou será que só faltou paciência da minha parte?

Obrigado

Olá Luíz tudo bem?
Analisa este exemplo, acho que vai conseguir adaptar!
Qualquer coisa se não for confidencial posta o bd que te ajudaremos.
Abraço!

http://speedy.sh/MgkmK/EMAIL.zip

E cliquio tudo na paz? Mandamos juntos!

E aí Lupércio? Bem?
Baixei o BD que sugeriu. Muito Bom. Será muito útil.

Balem.
Tinha razão.
O exemplo "EmailCDO" do Mestre Criquio resolve a questão.

Meus agradecimentos ao good guy, Balem e Lupércio.

Abraços

Amigo se precisar estaremos aqui.
Um abraço.

Luiz

Quando sabemos em que sala esta um post e quem é o criador dele, basta ir no buscar e escolher Busca avançada.

Colocar o nome do criador/autor do tópico e em que sala que quer fazer a pesquisa.

Simples né?

Abraços

Obrigado.
Abraços