Bonjour,
J ai une petite application windows form dans laquelle je voudrais ajouter un formulaire de feedback pour que l utilisateur puisse communiquer avec le concepteur de l application (moi)
J utilise le code suivant pour envoyer un formulaire sur mon adresse email.
Le formulaire contient l adresse de l utilisateur de l application et le message.
Je souhaiterais ne pas mettre le mot de passe de ma boite dans le code pour eviter qu il ne tombe entre de mauvaise main.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37 Imports System.Net.Mail Imports System.Runtime.InteropServices Private Sub btnEnvoyer_Click(sender As Object, e As EventArgs) Handles cmdEnvoyer.Click Dim myBuildInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(Application.ExecutablePath) Dim login As String = "monadresse@mondomaine.com" Dim password As String = "password" Dim smtp As New SmtpClient smtp.Host = "mx1.hostinger.fr" smtp.Port = 2525 smtp.Credentials = New Net.NetworkCredential(login, password) smtp.EnableSsl = False Dim mail As New MailMessage mail.Subject = "Feedback" mail.Body = "Ce message est envoyé par: " & txtCourriel.Text & vbCrLf & vbCrLf & txtComm.Text & _ vbCrLf & vbCrLf & "Version " & myBuildInfo.ProductVersion mail.To.Add(New MailAddress(login)) mail.From = New MailAddress(login) mail.BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-1") mail.SubjectEncoding = System.Text.Encoding.GetEncoding("iso-8859-1") Try smtp.Send(mail) Catch ex As SmtpException MsgBox(ex.Message) Catch ex As Exception MsgBox(ex.Message) End Try Me.Dispose() End Sub
En fait, je m envoie un email a moi meme en utilisant l adresse a l utilisateur que pour pouvoir lui repondre.
J espere avoir été clair...
Merci de votre aide.
Partager