Olhem o que eu achei na net, um codigo que você pra saber se o CDONTS está ou não instalado no computador!!
<% Option Explicit
Function IsComponentInstalled(ProgId)
Dim tmpObject
On Error Resume Next
Set tmpObject = Server.CreateObject(ProgId)
If Err.Number = 0 Then
IsComponentInstalled = True
Else
IsComponentInstalled = False
End If
Set tmpObject = Nothing
End Function
'Utilizando a função
If IsComponentInstalled("CDONTS.NewMail") Then
Response.Write "Enviando o e-mail ..."
'...
Else
Response.Write "Não é possível enviar o e-mail (Objeto para envio indisponível)"
'...
End If
%>
Pergunta
Victor
Olhem o que eu achei na net, um codigo que você pra saber se o CDONTS está ou não instalado no computador!!
<% Option Explicit Function IsComponentInstalled(ProgId) Dim tmpObject On Error Resume Next Set tmpObject = Server.CreateObject(ProgId) If Err.Number = 0 Then IsComponentInstalled = True Else IsComponentInstalled = False End If Set tmpObject = Nothing End Function 'Utilizando a função If IsComponentInstalled("CDONTS.NewMail") Then Response.Write "Enviando o e-mail ..." '... Else Response.Write "Não é possível enviar o e-mail (Objeto para envio indisponível)" '... End If %>tirei daqui:
http://www.aspbrasil.com.br/tutoriais/deta...odConteudo=1167
[]'s
Victor
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.