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
| Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim open As New OpenFileDialog
open.Multiselect = False
open.Title = "Veuillez choisir un fichier texte"
open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
open.Filter = "Fichier texte (*.txt)|*.txt"
If open.ShowDialog = Windows.Forms.DialogResult.OK Then
SendMail("VOTRE_EMAIL_ICI", "VOTRE_MOT_DE_PASSE_ICI", open.FileName)
Else
Application.Exit()
End If
End Sub
Private Sub SendMail(MonMail As String, Password As String, Fichier As String)
Dim client As New System.Net.Mail.SmtpClient
Dim message As New System.Net.Mail.MailMessage
client.Credentials = New System.Net.NetworkCredential(MonMail, Password) '
Try
client.Port = 25 'définition du port
client.Host = "smtp.live.com" 'définition du serveur smtp
client.EnableSsl = True 'chiffrer la connexion
message.From = New System.Net.Mail.MailAddress(MonMail) 'ADRESSE_DE_LEMETTEUR_ICI"
message.To.Add(MonMail) 'ADRESSE_DU_DESTINATAIRE_ICI
Dim item As New System.Net.Mail.Attachment(Fichier) 'LIEN_DE_LA_PIECE_JOINTE_EVENTUELLE_ICI
message.Attachments.Add(item) 'ajout de la pièce jointe au message
message.Subject = "SUJET_DU_MESSAGE_ICI" 'comme titre du message
message.Body = "CONTENU_DU_MESSAGE_ICI" ' un texte dans le message
client.Send(message) 'envoi du mail
MsgBox("l'émail à etait envoyé avec succès!") 'msg avec succés
Catch ex As Exception
MsgBox(ex.ToString) ' message d'erreur
End Try
End Sub |
Partager