email link in "perl mail"

[Philipp Hasenfratz]

Halihallo anna

open (MAIL,"|/usr/lib/sendmail -t");

perldoc Net::SMTP

eine andere Möglichkeit, Mails zu versenden.

print MAIL "To: $Mail@$Domain\n";
print MAIL "From: &myMail@$myDomain\n";

Der Header wird durch eine Newline vom Body getrennt:

print MAIL "To: ...\n";
print MAIL "From: ...\n";
print MAIL "Subject: ...\n";
print MAIL "Content-Type: text/html\n";
print MAIL "\n";  # hier ist der Header des Mails fertig. Und jetzt erst, dürfen
                  # Maildaten kommen...

print MAIL "texte ...";
print MAIL "eMail: ";
print MAIL "<A HREF= "mailto:$mymail@$myDomain">$mymail@$myDomain</A>";

perldoc MIME::Entity;

Eine bei weitem bessere Möglichkeit, E-Mail-"Quelltexte" zu erstellen.

Beispiel:

use MIME::Entity;
my $mail_entity = MIME::Entity->build(
   From    => '[e-mail]',
   To      => '[e-mail]',
   Subject => 'test subject',
   Type    => 'text/html',
   Data    => 'texte ...
eMail: <a href="mailto: ...">...</a>'
);

print MAIL $mail_entity->as_string;

Viele Grüsse

Philipp