Ik wil een in HTML opgemaakt mailtje verzenden via windmail. (de windows variant van de UNIX sendmail, is praktisch gelijk in gebruik) Hoe krijg ik dit voor elkaar? Momenteel gebruik ik iets dergelijks als subroutine om de mail te verzenden.
Wat moet ik aan bovenstaande veranderen om dat voor elkaar te krijgen?
code:
1
2
3
4
5
6
7
8
9
10
11
| sub send_mail {
$tempfile = &GetTempFileName($tempdir, "FM");
open(MAIL,">$tempfile") || die("Cannot open $tempfile -- Check Directory Permissions : $!");
print MAIL "To: \"ONTVANGER\" <the-prospector\@email.com>\n";
print MAIL "From: \"AFZENDER\" <the-prospector@email.com>\n";
print MAIL "Subject: HET ONDERWERP\n\n";
print MAIL $message;
close (MAIL);
system("C:/windmail/windmail.exe -t -t -n $tempfile") or die("Windmail fout: $!");
unlink($tempfile);
} |
Wat moet ik aan bovenstaande veranderen om dat voor elkaar te krijgen?