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

[Martinsrj 0]

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ção do Serviç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érmino: <b>"&var_DtTermino&"</b>"
			corpoemail = corpoemail  & "<br>"

			corpoemail = corpoemail  & "Hora Té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

[xanburzum 169]

você pode tentar usar o On error resume next

[Martinsrj 0]

A sintaxe é essa:

'Executa a função caso não tenha erro até o momento e no else caso apareça alguma coisa informa a descrição do erro.
If err.number = 0 then			
   EnviaEmail "paulo.martins@remetente.com.br", "paulo.martins@destinatario.com.br", "Paulo Martins", corpoemail,""        			
   '####################### Fim envia email #######################
Else
   response.write ("Erro: " + err.description)
End if

você pode tentar usar o On error resume next

 

Fui correto na minha colocação?

Abraços.

[xanburzum 169]

isso,...

e dá uma pesquisada no fórum que existem, ótimos exemplos, pode te ajudar

[Martinsrj 0]

Forcei um erro retirando um pedaço do email do destinario conforme o código abaixo e imprimiu o erro:

jmail.SMTPMail erro '8000ffff'

 

The message was undeliverable. All servers failed to receive the message

 

/sistemas/wapReembolso/funcoes.asp, line 196

 

Uma pergunta, ele não deveria imprimir isso: response.write ("Erro: " + err.description)

 

Abraços.

 

 

If err.number = 0 then			
   EnviaEmail "paulo.martins@remetente.com.br", "paulo.martins@com.br", "Paulo Martins", corpoemail,""        			
   '####################### Fim envia email #######################
Else
   response.write ("Erro: " + err.description)
End if

 

isso,...

e dá uma pesquisada no fórum que existem, ótimos exemplos, pode te ajudar

 

[Salgado 4]

Coloque "On Error Resume Next" no início de seu script.