sslug-teknik team mailing list archive

[Jon Svejgaard <jon@xxxxxx>]

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
--
Jon Svejgaard
====================================================================
                               | ACE - UNIX/Linux Consultancy
                               | Hjorthoejvej 2 / DK-4291 Ruds Vedby
mail: jon@xxxxxx               | DENMARK
http://www.ace.dk              | +45 5826 1799 / +45 4052 0799
====================================================================