Data update

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