Sample script/coding for PHP/ASP contact form with SMTP authentication

Sample for PHP scripting:

<?php

 require_once "Mail.php";

 $from = "Sandra Sender <[email protected]>";

 $to = "Ramona Recipient <[email protected]>";

 $subject = "Hi!";

 $body = "Hi,\n\nHow are you?";

 $host = "mail.example.com";

 $username = "smtp_username";

 $password = "smtp_password";

 $headers = array ('From' => $from,

   'To' => $to,

   'Subject' => $subject);

 $smtp = Mail::factory('smtp',

   array ('host' => $host,

     'auth' => true,

     'username' => $username,

     'password' => $password));

 $mail = $smtp->send($to, $headers, $body);

 if (PEAR::isError($mail)) {

   echo("<p>" . $mail->getMessage() . "</p>");

  } else {

   echo("<p>Message successfully sent!</p>");

  }

 ?>

Sample for ASP scripting:

' http://msdn.microsoft.com/en-us/library/ms526318%28EXCHG.10%29.aspx

 Const cdoSendUsingMethod        = _

 "http://schemas.microsoft.com/cdo/configuration/sendusing"

 Const cdoSendUsingPort          = 2

 Const cdoSMTPServer             = _

 "http://schemas.microsoft.com/cdo/configuration/smtpserver"

 Const cdoSMTPServerPort         = _

 "http://schemas.microsoft.com/cdo/configuration/smtpserverport"

 Const cdoSMTPConnectionTimeout  = _

 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

 Const cdoSMTPAuthenticate       = _

 "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"

 Const cdoBasic                  = 1

 Const cdoSendUserName           = _

 "http://schemas.microsoft.com/cdo/configuration/sendusername"

 Const cdoSendPassword           = _

 "http://schemas.microsoft.com/cdo/configuration/sendpassword"

 'Use SSL for the connection (False or True)

 Const cdoSendTLS        = _

 "http://schemas.microsoft.com/cdo/configuration/smtpusessl"

 Set myMail = CreateObject("CDO.Message")

 Set myMail.Configuration = CreateObject("CDO.Configuration")

 Set Fields = myMail.Configuration.Fields

 ' SMTP-configuratie

 With Fields

  .Item(cdoSendUsingMethod)       = cdoSendUsingPort

  .Item(cdoSMTPServer)            = "smtp.vevida.com"

  .Item(cdoSMTPServerPort)        = 25

  .Item(cdoSMTPConnectionTimeout) = 10

  .Item(cdoSMTPAuthenticate)      = cdoBasic

  .Item(cdoSendUserName)          = "inlognaam/e-mailadres verzender"

  .Item(cdoSendPassword)          = "wachtwoord verzender"

  .Item(cdoSendTLS)               = true

  .Update

 End With