Data update

Task/Send-email/FreeBASIC/send-email-1.basic

@@ -0,0 +1,18 @@
+Sub SendEmail(fromAddress As String, toAddress As String, ccAddress As String, _
+    subject As String, messageText As String, serverName As String, loginDetails As String)
+    Dim As String comando
+    comando = "echo '" & messageText & "' | mailx -s '" & subject & "' -r '" _
+    & fromAddress & "' -S smtp='" & serverName _
+    & "' -S smtp-auth=login -S smtp-auth-user='" & loginDetails _
+    & "' -S smtp-auth-password='yourpassword' -c '" & ccAddress & "' '" _
+    & toAddress & "'"
+    Shell comando
+End Sub
+
+Dim As String fromAddress = "your_mail@gmail.com"
+Dim As String toAddress = "recipient@gmail.com"
+Dim As String ccAddress = "cc@gmail.com"
+Dim As String subject = "Mail subject"
+Dim As String messageText = "This is the body of the email."
+Dim As String serverName = "smtp.gmail.com"
+Dim As String loginDetails = "your_username"

Task/Send-email/FreeBASIC/send-email-2.basic

@@ -0,0 +1 @@
+SendEmail(fromAddress, toAddress, ccAddress, subject, messageText, serverName, loginDetails)

Task/Send-email/FreeBASIC/send-email-3.basic

@@ -0,0 +1,22 @@
+'VBScript code:
+Function EnviarCorreo()
+    With CreateObject("CDO.Message")
+        .Subject = "Mail subject"
+        .From = "your_mail@domain.com"
+        .To = "recipient@domain.com"
+        .TextBody = "This is the body of the email."
+
+        .Configuration.Fields.Item _
+        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
+
+        .Configuration.Fields.Item _
+        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
+        "smtp.dominio.com"
+
+        .Configuration.Fields.Item _
+        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
+
+        .Configuration.Fields.Update
+        .Send
+    End With
+End Function

Task/Send-email/FreeBASIC/send-email-4.basic

@@ -0,0 +1,15 @@
+'VBA code:
+Sub EnviarCorreo()
+    Dim OutlookApp As Object
+    Dim OutlookMail As Object
+    Set OutlookApp = CreateObject("Outlook.Application")
+    Set OutlookMail = OutlookApp.CreateItem(0)
+    With OutlookMail
+        .To = "recipient@domain.com"
+        .Subject = "Mail subject"
+        .Body = "This is the body of the email."
+        .Send
+    End With
+    Set OutlookMail = Nothing
+    Set OutlookApp = Nothing
+End Sub

Task/Send-email/FreeBASIC/send-email-5.basic

@@ -0,0 +1 @@
+Shell "cscript send_mail.vbs"