Thorsten Höser: MailerScripten offline testen mit Mail 64 - Pfadangaben?

Beitrag lesen

Hallo OJ,

wenn Du nur diese eine Zeile austauschen willst, mußt Du ein anderes (Kommandozeilenfähige) Mail-Programm verwenden. Neben dem schon von Rolf erwähnten blat gibt es auch divesre sendmail-Substitute. Allerdings habe ich keine Ahnung, ob und wie die unter Windows98 läuft.

Falls Du damit experimentieren willst, hier die URL:

Sendmail für Windows:
  http://www.dynamicstate.com/sendmail.htm (Shareware, $49)

ntsendmail:
  http://www.ntsendmail.com/index.html

Portabler und ohne Sendmail oder Substitute gibt es unter Perl mehrere Möglichkeiten Mails zu versenden.

Ich zitiere hier mal ein paar Zeilen aus der ActiveState Perl-Doku:

mit dem Modul Net::SMTP

use Net::SMTP;

$smtp = Net::SMTP->new('here.com'); # connect to an SMTP server
  $smtp->mail( 'user@here.com' );     # use the sender's address here
  $smtp->to('user@there.com');        # recipient's address
  $smtp->data();                      # Start the mail

# Send the header.
  $smtp->datasend("To: user@there.com\n");
  $smtp->datasend("From: user@here.com\n");
  $smtp->datasend("\n");

# Send the body.
  $smtp->datasend("Hello, World!\n");
  $smtp->dataend();                   # Finish sending the mail
  $smtp->quit;                        # Close the SMTP connection

mit dem Modul Mail::Sender

use Mail::Sender;
  
  $sender = new Mail::Sender {smtp => 'mail.yourdomain.com',
                              from => 'your@address.com'};        
  $sender->MailFile({to => 'some@address.com',
                     subject => 'Here is the file',
                     msg => "I'm sending you the list you wanted.",
                     file => 'filename.txt'});

Eine weitere etwas esoterische Möglichkeit unter WIN98 wäre es, WIN32::OLE zu verwenden um Outlook direkt anzusprechen - was die nicht-Portabilität des Codes garantieren würde...

Gruß,

Thorsten