📧 Envoi de Mail SMTP

💻 Exemples de code

Exemple PHP avec PHPMailer

<?php
require 'vendor/autoload.php';

use PHPMailer\PHPMailer\PHPMailer;
use PHPMailer\PHPMailer\Exception;

$mail = new PHPMailer(true);

try {
    // Configuration du serveur SMTP
    $mail->isSMTP();
    $mail->Host       = 'smtp.appros-energies.fr';
    $mail->SMTPAuth   = true;
    $mail->Username   = 'appros-energies';
    $mail->Password   = 'WWGteQe1E2s4NKSv';
    $mail->SMTPSecure = PHPMailer::ENCRYPTION_SMTPS;
    $mail->Port       = 465;
    $mail->CharSet    = 'UTF-8';

    // Configuration de l'expéditeur
    $mail->setFrom('prenom.nom@appros-energies.fr', 'Prénom Nom');
    
    // Destinataires
    $mail->addAddress('destinataire@exemple.fr', 'Nom du destinataire');
    $mail->addCC('copie@exemple.fr');
    $mail->addBCC('copie-cachee@exemple.fr');

    // Pièce jointe (optionnel)
    // $mail->addAttachment('/chemin/vers/fichier.pdf');

    // Contenu du mail
    $mail->isHTML(true);
    $mail->Subject = 'Sujet de votre email';
    $mail->Body    = '<h1>Bonjour,</h1><p>Votre message en HTML</p>';
    $mail->AltBody = 'Votre message en texte brut';

    $mail->send();
    echo 'Email envoyé avec succès !';
} catch (Exception $e) {
    echo "Erreur d'envoi: {$mail->ErrorInfo}";
}
?>

Installation de PHPMailer

composer require phpmailer/phpmailer

Exemple Python avec smtplib

import smtplib
from email.mime.text import MIMEText
from email.mime.multipart import MIMEMultipart
from email.mime.base import MIMEBase
from email import encoders
import os

# Configuration SMTP
smtp_host = 'smtp.appros-energies.fr'
smtp_port = 465
smtp_username = 'appros-energies'
smtp_password = 'WWGteQe1E2s4NKSv'

# Création du message
msg = MIMEMultipart()
msg['From'] = 'prenom.nom@appros-energies.fr'
msg['To'] = 'destinataire@exemple.fr'
msg['Cc'] = 'copie@exemple.fr'
msg['Subject'] = 'Sujet de votre email'

# Corps du message
corps = """
Bonjour,

Ceci est un exemple d'email envoyé via Python.

Cordialement,
"""
msg.attach(MIMEText(corps, 'plain', 'utf-8'))

# Ajout d'une pièce jointe (optionnel)
# fichier = 'chemin/vers/fichier.pdf'
# with open(fichier, 'rb') as f:
#     part = MIMEBase('application', 'octet-stream')
#     part.set_payload(f.read())
#     encoders.encode_base64(part)
#     part.add_header('Content-Disposition', 
#                     f'attachment; filename={os.path.basename(fichier)}')
#     msg.attach(part)

# Envoi du mail
try:
    with smtplib.SMTP_SSL(smtp_host, smtp_port) as server:
        server.login(smtp_username, smtp_password)
        
        # Destinataires (To + Cc)
        destinataires = ['destinataire@exemple.fr', 'copie@exemple.fr']
        server.send_message(msg, to_addrs=destinataires)
        
        print('Email envoyé avec succès !')
except Exception as e:
    print(f'Erreur lors de l\'envoi : {str(e)}')

Exemple VBA (Excel/Outlook) - VERSION CORRIGÉE

Sub EnvoyerEmailSMTP()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim objAccount As Object
    Dim compteOk As Boolean
    
    ' Création de l'objet Outlook
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    ' ⚠️ IMPORTANT : Recherche du compte SMTP par adresse email
    ' .Item() ne prend PAS une adresse email comme paramètre, mais un INDEX numérique !
    ' Il faut donc boucler sur les comptes pour trouver le bon
    compteOk = False
    For Each objAccount In OutApp.Session.Accounts
        If LCase(objAccount.SmtpAddress) = "appros-energies@appros-energies.fr" Then
            Set OutMail.SendUsingAccount = objAccount
            compteOk = True
            Exit For
        End If
    Next objAccount
    
    ' Vérification que le compte existe
    If Not compteOk Then
        MsgBox "ERREUR : Le compte appros-energies@appros-energies.fr n'est pas configuré dans Outlook !" & vbCrLf & vbCrLf & _
               "Comptes disponibles :" & vbCrLf & ListeComptesOutlook(OutApp), vbCritical, "Compte introuvable"
        Set OutMail = Nothing
        Set OutApp = Nothing
        Exit Sub
    End If
    
    On Error Resume Next
    
    With OutMail
        ' Informations de l'email
        .To = "destinataire@exemple.fr"
        .CC = "copie@exemple.fr"
        .BCC = ""
        .Subject = "Sujet de votre email"
        
        ' Corps du message (texte ou HTML)
        .Body = "Bonjour," & vbCrLf & vbCrLf & _
                "Ceci est un exemple d'email envoyé via VBA." & vbCrLf & vbCrLf & _
                "Cordialement,"
        
        ' Pour un message HTML
        '.HTMLBody = "Bonjour
Votre message en HTML"
        
        ' Ajout d'une pièce jointe (optionnel)
        '.Attachments.Add "C:\chemin\vers\fichier.pdf"
        
        ' Pour forcer une adresse de retour différente (Reply-To)
        '.ReplyRecipients.Add "adresse.retour@exemple.com"
        
        ' Envoi de l'email
        .Send
        
        ' Alternative: afficher avant d'envoyer
        '.Display  ' Affiche l'email sans l'envoyer
    End With
    
    If Err.Number <> 0 Then
        MsgBox "Erreur lors de l'envoi : " & Err.Description, vbCritical
    Else
        MsgBox "Email envoyé avec succès depuis appros-energies@appros-energies.fr !", vbInformation
    End If
    
    On Error GoTo 0
    
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

' Fonction auxiliaire pour lister les comptes disponibles
Function ListeComptesOutlook(OutApp As Object) As String
    Dim objAccount As Object
    Dim liste As String
    Dim i As Integer
    
    liste = ""
    i = 1
    For Each objAccount In OutApp.Session.Accounts
        liste = liste & i & ". " & objAccount.DisplayName & " (" & objAccount.SmtpAddress & ")" & vbCrLf
        i = i + 1
    Next objAccount
    
    ListeComptesOutlook = liste
End Function

Configuration SMTP dans Outlook

1. Ouvrir Outlook
2. Fichier > Informations > Paramètres du compte
3. Nouvel email... > Configurer manuellement
4. Sélectionner "POP ou IMAP"
5. Entrer les informations :
   - Nom : Votre Nom
   - Adresse email : prenom.nom@appros-energies.fr
   - Type de compte : IMAP
   - Serveur entrant : smtp.appros-energies.fr
   - Serveur sortant (SMTP) : smtp.appros-energies.fr
   - Nom d'utilisateur : appros-energies
   - Mot de passe : WWGteQe1E2s4NKSv
6. Paramètres supplémentaires :
   - Onglet "Serveur sortant" : Cocher "Mon serveur sortant (SMTP) requiert une authentification"
   - Onglet "Options avancées" : Port SMTP = 465, Utiliser SSL

📧 Envoi de Mail SMTP

Formulaire d'envoi

ℹ️ Informations de configuration SMTP

💻 Exemples de code