Discussion :

[pascb423]

Bonjour,
j'envoi un mail avec une pièce jointe mais j'aimerai en plus que le contenu de la pièce jointe soit écrite dans le mail avec message1.Body mais je n'arrive pas, merci

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
38
39
40
41
Dim client As New System.Net.Mail.SmtpClient
                Dim message1 As New System.Net.Mail.MailMessage
                client.Credentials = New System.Net.NetworkCredential(lireINI2("mails", "mail de connexion"), lireINI2("mails", "mot de passe"))
                Dim sr As New IO.StreamReader(".\alertes.txt")
                While sr.Peek <> -1
                    ComboBox7.Items.Add(sr.ReadLine)
                End While
 
                Try
 
                    client.Port = lireINI2("mails", "port smtp") 'définition du port 
                    client.Host = lireINI2("mails", "host smtp") 'définition du serveur smtp
                    client.EnableSsl = True
                    message1.From = New System.Net.Mail.MailAddress(lireINI2("mails", "adresse emettrice"))
                    If lireINI2("mails", "adresse mail 1") <> "" Then
                        message1.To.Add(lireINI2("mails", "adresse mail 1"))
                    End If
                    If lireINI2("mails", "adresse mail 2") <> "" Then
                        message1.To.Add(lireINI2("mails", "adresse mail 2"))
                    End If
                    If lireINI2("mails", "adresse mail 3") <> "" Then
                        message1.To.Add(lireINI2("mails", "adresse mail 3"))
                    End If
                    If lireINI2("mails", "adresse mail 4") <> "" Then
                        message1.To.Add(lireINI2("mails", "adresse mail 4"))
                    End If
                    If lireINI2("mails", "adresse mail 5") <> "" Then
                        message1.To.Add(lireINI2("mails", "adresse mail 5"))
                    End If
 
                    Dim item As New System.Net.Mail.Attachment(".\alertes.txt")
                    message1.Attachments.Add(item) 'ajout de la pièce jointe au message
 
                    message1.Subject = "ALERTE EMPRUNT OUTILLAGE"
 
                    message1.Body = ComboBox7.Text '"Bonjour, vous avez des alertes emprunt outillage, le fichier joint contient ces alertes"
 
                    client.Send(message1) 'envoi du mail
                Catch ex As Exception
                    MsgBox("erreur") 'TODO traiter les erreurs
                End Try

[thovan]

Bonjour,

Tu veux ajouter le contenu du fichier .txt ?

Dans ce cas tu peux le lire avec un streamreader et le stocker dans une variable.
Ensuite tu ajoutes cette variable dans le body du mail....