Data update

Task/Send-email/Ada/send-email.ada

@@ -1,27 +0,0 @@
-with AWS.SMTP, AWS.SMTP.Client, AWS.SMTP.Authentication.Plain;
-with Ada.Text_IO;
-use  Ada, AWS;
-
-procedure Sendmail is
-   Status : SMTP.Status;
-   Auth : aliased constant SMTP.Authentication.Plain.Credential :=
-      SMTP.Authentication.Plain.Initialize ("id", "password");
-   Isp : SMTP.Receiver;
-begin
-   Isp :=
-      SMTP.Client.Initialize
-        ("smtp.mail.com",
-         Port       => 5025,
-         Credential => Auth'Unchecked_Access);
-   SMTP.Client.Send
-     (Isp,
-      From    => SMTP.E_Mail ("Me", "me@some.org"),
-      To      => SMTP.E_Mail ("You", "you@any.org"),
-      Subject => "subject",
-      Message => "Here is the text",
-      Status  => Status);
-   if not SMTP.Is_Ok (Status) then
-      Text_IO.Put_Line
-        ("Can't send message :" & SMTP.Status_Message (Status));
-   end if;
-end Sendmail;

Task/Send-email/Emacs-Lisp/send-email.l

@@ -1,13 +0,0 @@
-(defun my-send-email (from to cc subject text)
-  (with-temp-buffer
-    (insert "From: " from "\n"
-            "To: " to "\n"
-            "Cc: " cc "\n"
-            "Subject: " subject "\n"
-            mail-header-separator "\n"
-            text)
-    (funcall send-mail-function)))
-
-(my-send-email "from@example.com" "to@example.com" ""
-               "very important"
-               "body\ntext\n")

Task/Send-email/PowerShell/send-email.psh

@@ -1,14 +0,0 @@
-[hashtable]$mailMessage = @{
-    From = "weirdBoy@gmail.com"
-    To = "anudderBoy@YourDomain.com"
-    Cc = "daWaghBoss@YourDomain.com"
-    Attachment = "C:\temp\Waggghhhh!_plan.txt"
-    Subject = "Waggghhhh!"
-    Body = "Wagggghhhhhh!"
-    SMTPServer = "smtp.gmail.com"
-    SMTPPort = "587"
-    UseSsl = $true
-    ErrorAction = "SilentlyContinue"
-}
-
-Send-MailMessage @mailMessage

Task/Send-email/REBOL/send-email.rebol

@@ -1 +0,0 @@
-send user@host.dom "My message"

Task/Send-email/VBScript/send-email.vb

@@ -1,20 +0,0 @@
-Function send_mail(from,recipient,cc,subject,message)
-	With CreateObject("CDO.Message")
-		.From = from
-		.To = recipient
-		.CC = cc
-		.Subject = subject
-		.Textbody = message
-		.Configuration.Fields.Item _
-			("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
-		.Configuration.Fields.Item _
-			("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
-		        "mystmpserver"
-		.Configuration.Fields.Item _
-		    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
-		.Configuration.Fields.Update
-		.Send
-	End With
-End Function
-
-Call send_mail("Alerts@alerts.org","jkspeed@jkspeed.org","","Test Email","this is a test message")