Formmail script på NT-server

Der findes Jmail:

http://jech.dimac.net

...der er vist ikke lige hul igennem til dem.

Det kan godt være deres server er nede... det har den været nogle timer nu - prøv igen senere..

Di kan osse' søge under "Jmail" på dsv. søgemskiner...!

Du kan godt finde en formmail til windows NT i Matt´s Script arkiv.
Prøv adressen: http://www.worldwidemart.com/scripts/formmail.shtml scroll lidt ned på siden og find det sted der står windows95/NT
eller lign.

Mvh.
Christian
www.christian-t.subnet.dk

Ja...Men det kører kun sammen med et mail program der hedder windmail.

Jeg mener engang at have set et script, hvori man definerede smtp serveren....og ikke mail programmet som bruges til at afsende med!!

kan du ikke bruge et Blat mail prigram?

Blat mail program??

Denne kode er definationen af emailen:

$adminemail = "webmaster\@domæne.dk";
$smtp_addr = 'mail.domæne.dk';
$to = "$fields{'til'}";";
$from = "$fields{'fra'}";";
$subject = "$fields{'Emne'}";

$err = &sendMessage($to, $from, $subject, $body);
if ($err < 1)
{print "<br>\nSockets Mail error # $err<br>\n";}

Denne kode sender emailen bemærk at den er subbet!

######### SEND EMAIL #########
sub sendMessage
{
    my ($to, $from, $subject, $message) = @_;

    my ($replyaddr) = $from;
 
    if (!$to) { return -8; }

    my ($proto, $port, $smptaddr);

    my ($AF_INET)    =  2;
    my ($SOCK_STREAM) =  1;

    $proto = (getprotobyname('tcp'))[2];
    $port  = 25;

    $smtpaddr = ($smtp_addr =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)
            ? pack('C4',$1,$2,$3,$4)
            : (gethostbyname($smtp_addr))[4];

    if (!defined($smtpaddr)) { return -1; }

    if (!socket(S, $AF_INET, $SOCK_STREAM, $proto))            { return -2; }
    if (!connect(S, pack('Sna4x8', $AF_INET, $port, $smtpaddr))) { return -3; }

    my($oldfh) = select(S); $&#124;&#124; = 1; select($oldfh);

    $_ = <S>; if (/^[45]/) { close S; return -4; }

    print S "helo localhost\r\n";
    $_ = <S>; if (/^[45]/) { close S; return -5; }

    print S "mail from: $from\r\n";
    $_ = <S>; if (/^[45]/) { close S; return -5; }
 
    print S "rcpt to: $to\r\n";
    $_ = <S>; if (/^[45]/) { close S; return -6; }
   

    print S "data\r\n";
    $_ = <S>; if (/^[45]/) { close S; return -5; }

    print S "X-Mailer: BeadShoppe Enterprises Sendmail \r\n";
    print S "Mime-Version: 1.0\r\n";
    print S "Content-Type: text/plain; charset=us-ascii\r\n";
    print S "To: $to\r\n";
    print S "From: $from\r\n";
    print S "Reply-to: $replyaddr\r\n" if $replyaddr;
    print S "Subject: $subject\r\n\r\n";
    print S "$message";
    print S "\r\n.\r\n";

    $_ = <S>; if (/^[45]/) { close S; return -7; }

    print S "quit\r\n";
    $_ = <S>;

    close S;
    return 1;
}

....jeg får fejl:
Sockets mail error #8 -

???

1. Tjek at dit domæne er rigtigt - du kan KUN sende emails fra dit domæne!
2. Tjek at formularen er rigtig dvs.
<input type="text" name="til">
<input type="text" name="fra">
<input type="text" name="Emne">
3. Så skal du have defineret "$body"
eks. $body="Her er 'body' teksten";

Er tjekket ....virker ikke...Den burde jo godt nok køre...da man ikke angiver mailprogram men SMTP server.

Jeg har fundet den der hedder MailForm 1.91....men den skal man registrere for at få fjernet de navne/reklamer som kommer i bunden af emailen.....ellers er den kanon god

..jeg har selv fundet en anden....MailForm...den koster dog penge.

Hvis du har en email, så kan jeg lige prøve at lave et script og teste det på min NT server og derefter sende scriptet til dig :-)

NB: Jeg kan dog ikke nå det før på Søndag - men du kan lige påminde mig om det på ICQ UIN 9513752 eller email martin@webside.dk

Okay Martin....det prøver jeg...

Gi' mig din mail så sender jeg den med en vedhæftet

webmaster@laserzap.dk