Discussion :

[abelman]

Code :

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

1
2
        sr = New System.IO.StreamReader("c:\tempo" + var + ".html", m)
        line = sr.ReadLine()

Que vaut line à ce stade ?

[abelman]

Et là m n'est pas modifié... Explications plz? (bien sur ça fonction avec le keyword "ref")

C'est déjà pas censé compiler. Une fonction qui reçoit un paramètre 'ref' doit être appelée en indiquant 'ref' aussi. Y a un truc bizarre dans ton code là

Je pense qu'il s'est trompé dans le copier coller

[Abalalojik]

Voilà la fonction finale, la récupération du contenu du fichier fonctionne, mais j'ai une erreur dans le try, apparement un composant externe lève une exeption.

Merci encore à tous.

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
42
Private Sub fin_env_dem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fin_env_dem.Click
        Dim message As New Mail.MailMessage
        Dim utilisateur, m, password, serveur, var, line, mess As String
        Dim tabvar() As String
        Dim sr As System.IO.StreamReader = Nothing
 
 
        message.From = Request.ServerVariables("LOGON_USER")
        message.To = "abalalojik@hotmail.com"
        message.Subject = "creation article"
        tabvar = Split(Request.ServerVariables("logon_user"), "\")
        If tabvar.Length > 0 Then
            var = tabvar(1)
        Else
            var = tabvar(0)
        End If
        sr = New System.IO.StreamReader("c:\tempo" + var + ".html")
        line = sr.ReadLine()
        m = "<br><br>" & _
          "<b>Article à créer</b><br><br>" & _
          "Nom du client : " & Nomclient.Text & "<Br><Br>" & _
          "Subshape : " & qtecmd.Text & "<Br><Br>" & _
          "Demande du : " + DateTime.Now.ToString()
        mess = line + m
        message.BodyFormat = Mail.MailFormat.Html
        message.Priority = Mail.MailPriority.High
        message.Body = mess
        utilisateur = ConfigurationSettings.AppSettings("SmtpUtilisateur")
        password = ConfigurationSettings.AppSettings("SmtpPassword")
        serveur = ConfigurationSettings.AppSettings("SmtpServeur")
 
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", utilisateur)
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", password)
        SmtpMail.SmtpServer = serveur
 
        Try
            SmtpMail.Send(message)
        Catch ex As Exception
            var = ex.Message
        End Try
    End Sub

[abelman]

Et avec

Code :

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

message.From = "adressemailexepediteur@toto.com"

?

[Abalalojik]

Et en fait...
Si je met le server exchange que j'ai chez moi ( mangapartout.(...).com) je n'ai pas d'exeption et le mail s'envoie.

Dès que je mets les codes qu'on m'a donné pour que mon appli envoie des mails... hop ça ne fonctionne plus.

Donc ...

[Maniak]

Va voir dans l'observateur d'événements. Y aura peut-être plus d'infos sur le problème de 'composant externe' :)

[abelman]

Soit le serveur qu'on te donne n'est pas valide
Soit l'expediteur n'est pas reconnu par ce serveur.

Essaye d'envoyer un mail avec ces informations par un autre client SMTP si possible pour voir

[Abalalojik]

Et en fait...
Si je met le server exchange que j'ai chez moi ( mangapartout.(...).com) je n'ai pas d'exeption et le mail s'envoie.

C'est bien un autre SMTP que celui de ma boîte puisque c'est celui qui est chez moi. ( non je n'ai pas appelé ma boite "chez moi" lol ).

Ou alors tu veux que j'envoies avec encore un autre SMTP ?

[abelman]

Ce que je voulais dire c'est que tu essayes d'envoyer avec Outlook (par exemple) un mail en utilisant les informations SMTP qui ne fonctionnent pas avec ton programme

[edit] Tiens post est résolu ?[/edit]

[Abalalojik]

Bah, je suis disciplinée :

Les règles stipulent une question par message et la réponse à la première question que j'ai posée est donnée et résolue.

Ce qui ne fonctionne pas là est ( je pense ) dû aux infos que j'ai. On m'a stipulé 3 noms de servers et des identifiants mais aucun ne fonctionne. Quand a Outlook, je ne peux pas rajouter quoi que ce soit dedans, donc je doutes que je puisses voir ce que tu me demandes, sauf de chez moi, mais chez moi, ça marche.

Donc résolu oui pour la question qui porte sur les fichier, et non pour le reste.