<!-- include der sendmailklasse-->
<include src=sendmail>
<perl>

$mail=sendmail->new();

$mail->subject("testmail mit anhang");

## Parameter: emailadresse,name
$mail->setSender('info@KeinAgent.de',"Ricky");

## Parameter: emailadresse,name
$mail->addRecipient('richard.wonner@web.de',"empfängername1");

## Parameter: emailadresse,name
#$mail->blindcopy('bcc1@domain.tld','bcc-name1');
#$mail->blindcopy('bcc2@domain.tld','bcc-name2');

$mail->setText('This mail is generated by baseportal - with Attachments and html and text');

$mail->setHTML('<table><tr><td><b>This mail</b> is generated by baseportal - with Attachments and html and text</td></tr></table>');

## muß per Browser auch abrufbar sein
## Parameter: name des Anhangs in der Mail, mimetype (http://selfhtml.teamone.de/diverses/mimetypen.htm), Quelle im www
$mail->attachmentByFile('Bewerbungsbild.jpg','image/jpeg','http://www.keinagent.de/files/Bewerbungsbild.jpg');

$mail->submit();
out "verschickt";
</perl>