THis forum is a life saver! I emailed 1and1 a link to this thread, and this is their reply:
<?php
echo 'SMTP Server = ' . ini_get('SMTP') . "<br>";
echo 'SMTP Port = ' . ini_get('smtp_port') . "<br>";
echo 'sendmail path = ' . ini_get('sendmail_path') . "<br>";
?>
<?php $to = "someone@example.com"; $subject = "Test mail"; $message = "Hello! This is a simple email message."; $from = "someonelse@example.com"; $headers = "From:" . $from; mail($to,$subject,$message,$headers); echo "Mail Sent."; ?>
rders@ospre-success.co.ukuse strict;
use Mail::Mailer;
sub SendRichMail
####################################################### # # GetScriptUrl - retrieve an url to the specified script
sub SendRichMail
{
#? ACTINIC::ASSERT($#_ >= 4, "Invalid argument count in SendRichMail ($#_)", __LINE__, __FILE__);
#
# !!!!!! This is a function commonly used by many utilities. Any changes to its interface will
# !!!!!! need to be verified with the various utility scripts.
#
if ($#_ < 4)
{
return($::FAILURE, GetPhrase(-1, 12, 'Actinic::SendRichMail'), 0, 0);
}
my ($sSmtpServer, $sEmailAddress, $sLocalError, $sSubjectText, $sMessageText, $sMessageHTML, $sBoundary, $sReturnAddress);
($sSmtpServer, $sEmailAddress, $sSubjectText, $sMessageText, $sMessageHTML, $sReturnAddress) = @_;
#
# Check message content for bare LFs and repair if there are some
#
$sMessageText =~ s/\r\n/\n/g; # CRLF -> LF
$sMessageText =~ s/\r/\n/g; # remaining CR -> LF
$sMessageText =~ s/\n/\r\n/g; # all LF -> CRLF
# and check the HTML content as well
$sMessageHTML =~ s/\r\n/\n/g; # CRLF -> LF
$sMessageHTML =~ s/\r/\n/g; # remaining CR -> LF
$sMessageHTML =~ s/\n/\r\n/g; # all LF -> CRLF
#
# Check the return address
#
if (!$sReturnAddress) # if no return address defined
{
$sReturnAddress = $sEmailAddress; # use the destination email address
}
# (V11) use systems sendmail program
my $mailer = Mail::Mailer->new();
if ( ! $mailer->open({ From => $sReturnAddress,
To => $sEmailAddress,
Subject => $sSubjectText,
})
)
{
return($::FAILURE, "SendMail failure! $!", 0, 0);
}
print $mailer $sMessageText;
$mailer->close();
return($::SUCCESS, '', 0, 0);
}
$sMessageText =~ s/\n/\r\n/g; # all LF -> CRLF
# $sMessageText =~ s/\n/\r\n/g; # all LF -> CRLF
The latest one suggest changing the port to 587.
Comment