Data update

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