sslug-teknik team mailing list archive

[Anders Gnistrup <agn@xxxxxxx>]

On Monday 05 May 2003 21:59, you wrote:
> Anders Gnistrup wrote:
> > Hej sslugere
> >
> > Jeg er ved at planlægge et mindre arrangement for en 10-20 stykker og i
> > den forbindelse har jeg fået et problem, nemlig hotmail og deres
> > håndtering af spam.
> >
> > Hvis der mere end et eller andet magisk antal bliver mailen filtreret fra
> > og der er flere af deltagerne der aldrig får mine mails. Og det er meget
> > uheldigt. Min ide var at tage et prompt baseret mail program som tog
> > nogle argumenter og en text fil og så sendte en mail.
> >
> > Ved at sætte emailsene ind i en fil og skrive et mindre perl script ville
> > jeg så have løst problemet ved at kalde programet for hver mail adr. Så
> > findes der et eller andet mail program der kan klare det. Eller er der
> > nogen der har en bedre ide?
>
> Jeg gjorde mig engang vældig upopulær i dette forum ved at sende en
> reklamemail
> til udvalgte personer fra listen her.
>
> Det lærte jeg så lidt af, sagde undskyld og har ikke i sinde at gøre det
>   igen.
>
> Men til formålet brugte jeg vedlagte lille perl-program, som fungerer
> udmærket det bruger Mail::Sender modulet:
> #!/usr/bin/perl
>
> use Mail::Sender;
>
> unless ($ARGV[0]) {
>          print STDERR "usage: $0 filespec\n";
>          exit 1;
> }
>
> $src=$ARGV[0];
> $list="$src.lst";
> $body="$src.txt";
>
> $from="<afsenderadresse>";
> $cc="";
> $bcc="";
> $smtpsrv="<SMTP Server";
> $subject="<Dit subject>";
>
> open IF,$body or die "$body: $!\n";
> chop($subject=<IF>);
> $wrappeddata="";
> while ($l=<IF>) {
>          $wrappeddata.=$l;
> }
> close IF;
>
> open IF,$list or die "$list: $!\n";
> while (chop($rcpt=<IF>)) {
>          sendltr($from,$cc,$bcc,$rcpt,$wrappeddata,$smtpsrv,$subject);
> }
>
> sub sendltr {
>          my($from,$cc,$bcc,$rcpt,$wrappeddata,$smtpsrv,$subject)=@_;
>          print "$rcpt\n";
>          $smtp = new Mail::Sender {smtp => $smtpsrv, from => $from};
>          $smtp->Open({to => $rcpt, cc => $cc, bcc => $bcc, subject =>
> $subject});
>          $smtp->SendLine($wrappeddata);
>          return ($smtp->Close);
>
> Programmet bruger 2 filer: fil.txt og fil.lst.
> lst-filen indeholder en liste over mailadresser.
> txt-filen indeholder din mail-krop.
>
> Programmet kaldes som:
>
> programnavn fil
>
> Hvor fil er fælles-navnet for hhv. lst-filen og txt-filen.
>
> Håber det kan bruges.
>
> MVH

Mon ikke.

Det var pracis noget sådan jeg var ude efter. Hip hurra for perl :-)
Jeg anede ikke at der også fandtes et Mail modul til perl.

Hilsen
-- 

   >o)      Anders Gnistrup
    /\       agn@xxxxxxx
   _\_v      ICQ 168065733
Do not fear the pinguins.