Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3241 connectés 

  FORUM HardWare.fr
  Programmation
  ASP

  erreur envoi smtp

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

erreur envoi smtp

n°1634263
battit64
Posté le 31-10-2007 à 00:38:56  profilanswer
 

j'ai une erreur smtp lorsque j'envoie mon body avec une page html.
attention si je met pas la valeur var ça marche
alors que quand je debugue et que je regarde la variable au format html ça à l'ai correct si quelqu'u à une idée
 
Imports System.Net.Sockets
Imports System.IO
Imports System.web.Mail
Partial Class mail2
    Inherits System.Web.UI.Page
 
    Public Function RecupHTTP(ByVal URL As String) As String
        ' Déclaration des variables
        Dim LeDomaine As Integer
        Dim LeURL As String = ""
        Dim LeHost As String = ""
        Dim LeChemin As String = ""
        Dim Resultat As String = ""
        Dim RecupHTTPChaine As String = ""
        Dim WebClient As New TcpClient()
        Dim WebStream As NetworkStream
        Dim WebWriter As StreamWriter
        Dim WebReader As StreamReader
        ' On découpe l'url envoyée en paramètre à la fonction
        LeDomaine = InStr(UCase(URL), "HTTP://" )
        If LeDomaine > 0 Then
            LeURL = Mid(URL, LeDomaine + 7)
        Else
            LeURL = URL
        End If
        LeDomaine = InStr(LeURL, "/" )
        If LeDomaine > 0 Then
            LeHost = Mid(LeURL, 1, LeDomaine - 1)
            LeChemin = Mid(LeURL, LeDomaine)
        Else
            LeHost = LeURL
            LeChemin = "/"
        End If
        ' On construit notre requete HTTP
        RecupHTTPChaine = "GET " & LeChemin & " HTTP/1.1" & vbCrLf & "Host: " & LeHost & vbCrLf & "Connection: Close" & vbCrLf & vbCrLf
        ' On ouvre une socket sur le port 90
        WebClient.Connect(LeHost, 90)
        WebStream = WebClient.GetStream
        WebWriter = New StreamWriter(WebStream)
        WebWriter.Write(RecupHTTPChaine)
        WebWriter.Flush()
        WebReader = New StreamReader(WebStream)
        ' On stock la page html dans notre variable "Resultat"
        Resultat = WebReader.ReadToEnd()
        ' On ferme la socket
        WebStream.Close()
        WebClient.Close()
        ' On renvoi ce que l'on a récupéré
        RecupHTTP = Resultat
    End Function
 
    Protected Sub btenvoyer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btenvoyer.Click
        Dim var = RecupHTTP("http://192.168.103.228" )
        Dim email As New MailMessage()
        email.From = tbExpediteur.Text
        email.To = tbDestinataire.Text
        email.Subject = tbObjet.Text
        email.BodyFormat = MailFormat.Html
        email.Body = "<html>" & _
"<head>" & _
"<meta http-equiv=""Content-Language"" content=""fr"">" & _
"<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1252"">" & _
"</head>" & _
"<body>" & _
"<p>Mon premier mail au format HTML</p>" & _
var & _
"</body>" & _
"</html>"
 
        SmtpMail.SmtpServer = "mail.sudouest.com"
        Try
            SmtpMail.Send(email)
        Catch ex As Exception
            lblerreur.Text = ex.Message
        End Try
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        tbExpediteur.Text = "monmail"
        tbDestinataire.Text = "monmail"
        tbObjet.Text = "Mail Automatique : Ne pas répondre ! "
    End Sub
End Class

mood
Publicité
Posté le 31-10-2007 à 00:38:56  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  ASP

  erreur envoi smtp

 

Sujets relatifs
[SQL] message d'erreur qui n'a pa lieu d'être[RESOLU]Erreur Excel/VB - Microsoft Forms
Erreur 403 assez exotique ![HTML/PHP] Erreur simple dans code, mais introuvable
Erreur affichage page par page...erreur langage SQL
Erreur php.ini et HTTP 500[SQL,ORACLE]Message d'erreur mutating, trigger....(RESOLU)
erreur : Only variables can be passed by referencepas de valeur erreur avec vlookup
Plus de sujets relatifs à : erreur envoi smtp


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR