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

## sendmail aufrufen/instanzieren
$mail=sendmail->new();

## Subject hinzufügen
$mail->subject("testmail mit anhang");

## Absender angeben
## Parameter: emailadresse,name
$mail->setSender('von@domain.tld',"sendername");

## Empfänger angeben, können mehrere Empfänger sein
## Parameter: emailadresse,name
$mail->addRecipient('an1@domain.tld',"empfängername1");
$mail->addRecipient('an2@domain.tld',"empfängername2");

## cc-empfänger, können auch mehrere sein
## Parameter: emailadresse,name
$mail->copyto('cc1@domain.tld',"cc-name1");
$mail->copyto('cc2@domain.tld',"cc-name2");

## bcc-empfänger, können auch mehrere sein
## Parameter: emailadresse,name
$mail->blindcopy('bcc1@domain.tld','bcc-name1');
$mail->blindcopy('bcc2@domain.tld','bcc-name2');

## Textausgabe der Email einfügen (sollte immer drin sein, sonst könnte ein spamfilter schlucken)
$mail->setText('This mail is generated by baseportal - with Attachments and html and text');

## html-teil der Email einfügen
$mail->setHTML('<table><tr><td>This mail is generated by baseportal - with Attachments and html and text</td></tr></table>');

## Einen Anhang von einer Website einfügen (doc,pdf,image,html,usw.) - können mehrere sein
## 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('nextfloor.html','text/html','http://www.nextfloor.de/');
$mail->attachmentByFile('snowpage.gif','image/gif','http://www.snowpage.de/images/snowp.gif');

## Anhnag von Rohdaten (bild oder pdf oder...) - können mehrere sein
## Parameter: name des Anhangs in der Mail, mimetype (http://selfhtml.teamone.de/diverses/mimetypen.htm), Rohdaten des Anhangs
$mail->attachmentByData('test1.txt','text/plain','This attachment is generated by baseportal');
$mail->attachmentByData('test2.txt','text/plain','This is an another attachment generated by baseportal');

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