Jmail - Como verificar se há erro ou não

[Martinsrj]

Olá pessoal, boa tarde!

Possuo um código de envio de email que está funcionando corretamente, porem gostaria de saber se existe um tratamente de erro.

Aqui vai o código do formulario:

'Envia email

            'corpoemail = corpoemail  & "<td class=texto>-- Atualização de Chamado -- <br></td>"
            corpoemail = corpoemail  & "-- Atualização de Chamado --"
            corpoemail = corpoemail  & "<br>"
            
            corpoemail = corpoemail  & "Tipo do Chamado:<b>"&var_TpChamado&"</b>"
            corpoemail = corpoemail  & "<br>"                        
            
            corpoemail = corpoemail  & "Chamado Altiris: <b>"&var_ChamadoAltiris&"</b>"
            corpoemail = corpoemail  & "<br>"
            
            corpoemail = corpoemail  & "Chamado HP: <b>"&var_ChamadoHP&"</b>"
            corpoemail = corpoemail  & "<br>"
            
            corpoemail = corpoemail  & "Descri&ccedil;&atilde;o do Servi&ccedil;o: <b>"&var_DescServico&"</b>"
            corpoemail = corpoemail  & "<br>"
            
            
        If var_TpChamado <> "ticoeteco@exemplo.com.br" Then
            
            corpoemail = corpoemail  & "PN Removido: <b>"&var_PNRemovido&"</b>"
            corpoemail = corpoemail  & "<br>"
            
            corpoemail = corpoemail  & "N/S Removido: <b>"&var_NSRemovido&"</b>"
            corpoemail = corpoemail  & "<br>"
            
            corpoemail = corpoemail  & "PN Instalado: <b>"&var_PNInstalado&"</b>"
            corpoemail = corpoemail  & "<br>"
            
            corpoemail = corpoemail  & "N/S Instalado: <b>"&var_NSInstalado&"</b>"
            corpoemail = corpoemail  & "<br>"
        
        End If
            
            corpoemail = corpoemail  & "Quem assinou o RS: <b>"&var_QAssRS&"</b>"
            corpoemail = corpoemail  & "<br>"
            
            corpoemail = corpoemail  & "RS: <b>"&var_RS&"</b>"
            corpoemail = corpoemail  & "<br>"
            
            corpoemail = corpoemail  & "Data Inicio: <b>"&var_DtInicio&"</b>"
            corpoemail = corpoemail  & "<br>"                                                                        

            corpoemail = corpoemail  & "Hora Inicio: <b>"&var_HrInicio&"</b>"
            corpoemail = corpoemail  & "<br>"

            corpoemail = corpoemail  & "Data T&eacute;rmino: <b>"&var_DtTermino&"</b>"
            corpoemail = corpoemail  & "<br>"

            corpoemail = corpoemail  & "Hora T&eacute;rmino: <b>"&var_HrTermino&"</b>"
            corpoemail = corpoemail  & "<br>"
            
            
            'EnviaEmail "paulo.martins@remetente.com.br", login, "Paulo Martins", corpoemail,""    
            EnviaEmail "paulo.martins@remetente.com.br", "paulo.martins@destinatario.com.br", "Paulo Martins", corpoemail,""    
            '####################### Fim envia email #######################

Aqui é a função que eu criei:

Function EnviaEmail(sender, recipient, subject, body, attach)
    'Serve para criar a conexão com o servidor
    Set JMail = Server.CreateObject("JMail.SMTPMail")
    'Indica o endereço do servidor responsável pelo envio das mensagens
    JMail.ServerAddress = "192.168.0.1"
    'Indica em que tipo seu e-mail será enviado
    JMail.ContentType = "text/html"
    'Indica o e-mail de quem está enviando (pode ser uma variável que contém o e-mail)
    JMail.Sender = sender
    'Indica o título da mensagem
    JMail.Subject = subject
    'Inicializa o texto no corpo da mensagem
    JMail.Body = body
    'Indica o endereço de quem vai receber o e-mail
    JMail.AddRecipient recipient
    if attach <> "" Then
        'nome do arquivo que deseja anexar, incluindo a extensão do mesmo.
        'attachment = "D:\web\seulogin\nomedoarquivo"
        'msg.AddAttachment (attachment)
        JMail.AddAttachment attach
    End if
    JMail.Execute 
End Function

[bareta]

não entendi o q você quer fazer

[Martinsrj]

Caso o email não seja enviado o asp informe o erro.

não entendi o q você quer fazer

[bareta]

certo .... você pode usar o on error resume next e ir exibindo infos de erros.... ,mais só funciona para erros de script ( processamento do interpretador)

não vou entrar em mais detalhes por enqunto...

pois o script só vai dar erro com smtp incorreto e email incorreto...

email incorreto geralmente vai e volta (smtp mailer alguam coisa como mensagem no email)..

é mais ou menso isso??