Merge branch 'master' of https://github.com/krazdax5/HobbyCartes

contenu/HobbyCartes/HobbyCartes/Administration.aspx.vb

@@ -135,7 +135,7 @@ Public Class Administration
         Dim Admin As Entites.Membre = New Entites.Membre(Integer.Parse(Session("idMembre")), m_connection)
         For Each checkbox In m_checkBoxes
             If checkbox.Checked Then
-                Admin.envoyerMessage(New Entites.Membre(Integer.Parse(checkbox.ID.Remove(0, 2)), m_connection), "Communiqué", txtMessage.Text)
+                Admin.envoyerMessageInterne(New Entites.Membre(Integer.Parse(checkbox.ID.Remove(0, 2)), m_connection), "Communiqué", txtMessage.Text)
                 checkbox.Checked = False
                 i += 1
             End If

contenu/HobbyCartes/HobbyCartes/Entites/Membre.vb

@@ -258,12 +258,12 @@ Namespace Entites
         End Property
 
         ''' <summary>
-        ''' Envoie un message a un autre membre.
+        ''' Envoie un message a un autre membre sur sa messagerie interne.
         ''' </summary>
         ''' <param name="destinataire">Le destinataire du message</param>
         ''' <param name="objet">L'objet du message</param>
         ''' <param name="contenu">Le contenu du message</param>
-        Sub envoyerMessage(destinataire As Membre, objet As String, contenu As String)
+        Sub envoyerMessageInterne(destinataire As Membre, objet As String, contenu As String)
             Dim dbCon As New MySqlConnection(My.Resources.StringConnexionBdd)
             dbCon.Open()
             Dim dbCom As MySqlCommand = New MySqlCommand("INSERT INTO message (iddestinataire, iddestinateur, objetmes, mesmes) " &
@@ -273,6 +273,30 @@ Namespace Entites
             dbCon.Close()
         End Sub
 
+        ''' <summary>
+        ''' Envoie un message a un autre membre sur sa messagerie externe.
+        ''' </summary>
+        ''' <param name="destinataire">Le destinataire du message</param>
+        ''' <param name="objet">L'objet du message</param>
+        ''' <param name="contenu">Le contenu du message</param>
+        Sub envoyerMessageExterne(destinataire As Membre, objet As String, contenu As String)
+            ' hobbycartes@gmail.com / hobbycartes123
+            Dim message As New System.Net.Mail.MailMessage
+            Dim smtpClient As New System.Net.Mail.SmtpClient
+            Dim fromAddress = New System.Net.Mail.MailAddress("hobbycartes@gmail.com")
+            message.From = fromAddress
+            message.To.Add(destinataire.Courriel)
+            message.Subject = objet
+            message.IsBodyHtml = True
+            message.Body = contenu
+            smtpClient.Host = "smtp.gmail.com"
+            smtpClient.Port = 587
+            smtpClient.EnableSsl = True
+            smtpClient.UseDefaultCredentials = True
+            smtpClient.Credentials = New System.Net.NetworkCredential("hobbycartes", "hobbycartes123")
+            smtpClient.Send(message)
+        End Sub
+
         ''' <summary>
         ''' Crée un nouveau membre dans la base de données.
         ''' </summary>

contenu/HobbyCartes/HobbyCartes/MembreEnvoiMessage.aspx

@@ -21,9 +21,14 @@
                 <tr>
                     <td class="maxCol" colspan="2"><asp:TextBox ID="txtContenu" TextMode="MultiLine" Rows="20" runat="server" Width="100%" /></td>
                 </tr>
+                <tr>
+                    <td class="maxCol" colspan="2"><asp:CheckBox runat="server" ID="chkMessagerieExterne" /> 
+                    Envoi sur messagerie externe
+                    </td>
+                </tr>
                 <tr>
                     <td class="maxCol" colspan="2"><asp:Button runat="server" id="btnEnvoyer" text="Envoyer" />
-                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtObjet" ForeColor="Red" Font-Bold="true" ErrorMessage="Vous devez spécifier un objet !" />
+                    <asp:RequiredFieldValidator runat="server" ControlToValidate="txtObjet" ForeColor="Red" Font-Bold="true" ErrorMessage="Vous devez spécifier un objet !" />
                     </td>
                 </tr>
             </tbody>

contenu/HobbyCartes/HobbyCartes/MembreEnvoiMessage.aspx.vb

@@ -73,7 +73,11 @@ Public Class MembreEnvoiMessage
         Dim contenu As String = txtContenu.Text
         Try
             ' Envoi du message au destinataire
-            m_destinateur.envoyerMessage(m_destinataire, objet, contenu)
+            If chkMessagerieExterne.Checked Then
+                m_destinateur.envoyerMessageExterne(m_destinataire, objet, contenu)
+            Else
+                m_destinateur.envoyerMessageInterne(m_destinataire, objet, contenu)
+            End If
         Catch ex As Exception
             ' Affiche la page d'erreur en cas d'exception
             Erreur.afficherException(ex, Me, Page)