Skip navigation

Category Archives: Technisches

Weil ich gestern solange rumgesucht hab, bis ich es gefunden hab. Vielleicht hat es der nächste damit leichter!

#!/usr/bin/perl
#
use strict;
use CGI;
use MIME::Lite;
my $from     = "absender@domain1.de";
my $to       = "empfaenger@domain2.de";
my $subject  = "Return-Path aendern";
my $mail_str = "So geht's - aber ohne Gewaehr ;) ";
my $msg = new MIME::Lite (
From    => $from,
To      => $to,
Subject => $subject,
Type    => 'TEXT',
Data    => $mail_str
);
$msg->send
("sendmail", sendmail -t -oi -oem -fAdresse@domain1.de");

Der ganze Trick besteht daran, sendmail mit dem Parameter -f[Return-Path] auzurufen (ohne blank) …

Advertisements