probleme envoyer mail ???

Question

bonjour,

voici mon code





        Dim email As New MailMessage



        email.To = TextBox2.Text

        email.From = TextBox1.Text

        email.Body = TextBox4.Text

        email.Subject = TextBox3.Text

        email.Priority = MailPriority.High



       
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate",
"1") 'basic authentication

       
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername",
"fdiedler2000")

       
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword",
"azerty")

       
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout",
60)

        Try

            SmtpMail.SmtpServer = "smtp.free.fr"

            SmtpMail.Send(email)

            MsgBox("Message envoy&#233;", MsgBoxStyle.OKOnly, "Information")

            MyBase.Hide()

        Catch ex As Exception

            MsgBox(ex.ToString)



        End Try

    End Sub



mais voila ca marche sur mon ordinateur mais pas sur ceux des autres 

PK????

Merci bcp

tryborg · Answer

J'esp&#232;re que c pas ton vrais pass 


tryborg

Probleme envoyer mail ???

1 réponse

Discussions similaires