[perl] mail receipt

Pagina: 1
Acties:
  • 32 views sinds 30-01-2008

  • sharkzor
  • Registratie: Maart 2000
  • Laatst online: 17:55
ik zit al een tijdje te zoeken hoe ik met perl een mailtje kan sturen met een receipt er aan vast. Dus dat mensen een bevestiging moeten terugsturen.
in de sendmail module kan ik er niks over vinden en op google ook weinig concreets....

is het mogelijk?

  • T-MOB
  • Registratie: Maart 2001
  • Laatst online: 21:58
Als ik mezelf een mailtje stuur met notificatie dan zie ik daar een header
code:
1
Disposition-Notification-To: email@domain.com

Lijkt me dat je die moet hebben :)

Regeren is vooruitschuiven


  • sharkzor
  • Registratie: Maart 2000
  • Laatst online: 17:55
T-MOB schreef op dinsdag 18 oktober 2005 @ 12:46:
Als ik mezelf een mailtje stuur met notificatie dan zie ik daar een header
code:
1
Disposition-Notification-To: email@domain.com

Lijkt me dat je die moet hebben :)
euh... ja en hoe prop ik dat erin?

dit is tot nu mijn (rommelige) code
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
$email = GetFormValue('emailadres');
print "<p>hoi $email</p>";
$fid = GetFormValue('projectId');
%mail = (
         from => 'factuur@domein.nl',
         to => "$email",
         subject => "Factuurnummer $fid bedrijf",
         bcc => 'factuur@domein.nl',
         smtp => 'mail.planet.nl',
        );


$boundary = "====" . time() . "====";
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";

#$message = encode_qp( "Bijgevoegd uw factuur" );
$message = "Bijgevoegd uw factuur";


open (F, $bestand) or die "Cannot read $bestand: $!";
binmode F; undef $/;
$mail{body} = encode_base64(<F>);
close F;

$boundary = '--'.$boundary;
$mail{body} = <<END_OF_BODY;
$boundary
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

$message
$boundary
Content-Type: application/octet-stream; name="@bestand"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="Factuur.html"

$mail{body}
$boundary--
END_OF_BODY

if($email ne "")
{
sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";

Verwijderd

In regel 28 stuur je bijvoorbeeld wat header info, wellicht kan je het daarbij proppen ;)

  • stekkel
  • Registratie: Augustus 2001
  • Laatst online: 23-04 13:07
Verwijderd schreef op donderdag 20 oktober 2005 @ 11:30:
In regel 28 stuur je bijvoorbeeld wat header info, wellicht kan je het daarbij proppen ;)
Lijkt me sterk, eerder iets van:
$mail{'Disposition-Notification-To'} = '<email@domain.com>';

  • NMe
  • Registratie: Februari 2004
  • Laatst online: 15-04 22:07

NMe

Quia Ego Sic Dico.

Kom op, dit is prima zelf te vinden. Desnoods stuur je jezelf even een mailtje met leesbevestiging via je mailclient, en check je daarna de headers van de mail die je binnen krijgt. Vervolgens even checken hoe je een header set in Perl en klaar is Klara.

Zelf een beetje meer moeite doen kan geen kwaad hoor. ;)

'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.

Pagina: 1

Dit topic is gesloten.