On 07/08/2017 02:58 AM, timo wrote:
@ToddAndMargo <https://github.com/toddandmargo> here's how to create an email with attachments:


|my $image = "P5\n64 64\n255\n".encode("utf8") ~ Buf[int8].new( do for -32..^32 X -32..^32 -> ($x, $y) { 255 - (sqrt($x ** 2 + $y ** 2) * 4 % 255).ceiling }); my $email = Email::MIME.create( header-str => [from => "toddandma...@zoho.com", to => "redacted", subject => "Check out my fantastic attachment!"], parts => [ Email::MIME.create( header => [ content-transfer-encoding => "quoted-printable" ], attributes => [ content-type => "text/plain", charset => "utf8" ], body-str => "Hello Todd, check out this räd attachment!") ,Email::MIME.create( header => [ "Content-Transfer-Encoding" => "base64" ], attributes => [ content-type => "image/x-portable-greymap", disposition => "attachment" ], body => $image ) ]); say $email.as-string; |

it has a plain text body (including an utf8 character that gets encoded with quoted-printable) and it has an image attachment (a portable greymap that is created as a Buf, to simulate any attachments you would slurp as binary rather than encoded as a string).

It has the to and from headers in the Email::MIME object and it is part of the resulting text, so you can just feed that Net::SMTP's send method that only takes the message.

This relies on retupmoca/p6-Email-MIME#5 <https://github.com/retupmoca/p6-Email-MIME/pull/5> getting merged first.


Hi Timo,

I don't understand.  How do you sent this to Net::SMTP?
Where is the SMTP server's address and user name?  In
Net::SMTP by chance?

I have successfully used Net::SMTP before, but I don't get what you
are saying.

I am confused.  :'(

-T

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Serious error.
All shortcuts have disappeared.
Screen. Mind. Both are blank.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Reply via email to