Teste hvilket mail-komponent der er installeret

Jeg vil også forsøge at (hvis det er muligt) få det til at teste om der er Changerettigheder til den mappe der er på serveren.

Ja, men det kan godt være lidt langhåret og virker måske ikke helt perfekt. Værdien af at kunne det har jeg dog svært ved at se. Hvis du ikke ved hvad du har installeret/har adgang til på serveren, har du et større problem :-)

Du kan eks. lave et stykke kode med fejlhåndtering, der prøver at oprette en instans af de forskellige komponenter og laver en redirect afhængig af resultatet.

Du kan også lave en lille komponent der kontrollerer i registreringsdatabasen hvilke mailkomponenter der er installeret. Jeg ved dog ikke om alle ovenstående er registreret der.

copy/paste denne kode til f.eks. test.asp- og kør den.
Den tester: The following
      results show which email components are currently Installed on your server
      and which aren\'t. Spd E-Letter currently supports CDONTS, ASPMail, and Chili!Mail.
      Support for other mail programs will be coming soon.
**************
copy herfra:


<%@Language=\"VBScript\"%>
<%
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\'This script was originally created by Richard Kinser.
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

Option Explicit %>
<%
Dim theComponent(11)
Dim theComponentName(11)

\' the components
theComponent(0) = \"SMTPsvg.Mailer\"
theComponent(1) = \"Persits.MailSender\"
theComponent(2) = \"SMTPsvg.Mailer\"
theComponent(3) = \"CDONTS.NewMail\"
theComponent(4) = \"CDONTS.NewMail\"
theComponent(5) = \"dkQmail.Qmail\"
theComponent(6) = \"Geocel.Mailer\"
theComponent(7) = \"iismail.iismail.1\"
theComponent(8) = \"Jmail.smtpmail\"
theComponent(9) = \"SmtpMail.SmtpMail.1\"
theComponent(10) = \"ocxQmail.ocxQmailCtrl.1\"
theComponent(11) = \"SoftArtisans.SMTPMail\"

\' the name of the components
theComponentName(0) = \"ASPMail\"
theComponentName(1) = \"ASPEMail\"
theComponentName(2) = \"ASPQMail\"
theComponentName(3) = \"CDONTS\"
theComponentName(4) = \"Chili!Mail\"
theComponentName(5) = \"dkQMail\"
theComponentName(6) = \"GeoCel\"
theComponentName(7) = \"IISMail\"
theComponentName(8) = \"JMail\"
theComponentName(9) = \"SMTP\"
theComponentName(10) = \"OCXQMail\"
theComponentName(11) = \"SA-Smtp Mail\"


Function IsObjInstalled(strClassString)
On Error Resume Next
\' initialize default values
IsObjInstalled = False
Err = 0
\' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
\' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>

<HTML>
<HEAD>
<TITLE>Email Component Test</TITLE>
</HEAD>
<body bgcolor=\"#ffffff\" topmargin=\"0\" bottommargin=\"0\" leftmargin=\"0\" rightmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" stylesrc=\"1bg_info.htm\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"3\">
  <tr>
    <td width=\"100%\" bgcolor=\"#000080\"><font size=\"2\" color=\"mintcream\"><b><font face=\"Arial, Helvetica, sans-serif\">Email
      Component Test</font></b></font></td>
  </tr>
  <tr>
    <td width=\"100%\"><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">The following
      results show which email components are currently Installed on your server
      and which aren\'t. Spd E-Letter currently supports CDONTS, ASPMail, and Chili!Mail.
      Support for other mail programs will be coming soon.</font></td>
  </tr>
</table>

<table border=0 cellspacing=1 cellpadding=4 align=\"center\">
  <% Dim i
          For i=0 to UBound(theComponent) %>
  <tr>
    <td bgcolor=\"#FFFFFF\" align=\"\" A0B0E0\"\" right\"\">
      <div align=\"right\"><font face=\"\" verdana,=\"Verdana,\" arial,=\"Arial,\" helvetica=\"Helvetica\" size=\"2\" 2=\"2\"><strong>
        <font face=\"Arial, Helvetica, sans-serif\"><%= theComponentName(i)%>:</font>&nbsp;</strong></font></div>
    </td>
    <td bgcolor=\"#FFFFFF\" align=\"\" A0B0E0\"\" center\"\"> <font size=\"2\"> <font face=\"Arial, Helvetica, sans-serif\">
      <% If Not IsObjInstalled(theComponent(i)) Then %>
      </font></font>
      <div align=\"left\"><font size=\"2\" face=\"Arial, Helvetica, sans-serif\">Not
        Installed
        <% Else %>
        <strong>Installed</strong>
        <% End If %>
        </font></div>
    </td>
  </tr>
  <% Next %>
</table>
<p align=\"center\"><a href=# onClick=\"self.close();\"><font size=2 face=\"Verdana,Helvetica,Arial,sans-serif\"><b>Close
  Window</b></font></a>
<hr width=\"90%\">
<table border=\"0\" width=\"100%\" cellpadding=\"4\">
  <tr>
    <td width=\"100%\">
      <p align=\"right\"><font face=\"Arial\" size=\"2\"><b>Spd E-Letter v2.0<br>
        <a href=\"http://www.thecgl.net/programs/mailinglist\" target=\"_blank\">James
        Harris</a></b></font>
    </td>
  </tr>
</table>
</BODY>
</HTML>

Det jeg skal bruge det til, er at lave en test mine programmer gennemløber, så brugeren er klar over hvad der er installeret. Det er ikke noget jeg personligt vil bruge, men til små amatører der vil bruge mine programmer.

Det ser ud til at jeg kan bruge den.
Nu kommer bare en lang proces, hvor jeg skal finde ud af hvordan det skal sættes op til hver enkelt komp. Og når jeg er færdig er det meget nemmere at sætte mine programmer op.

chrilles >> dt var jo lige det jeg tænkte på, imponerende at du kunne nå at flække det sammen så hurtigt :-)

Det er jo taget fra et sted på nettet:-)

Ja, I må ikke sige det til nogle :-)

Det er helt OK, hvad har man nettet til?