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

Sample for PHP scripting:
 
<?php
 require_once "Mail.php";
 
 $from = "Sandra Sender <sender@example.com>";
 $to = "Ramona Recipient <recipient@example.com>";
 $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
 

Add Feedback