Bonjour,

J'ai crée une fonction mail qui a pour but d'envoyer un mail à toutes les personnes figurant dans un fichier texte.

Cependant, j'ai une erreur, car lors de l'execution ma variable est remplacé par l'adresse e-mail, mais celle-ci devrait être en quote pour indiquer qu'il s'agit d'une chaine de caractere.

Or je ne peux pas mettre ma variable entre quote.

Voici la fonction :

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
If My.Computer.FileSystem.DirectoryExists(gStrCheminRepRessource) Then
            If My.Computer.FileSystem.FileExists(gStrCheminFichMail) Then
                Using myListener As StreamReader = File.OpenText(gStrCheminFichMail)
                    Adrmail = myListener.ReadLine
                    While Not Adrmail Is Nothing
                        If Adrmail <> " " Then
                            mail = New MailMessage("KELIO", Adrmail, "Planning de la semaine", Message)
                            smtp = New SmtpClient("mailer.bus.corpintra.net")
                            smtp.Port = 25
                            smtp.Send(mail)
                            Adrmail = myListener.ReadLine
                        End If
                    End While
                End Using
            End If
        End If
Pour récapituler, disons que Adrmail = xxx@xxx.com.
Il faudrait donc obtenir :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
mail = New MailMessage("KELIO", "xxx@xxx.com", "Planning de la semaine", Message)
Merci pour votre aide.