Imports EmailSenderDLL

Module MonProgramme
    Private ReadOnly API_KEY As String
    Private ReadOnly FROM_EMAIL As String
    Private ReadOnly FROM_NAME As String
    
    ' Charger la configuration au démarrage
    Sub New()
        EnvConfig.LoadEnvFile()
        API_KEY = EnvConfig.GetRequired("RESEND_API_KEY")
        FROM_EMAIL = EnvConfig.GetRequired("RESEND_FROM_EMAIL")
        FROM_NAME = EnvConfig.GetRequired("RESEND_FROM_NAME")
    End Sub
    
    Sub Main()
        ' 1. Initialiser le sender
        Dim sender As New EmailSender(API_KEY, FROM_EMAIL, FROM_NAME)
        
        ' 2. Envoyer un email
        Dim success = Await sender.EnvoyerEmailAsync(
            destinataire:="destinataire@example.com",
            sujet:="Test Email",
            message:="<p>Bonjour, ceci est un test !</p>",
            typeEmail:=TypeEmail.Info
        )
        
        If success Then
            Console.WriteLine("✅ Email envoyé avec succès!")
        Else
            Console.WriteLine("❌ Échec de l'envoi")
        End If
    End Sub
End Module

' 3. Vérifier le résultat
If success Then
    Console.WriteLine("✅ Email envoyé avec succès !")
Else
    Console.WriteLine("❌ Erreur lors de l'envoi")
End If

' Créer des listes pour CC et BCC
Dim listeCC As New List(Of String) From {
    "copie1@example.com",
    "copie2@example.com"
}

Dim listeBCC As New List(Of String) From {
    "copie.cachee@example.com"
}

' Liste des pièces jointes (affichage uniquement)
Dim pieceJointes As New List(Of String) From {
    "Rapport_Q4_2025.pdf",
    "Graphiques.xlsx"
}

' Signature personnalisée
Dim signature As String = "Cordialement," & vbCrLf & 
                          "L'équipe Tech Dev DAAM" & vbCrLf &
                          "Tel: +216 XX XXX XXX"

' Envoyer un email d'erreur avec toutes les options
Dim success = Await sender.EnvoyerEmailAsync(
    destinataire:="destinataire@example.com",
    sujet:="⚠️ Erreur Critique Détectée",
    message:="<p>Une erreur a été détectée dans le système.</p><p><strong>Détails :</strong> Échec de la connexion à la base de données.</p>",
    typeEmail:=TypeEmail.Erreur,
    signature:=signature,
    pieceJointes:=pieceJointes,
    cc:=listeCC,
    cci:=listeBCC
)

Dim signature As String = "Cordialement," & vbCrLf & 
                          "L'équipe Support" & vbCrLf &
                          "support@example.com"

Dim success = Await sender.EnvoyerEmailAsync(
    "client@example.com",
    "Confirmation d'inscription",
    "<p>Bienvenue ! Votre compte a été créé avec succès.</p>",
    TypeEmail.Info,
    signature:=signature
)

Dim success = Await sender.EnvoyerEmailAsync(
    "admin@example.com",
    "⚠️ Erreur Système",
    "<p><strong>Erreur détectée :</strong></p>" &
    "<p>La connexion à la base de données a échoué.</p>",
    TypeEmail.Erreur
)

Dim success = Await sender.EnvoyerEmailAsync(
    "direction@example.com",
    "🚨 URGENT : Action Requise",
    "<p>Intervention immédiate nécessaire.</p>",
    TypeEmail.Urgence
)

Dim pieces As New List(Of String) From {
    "Rapport_2025.pdf",
    "Graphiques.xlsx"
}

Dim success = Await sender.EnvoyerEmailAsync(
    "client@example.com",
    "Rapport Annuel",
    "<p>Veuillez trouver ci-joint le rapport.</p>",
    TypeEmail.Info,
    pieceJointes:=pieces
)

Dim cc As New List(Of String) From {"manager@example.com"}
Dim bcc As New List(Of String) From {"archive@example.com"}

Dim success = Await sender.EnvoyerEmailAsync(
    "employe@example.com",
    "Validation Congés",
    "<p>Votre demande a été approuvée.</p>",
    TypeEmail.Info,
    cc:=cc,
    cci:=bcc
)

Dim cc As New List(Of String) From {"copie@example.com"}
Dim bcc As New List(Of String) From {"archive@example.com"}
Dim pieces As New List(Of String) From {"Document.pdf"}
Dim signature As String = "Cordialement," & vbCrLf & "Support"

Dim success = Await sender.EnvoyerEmailAsync(
    destinataire:="client@example.com",
    sujet:="Dossier Complet",
    message:="<p>Voici votre dossier.</p>",
    typeEmail:=TypeEmail.Urgence,
    signature:=signature,
    pieceJointes:=pieces,
    cc:=cc,
    cci:=bcc
)

Dim destinataires As New List(Of String) From {
    "user1@example.com",
    "user2@example.com",
    "user3@example.com"
}

For Each destinataire In destinataires
    Dim success = Await sender.EnvoyerEmailAsync(
        destinataire,
        "Newsletter",
        "<p>Votre newsletter mensuelle.</p>",
        TypeEmail.Info
    )
    
    If success Then
        Console.WriteLine($"✅ Envoyé à {destinataire}")
    End If
    
    Await Task.Delay(100) ' Pause de 100ms entre chaque envoi
Next

Try
    Dim success = Await sender.EnvoyerEmailAsync(
        "destinataire@example.com",
        "Test",
        "<p>Message</p>"
    )
    
    If success Then
        Console.WriteLine("✅ Email envoyé")
    Else
        Console.WriteLine("❌ Échec de l'envoi")
    End If
    
Catch ex As Exception
    Console.WriteLine($"Exception : {ex.Message}")
End Try

Dim message = "<h2>Titre</h2><p>Texte avec <strong>gras</strong></p>"

Public Sub New(apiKey As String, fromEmail As String, fromName As String)

Dim sender As New EmailSender(
    "SG.xxxxxxxxxxxxx",
    "contact@example.com",
    "Mon Entreprise"
)

Public Async Function EnvoyerEmailAsync(
    destinataire As String,
    sujet As String,
    message As String,
    Optional typeEmail As TypeEmail = TypeEmail.Info,
    Optional signature As String = Nothing,
    Optional pieceJointes As List(Of String) = Nothing,
    Optional cc As List(Of String) = Nothing,
    Optional cci As List(Of String) = Nothing
) As Task(Of Boolean)

Public Enum TypeEmail
    Info = 0      ' Email informatif (Bleu)
    Erreur = 1    ' Email d'erreur (Rouge)
    Urgence = 2   ' Email urgent (Orange)
End Enum