Envoyer un mail des que je lance le logiciel

Version imprimable

12/01/2018, 13h02
Alfing

Envoyer un mail des que je lance le logiciel

Bonjour,
Je vous explique j'aimerez pouvoir des que je lance le logiciel que sa envoye un fichier sur ma boite mail.
Exemple:
J'ouvre le logiciel sa choisis dans le code se chemin d'accès
(C:\Mes documents\fichier.txt)
Et que sa l'envoye directement sur mon adresse hotmail.
Mais qu'il n'y est aucun bouton.
Des que je lance le logiciel sa l'envoye et par exemple si le 'fichier.txt' n'éxiste pas alors sa quitte le logiciel.

Bref je c'est pas si vous avez compris se que je voulais vous faire comprendre, merci de bien vouloir m'aider si possible.
Bonne journée et n’hésiter pas a me poser des questions.
12/01/2018, 13h30
Pol63

system.net.mail.*

Bonsoir,

Citation:

J'ouvre le logiciel sa choisis dans le code se chemin d'accès
(C:\Mes documents\fichier.txt)
Et que sa l'envoye directement sur mon adresse hotmail.
Mais qu'il n'y est aucun bouton.
Des que je lance le logiciel sa l'envoye et par exemple si le 'fichier.txt' n'éxiste pas alors sa quitte le logiciel.

Voici un exemple pour envoyer un email avec pièces jointes sans bouton :

Code:

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

12/01/2018, 18h02
Alfing

Erreur

Merci de ta réponse Miska59 mais je tombe sur un message d'erreur qui est impossible pour a comprendre

http://prntscr.com/hzjuug

A tu une idée d'ou cela proviendrais ?

Bonsoir,
le problème vient de du Serveur SMTP et PORT :
nouveau serveur stmp e port :
Code:

1 2 3 4 5 Voici leurs adresses : Serveur POP3 : pop-mail.outlook.com (SSL, port 995) Serveur SMTP : smtp-mail.outlook.com (TSL, port 587)
exemple :
Code:

1 2 client.Port = 587 'définition du port client.Host = "smtp-mail.outlook.com" 'définition du serveur smtp
Je l'ai tester ,il fonctionne très bien.

12/01/2018, 22h48
Alfing

Merci

Merci beaucoup et bonne soirée