Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Function EnviaEMAIL(nome,email,senha,user)Dim objMailset objMail = Server.CreateObject("JMail.Message")objMail.From = "administracao@site.com.br"objMail.FromName = "Literatura Ford - Administração"objMail.AddRecipient email & ", " & nomeobjMail.Subject = "Registro de Usuário"objMail.Body = "O registro do usuário: " & user & " foi concluído com sucesso, a senha de acesso é: " & senha & "." & VbCrLf & "A alteração da senha deve ser imediata, caso não haja a alteração o usuário será cancelado." & VbCrLf & "Atenciosamente," & VbCrLf & "Literatura ford - Administração"If objMail.Send("smtp.bra.terra.com.br") ThenResponse.write "E-mail enviado..."ElseResponse.Write "Erro no envio de e-mail: " & objMail.logEnd ifSet objMail = Nothingend functionesse é o código de envio.... e o erro é o seguinte...
jmail.Message erro '8000ffff' The message was undeliverable. All servers failed to receive the message /literaturaford/adduser.asp, line 50
eu preciso de um servidor smtp na maquina? como eu ponho a senha e o login pra envio?por favor.... agradeço desde ja
Carregando comentários...