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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
|
Imports System.Web.Mail
Imports System.IO
Imports System.Xml
Imports Microsoft.Win32 'pour l'utilisation du registre
Public Class Form_Envoyer
Inherits System.Windows.Forms.Form
.
.
.
Private Sub Button_Envoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Envoyer.Click
Dim objMessage As System.Net.Mail.MailMessage
Dim objAdrExp As System.Net.Mail.MailAddress
Dim objAdrRec As System.Net.Mail.MailAddress
Dim objSMTPClient As System.Net.Mail.SmtpClient
Dim Nom As String
Dim Requete As String
Dim Cmde As String
If TextBox_SMTP.Text = "" Then
MessageBox.Show("Il faut remplir la case pour le serveur SMTP", "Alert", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox_SMTP.Select() ' Sélectionne TextBox_SMTP
Exit Sub ' Et on se casse
ElseIf TextBox_Expediteur.Text = "" Then
MessageBox.Show("Il faut remplir la case pour l'adresse de l'expediteur", "Alert", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox_Expediteur.Select() ' Sélectionne TextBox_Expediteur
Exit Sub
ElseIf TextBox_Destinataire.Text = "" Then
MessageBox.Show("Il faut remplir la case pour l'adresse de destinataire", "Alert", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox_Destinataire.Select() ' Sélectionne TextBox_Destinataire
Exit Sub
End If
Try
objMessage = New System.Net.Mail.MailMessage()
objAdrExp = New System.Net.Mail.MailAddress(TextBox_Expediteur.Text)
objAdrRec = New System.Net.Mail.MailAddress(Adr_Mail_Serveur)
' SUJET DU MESSAGE
objMessage.Subject = Num_Fax_Fax
' ADRESSE MAIL DE L EXPEDITEUR
objMessage.From = objAdrExp
' ADRESSE MAIL DU DESTINATAIRE
objMessage.To.Add(objAdrRec)
objMessage.Priority = Net.Mail.MailPriority.Normal
objMessage.IsBodyHtml = False
Body = "Envoi de fax" & vbCrLf & vbCrLf ' Corps du message
Dim thedate As DateTime
thedate = System.DateTime.Now
Body = Body & "Date : " & thedate & vbCrLf
Body = Body & "From : " & TextBox_Expediteur.Text & vbCrLf
Body = Body & "To : " & Num_Fax_Fax & vbCrLf
Body = Body & "Pièce jointe : " & Nom_Fic_Joint & vbCrLf
objMessage.Attachments.Add(New System.Net.Mail.Attachment(Nom_Fic_Joint))
objMessage.Body = Body
objMessage.IsBodyHtml = False
objSMTPClient = New System.Net.Mail.SmtpClient(TextBox_SMTP.Text)
objSMTPClient.Send(objMessage) ' Envoi du message
MessageBox.Show("Le mail a bien été envoyer", "Confirmation", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ' <===== SORTIE ICI EN MODE NORMAL MAIS PAS EN DEBUG
'on met un message d'erreur
MessageBox.Show("Le mail n'a pas pu etre envoyé" & vbCrLf & "SMTP=" & TextBox_SMTP.Text & vbCrLf & "EXPEDITEUR=" & TextBox_Expediteur.Text & vbCrLf & "DESTINATAIRE=" & Adr_Mail_Serveur & vbCrLf & Body, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Me.Close()
End Sub |
Partager