Discussion :

[Florian54]

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.

[The_Big_Lebowski]

Si l'unique demande de ton post est de mettre adrMail entre guillemets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mail = New MailMessage("KELIO", chr(34).toString & Adrmail & chr(34).toString , "Planning de la semaine", Message)

[Florian54]

Bonjour,

Merci pour ta réponse.
Cependant, ton code n'a rien changé à mon problème, j'ai toujours l'erreur :

La chaîne spécifiée n'est pas de la forme requise pour une adresse de messagerie.

Avec comme code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mail = New MailMessage("KELIO", Chr(34).ToString & Adrmail & Chr(34).ToString, "Planning de la semaine", Chr(34).ToString & Message & Chr(34).ToString)

Si tu as une autre suggestion, je suis preneur.

[MABROUKI]

bonjour
c'est une veille question en vb ,quand quelqu'un veut afficher le message suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
'He said, "Look at this example!"
'il doit coder en doublant les guillements
myString = "He said, ""Look at this example!"""
'pour -adrmail -il faudrait modifier comme suit:
       Dim Adrmail As String = "www@yahoo.fr"
        Dim sb As StringBuilder = New StringBuilder
        sb.Append(Adrmail)
        sb.Append("""", 1)
        sb.Insert(0, """")
 
        MessageBox.Show(sb.ToString)

bon code....................