Send email: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,249: / Line 1,249: @@
 =={{header|Perl 6}}==
-<lang perl6># Reference: https://github.com/retupmoca/p6-Email-Simple
+<lang perl6>use Email::Simple;
-use Email::Simple;
-my $eml = Email::Simple.new($raw-mail-text);
+my $to      = 'mail@example.com';
+my $from    = 'me@example.com';
-say $eml.body;
+my $subject = 'test';
+my $body    = 'This is a test.';
-my $new = Email::Simple.create(header => [['To', 'mail@example.com'],
+my $email = Email::Simple.create(
+    :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",
+                                "EHLO $smtp-server",
+                                "MAIL FROM:<{$email.from}>",
+                                "RCPT TO:<{$email.to}>",
+                                "DATA", $email.body,
+                                '.', ''
+                            )
+                        }
+                        elsif $response ~~ /^250/ {
+                            .print("QUIT\r\n");
+                            done
+                        }
+                        else {
+                           say "Send email failed with: $response";
+                           done
+                        }
+                    }
+                    .close
+                }
+            }
+        }
+    }
+)</lang>
 =={{header|PHP}}==