(Resolvido)Msgbox ao concluir tarefa

[Matheus-vb6]

Boa noite gente!

Criei um esquema de relatorio de erros, que, ao ocorrer um erro, é enviado um e-mail pra mim com uma SS do programa, porém... gostaria que fosse exibida uma mensagem impossivel de se fexar "Gerando relatorio", no caso com o X inabilitado, e ao concluir o envio, essa mensagem saisse e aparecesse "Relatório enviado!"

Utilizo esse código, e utilizo o py.sendmail do Graymalkin

Public Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As _
Byte, ByVal dwFlags As Long, ByVal _
dwExtraInfo As Long)
Public Function envia(nome As String)
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Form1.imageerro.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Form1.imageerro.Picture, "C:\ScreenShootErro.bpm"
Set k = CreateObject("Py.SendMail")
    
    k.SMTPServer = "smtp.mail.yahoo.com.br"
    k.Recipient = "Matheus"
    k.To = "matheus.rubens@hotmail.com"
    
    k.Sender = "R-Erro"
    k.From = "relatorioerro@yahoo.com.br"
    
    k.Cc = ""
    k.Bcc = ""
    k.Subject = "Erro no programa " & App.EXEName
    k.Body = "Um erro no programa <B>" & App.EXEName & "</B> no formulário <b>" & nome & "</b> ocorreu as " & Time$ & " do dia " & Format(Date$, "mm/dd/yy") & "<BR><b>Descrição:</b> " & Err.Description & "<BR><b>Código:</b> " & Err.Number & _
"<BR><BR><BR><BR><font size='4' color='red'>" & _
"Telefone do cliente: (xx)xxxx-xxxx</font>"
    'Em caso de autenticação
    k.User = "relatorioerro@yahoo.com.br"
    k.Password = ""
    k.AttachFile "C:\ScreenShootErro.bpm"
              
    retorno = k.send()
    Kill "C:\ScreenShootErro.bpm"
    MsgBox "Um relatório de erros foi enviado ao desenvolvedor!", vbCritical, "Erro!"
End Function

Editado Fevereiro 17, 2011 por Matheus-vb6

[kuroi]

o problema ta em fazer a msgbox??

então, use um formulario pra faze-la q fica mais facil. ponha a propriedade ControlBox como False e chame como modal, assim não da pra fechar.

[Matheus-vb6]

Tipo... não sei se você já usou algum programa, q tipo... aparece uma msgbox "Blablablalba será aberto em 10 segundos", ai o msgbox sai e aparece um outro pedindo confirmação, tipo "deseja mesmo prosseguir?"

é isso q eu quero fazer

Abraços :D

[Matheus-vb6]

Se não entenderam posta q eu tento explicar de outra forma... mas to querendo muito fazer isso :S

[raphael_suporte]

tente usar uma janela de Dialog, acho que pode te ajudar, exibindo um contador e no timer você coloca para fecha-la quando chegar ao tempo previsto.

[Matheus-vb6]

Nunca usei janela de dialog, vou pesquisar como se faz isso e já posto aqui :D

abraços

edit---

Caramba, nunca pensei que seria tão facil kkk

Tópico resolvido

Editado Fevereiro 14, 2011 por Matheus-vb6