Multipart/Alternative

[Anonymous Monk]

I am having trouble sending mutipart/alternative messages through perl using the code below. Are there rrors in this code? Am I missing something? Thanks in advance.

print MAIL "To: $config->{email_to}\n";
print MAIL "From: $config->{email_from}\n";
print MAIL "Subject: $config->{email_subject}\n";
print MAIL "Content-Type: multipart/alternative; boundary=zzz\n\n";
print MAIL qq^
--zzz
Content-Type: text/plain

$config->{email_comment}

Read the full story at:\n$config->{url}

--zzz
Content-Type: text/html

$UrlHtmlData

--zzz--

[Abigail-II]

Assuming there's a closing ^ somewhere, I don't see any Perl errors in the code. After all, all you have are print statements.

I'd prefer to use a single here doc, but that's another issue.

Now, whether you are using the correct MIME format, I don't know. I presume that if you aren't using a module for it, you know the MIME format better than I do.

Abigail
-- 
What has happened to the times when email was plain text, and nothing more than plain text?

[extremely]

You'd be a lot happier in life if you'd just grab the MailTools package. (try MIME::Entity especially.)

--
$you = new YOU;
honk() if $you->love(perl)

[extremely]

Oh, and to actually answer your non-perl question :), I think you need to doublequote the boundary string in the header. And I'm darn certain that "===" isn't a good idea for a string.

If I were you, I'd make it a _lot_ uglier.

--
$you = new YOU;
honk() if $you->love(perl)

[Jenda]

use Mail::Sender;

I'm not gonna copy the example from the module into here. The link above will take you directly to the code.

HTH, Jenda