Send email: Difference between revisions
→{{header|Perl 6}}: Add code to actually (theoretically) send the email
m (→{{header|Python}}: Sub-headers) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add code to actually (theoretically) send the email) |
||
Line 1,249:
=={{header|Perl 6}}==
<lang perl6>
my $
my $from = 'me@example.com';
my $subject = 'test';
my $body = 'This is a test.';
my $
:header[['To', $to], ['From', $from], ['Subject', $subject]],
['From', 'me@example.com'],▼
:body($body)
['Subject', 'test']],▼
);
body => 'This is a test.');▼
say ~$new;</lang>▼
say ~$email;
# Note that the following will fail without an actual smtp server that
# will accept anonymous emails on port 25 (Not very common anymore).
# Most public email servers now require authentication and encryption.
my $smtp-server = 'smtp.example.com';
my $smtp-port = 25;
await IO::Socket::Async.connect($smtp-server, $smtp-port).then(
-> $smtp {
if $smtp.status {
given $smtp.result {
react {
whenever .Supply() -> $response {
if $response ~~ /^220/ {
.print( join "\r\n",
"MAIL FROM:<{$email.from}>",
"RCPT TO:<{$email.to}>",
)
}
elsif $response ~~ /^250/ {
.print("QUIT\r\n");
done
}
else {
say "Send email failed with: $response";
done
}
}
.close
}
}
}
}
=={{header|PHP}}==
| |||