Public Class Mail 
    Private _Mail As New System.Net.Mail.MailMessage
    Public Sub New(ByVal FromName As String, ByVal FromMail As String, ByVal ToName As String, ByVal ToMail As String, ByVal Subject As String, ByVal Body As String, Optional ByVal isHTML As Boolean = False) 
        _Mail.Subject = Subject
        _Mail.Body = Body
        _Mail.From = New System.Net.Mail.MailAddress(FromMail, FromName)
        _Mail.To.Add(New System.Net.Mail.MailAddress(ToMail, ToName)) 
        _Mail.IsBodyHtml = isHTML
        _Mail.BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-1")
        _Mail.SubjectEncoding = System.Text.Encoding.GetEncoding("iso-8859-1") 
    End Sub



    Public Function Send() As Boolean

        Try

            Dim smtp As New System.Net.Mail.SmtpClient("localhost") ' Mettez ici le server SMTP

            smtp.Send(_Mail)
            Return True
        Catch ex As Exception 
            Return False

        End Try
    End Function 
End Class


' Exemple d'utilisation
' On prépare le mail à envoyer

Dim MonMail As New Mail("MonMail", "MonMail@domain.com", "UnCopain", "MailDuCopain@domain.com", "Le sujet de mon mail", "Le corp du message qui peut être en HTML si on set ""isHTML"" à True", False)

' On envoi le mail

MonMail.Send() ' Si le mail est parti, renvoi True sinon, False

public class Mail

{
    private System.Net.Mail.MailMessage _mail = new System.Net.Mail.MailMessage(); 
    public Mail(string fromName, string fromMail, string toName, string toMail, string subject, string body, bool isHtml) 
    {
        this._mail.Subject = subject;
        this._mail.Body = body; 
        this._mail.From = new System.Net.Mail.MailAddress(fromMail, fromName);
        this._mail.To.Add(new System.Net.Mail.MailAddress(toMail, toName)); 
        this._mail.IsBodyHtml = isHtml;
        this._mail.BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-1");            
        this._mail.SubjectEncoding = System.Text.Encoding.GetEncoding("iso-8859-1"); 
    }
    public bool Send() 
    {
        try

        {
            System.Net.Mail.SmtpClient smtp = new System.Net.Mail.SmtpClient("localhost"); // Mettre le serveur smtp ici
            smtp.Send(this._mail);            
            return true; 
        }
        catch (Exception) { return false; } 
    }
}

//Exemple d'utilisation


// Mail m = new Mail("MonMail", "MonMail@domain.com", "UnCopain", "MailDuCopain@domain.com", "Le sujet de mon mail", "Le corp du message qui peut être en HTML si on met le paramètre \'isHTML\' à True", false);

// m.Send();

System.Net.Mail.SmtpClient client = new System.Net.Mail.SmtpClient("host", port); 
client.Send("from", "recipients", "subject", "body");

<?php
function mailer ( $to, $subject, $content, $headers ) {
 if ( mail($to, $subject, $content, $headers) ) {
      return true;
 } else {
      return false;
 }
}
mailer('moi@lol.com', 'sujet', 'contenu', 'From : xxx');
?>

// En substitution au code php existant, je propose tout simplement :
mail($to,$subject,$content,$headers);
// Inutilie de redéclarer une fonction, surtout si elle renvoie les mêmes parametres, en l'occurence true|false.

<cfmail to = "#form.mailto#" from = "#form.mailFrom#" subject = "#form.subject#">
            Ce message est envoyé et produit avec la fonction cfmail:
            = = = = = = = = = = = = = = = = = = = = = = = = = = =
            #form.body#
</cfmail>

Public Sub SendMail(ByVal FromMail As String, ByVal ToMail As String, ByVal Body As String, ByVal Subject As String)
    Dim Mail As New MailMessage 
    Mail.From = FromMail
    Mail.To = ToMail
    Mail.Body = Body 
    Mail.BodyFormat = MailFormat.Text
    Mail.Subject = Subject
    SmtpMail.Send(Mail)
End Sub

using System.Web.Mail; 
... 
/// <summary> 
/// Send Mail for User by SMTP 
/// </summary> 
/// <param name="Contenu">Mail Boby</param> 
/// <param name="Subject">Mail subject</param> 
/// <param name="MailTo">Mail to adress</param> 
/// <param name="MailFrom">Mail from adress</param> 
/// <param name="SMTPServer">SMTP Server to use</param> 
/// <param name="InHTML">Body Mail in HTML or not</param> 
/// <returns>Send Mail sent OK ou Error</returns> 
public static string SendMail(StringBuilder Contenu, string Subject, string MailTo, string MailFrom, string SMTPServer, bool InHTML) 
{ 
    string Retour = string.Empty; 
    MailMessage msg = null; 
    try 
    { 
        msg = new MailMessage(); 
        msg.Body = Contenu.ToString(); 
        if (InHTML) 
        { 
            msg.BodyFormat = MailFormat.Html; 
        } 
        else 
        { 
            msg.BodyFormat = MailFormat.Text; 
        } 
        msg.Subject = Subject; 
        msg.From =MailFrom; 
        msg.To = MailTo; 
        SmtpMail.SmtpServer = SMTPServer; 
        SmtpMail.Send(msg); 
        Retour = "Mail sent to "+ MailTo; 
    } 
    catch(Exception ex) 
    { 
        Retour = "Error in Sendmail function - Details : "+ ex.ToString(); 
    } 
    finally 
    { 
        msg = null; 
    } 
    return Retour; 
} 

-- Article à lire pour la config http://www.asp-php.net/tutorial/sql-server/sqlserver2005mail.php
DECLARE @tableHTML  NVARCHAR(MAX) ;
SET @tableHTML =
    N'<H1>Work Order Report</H1>' +
    N'<table border="1">' +
    N'<tr><th>Work Order ID</th><th>Product ID</th>' +
    N'<th>Name</th><th>Order Qty</th><th>Due Date</th>' +
    N'<th>Expected Revenue</th></tr>' +
    CAST ( ( SELECT td = wo.WorkOrderID,       '',
                    td = p.ProductID, '',
                    td = p.Name, '',
                    td = wo.OrderQty, '',
                    td = wo.DueDate, '',
                    td = (p.ListPrice - p.StandardCost) * wo.OrderQty
              FROM AdventureWorks.Production.WorkOrder as wo
              JOIN AdventureWorks.Production.Product AS p
              ON wo.ProductID = p.ProductID
              WHERE DueDate > '2004-04-30'
                AND DATEDIFF(dd, '2004-04-30', DueDate) < 2 
              ORDER BY DueDate ASC,
                       (p.ListPrice - p.StandardCost) * wo.OrderQty DESC
              FOR XML PATH('tr'), TYPE 
    ) AS NVARCHAR(MAX) ) +
    N'</table>' ;
EXEC msdb.dbo.sp_send_dbmail @profile_name='Profil Article ASP-PHP',
    @recipients='danw@Adventure-Works.com',
    @subject = 'Work Order List',
    @body = @tableHTML,
    @body_format = 'HTML' ;

-- Lire article sur la config SQL Mail : http://www.asp-php.net/tutorial/sql-server/sqlservermail.php
EXEC master.dbo.xp_sendmail 'moi@moi.com',
       @subject = 'Test envoie mail via SP',
       @query = 'SELECT * FROM master.dbo.sysperfinfo'

// Envoie mail par SMTP
Si EmailOuvreSessionSMTP(User, PassWord, AdresseServeurSMTP) alors
    NonUser = USER
sinon
    NomUser = ""
    Erreur("Impossible d'établir la connexion"+RC+ErreurINfo(ErrMessage))
fin
// Initialisation de la structure e-mail
Email.Destinataire = "login@domaine.fr"
Email.Expditeur = "toto@moi.fr"
Email.Message = "Test envoie message"
Email.nbDestinataire = 1
// Envoie le mail
SI EmailEnvoieMessage(NomUser) = Faux ALORS
    Erreur("L'envoie du message a échoué :" + ErreurInfo(errMessage))
SINON
    Info("L'envoie du message a russi")
FIN

/**
  * Envoyer un mail.
  * J'ai trouvé ce bout de code sur le Net. 
  */
import java.io.*;
import javax.mail.*;
import javax.mail.internet.*;
import javax.activation.*;
    
public class SendApp {
    public static void send(String smtpHost, int smtpPort,
                            String from, String to,
                            String subject, String content)
                throws AddressException, MessagingException {
        // Créer un object de type Session
        java.util.Properties props = new java.util.Properties();
        props.put("mail.smtp.host", smtpHost);
        props.put("mail.smtp.port", ""+smtpPort);
        Session session = Session.getDefaultInstance(props, null);
    
        // Construire le message
        Message msg = new MimeMessage(session);
        msg.setFrom(new InternetAddress(from));
        msg.setRecipient(Message.RecipientType.TO, new InternetAddress(to));
        msg.setSubject(subject);
        msg.setText(content);
    
        //Envoyer le message
        Transport.send(msg);
    }
    
    // Tester le programme
    public static void main(String[] args) throws Exception {
        // Envoyer un message
        send("hostname", 25, "joe@smith.com", "sue@smith.com",
             "re: dinner", "How about at 7?");
    }
}

Dim sc As New Net.Mail.SmtpClient("smtp", "25(facultatif)")
sc.Send("from", "adresse1;adresse2", "sujet", "corps du message")

var msg = new ActiveXObject("CDO.Message");
msg.From = "Moi <moi@hotmail.com>";
msg.To = "Dave <lui@hotmail.com>";
msg.Subject = "Essai avec CDO.Message";
msg.TextBody = "J'essaie mon nouveau script.\n";
msg.Send();

import smtplib


def SendMail(To,From,body):


    smtp=smtplib.SMTP('smtp.VotreProvider.fr')
    
    ret=smtp.sendmail(From,To,body)    
    smtp.quit()
    
    if ret:
        print("Erreur pendant l'envoi du mail")
    else:
        print("Mail envoyé")