Não Consigo Enviar E-mails Com O Iis E O Cdonts
#16
Posted 20/09/2004, 11:21
Ou se há uma maneira melhor de fazer isso?
Valew..
#17
Posted 20/09/2004, 11:52
componentes.asp
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(11)
Dim theComponentName(11)
' componentes
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"
' apelido do componente!
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
'theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<html>
<head>
<title>Componentes encontrados - www.asparena.eti.br </title>
</head>
<body>
<table>
<tr>
<td align="center"><b>Componentes
instalados:</b></font></td>
</tr>
<tr>
<td> <font face="Arial" size="2">
<table border=1>
<%
Dim i
For i=0 to UBound(theComponent)
If Not IsObjInstalled(theComponent(i)) Then
Else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Next
on error goto 0
%>
</table>
</font>
</td>
</tr>
</table>
</BODY>
</HTML>
Não sei assinar... ehehehe
----------------------------------------------------------------------------
#18
Posted 20/09/2004, 11:59
Componentes instalados:
ADODB
FileSystemObject
CDONTS
E agora?
#19
Posted 20/09/2004, 12:13
blz?
Não sei assinar... ehehehe
----------------------------------------------------------------------------
#20
Posted 20/09/2004, 13:21
#21
Posted 20/09/2004, 14:26
#22
Posted 24/09/2004, 10:34
Obrigado operador... vou testar esse código assim que possível, pois o meu problema ainda persiste, infelizmente.Cara peguei o tópico no meio do caminho mais use isto ai para ver o que vc tem instalado no server:
componentes.asp<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(11)
Dim theComponentName(11)
' componentes
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"
' apelido do componente!
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
'theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<html>
<head>
<title>Componentes encontrados - www.asparena.eti.br </title>
</head>
<body>
<table>
<tr>
<td align="center"><b>Componentes
instalados:</b></font></td>
</tr>
<tr>
<td> <font face="Arial" size="2">
<table border=1>
<%
Dim i
For i=0 to UBound(theComponent)
If Not IsObjInstalled(theComponent(i)) Then
Else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Next
on error goto 0
%>
</table>
</font>
</td>
</tr>
</table>
</BODY>
</HTML>
O que acontece é que eu estou sabonetando bonito os baratos... mas não sei até quando vou conseguir sabonetar...
Se alguém mais puder me ajudar, agradeço muito!
Abraços!
================================
Também não conheço esse objeto não...Qual objeto é esse "Persits.MailSender"?
Edição feita por: LeoB, 24/09/2004, 13:40.
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)