ik ben bezig voor mn stage bedrijf een factuur te mailen ipv van dat het nu word opgestuurd.
dus, in perl (draaiende in een asp pagina) word er nu een html pagina opgebouwd, die ik wil mailen.
ik heb al hier en daar gekeken
via een ander topic en dit
http://alma.ch/perl/Mail-Sendmail-FAQ.html
kwam ik tot dit:
en dan onderaan de pagina nog
geeft geen errors, alleen een blanko pagina wat zou moeten kloppen...
ik krijg nu ook een mailtje binnen, maar dat ziet er zo ongeveer uit:
blablabalbla etc...
[/code]
zo werkt het dus blijkbaar niet... maar hoe poep ik dan die html output naar een mailtje??
dus, in perl (draaiende in een asp pagina) word er nu een html pagina opgebouwd, die ik wil mailen.
ik heb al hier en daar gekeken
via een ander topic en dit
http://alma.ch/perl/Mail-Sendmail-FAQ.html
kwam ik tot dit:
code:
1
2
3
4
5
6
7
8
9
10
| #mail user notification properties
my %mail_user_notification = (
from => $helpdesk_mail,
to => $email,
subject => 'Synergy userright request - request rejected',
'content-type' => 'text/html; charset="iso-8859-1"',
);
$mail_user_notification{body} = <<END_OF_BODY; |
en dan onderaan de pagina nog
code:
1
2
| END_OF_BODY sendmail(%mail_user_notification) || print "Error: $Mail::Sendmail::error\n"; |
geeft geen errors, alleen een blanko pagina wat zou moeten kloppen...
ik krijg nu ook een mailtje binnen, maar dat ziet er zo ongeveer uit:
code:
1
2
3
4
5
| onderwerp: Synergy userright request - request rejected
body:
Win32::OLE=HASH(0x6abe5b0)->writeblock(0); if(GetFormValue('typeOfLetter') eq "reminderLetter") {print "Herinnering";} elsif(GetFormValue('typeOfLetter') eq "exhortation") {print "Aanmaning";} else {print "Factuur";} Win32::OLE=HASH(0x6abe5b0)->writeblock(1); if(uc(D van Bruxvoort) ne uc |
blablabalbla etc...
[/code]
zo werkt het dus blijkbaar niet... maar hoe poep ik dan die html output naar een mailtje??