2017-05-25 3 views
1

J'utilise visual studio 2017Formulaire web visuel de base. Quand je frappe soumettre rien ne se passe. Aucun email n'est envoyé. Comment puis-je dire ce qui s'est mal passé?

  • revérifié les informations d'identification
  • essayé d'utiliser print.debug de here
  • essayé d'imprimer un autre fichier comme this a dit de faire Je ne sais pas comment le comprendre pourquoi le code ne fonctionne pas.

    <%@ Page Language="VB" aspcompat=true Debug="true" %> 
    <!DOCTYPE html> 
    
    <html xmlns="http://www.w3.org/1999/xhtml"> 
    <head runat="server"> 
        <title></title> 
    </head> 
    <body> 
        <form id="form1" runat="server"> 
         <div><p>From:&nbsp;<asp:TextBox ID="txtFromAdress" runat="server" Columns="35"></asp:TextBox></p> 
          <p>Subject:&nbsp;<asp:TextBox ID="txtSubject" runat="server" Columns="50"></asp:TextBox></p> 
          <p>Message:&nbsp;<asp:TextBox ID="txtBody" runat="server" Columns="76" TextMode="multiLine" Rows="6"></asp:TextBox></p> 
         <p><asp:Button ID="btnSend" runat="server" Text="Send Mail" /></p> 
         </div> 
        </form> 
    Debug.print txtFromAdress 
    Debug.print txtSubject 
    Debug.print txtBody 
    </body> 
    </html> 
    

Voici le code derrière:

<%@ Page Language="VB" aspcompat=true Debug="true" %> 

Imports System.Net.Mail 

Public Class WebForm1 

    Inherits System.Web.UI.Page 


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

    End Sub 

    Protected Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click 
     Dim mail As New MailMessage() 
     mail.From = New MailAddress(txtFromAdress.Text.Trim) 
     mail.To.Add("[email protected]") 
     mail.Subject = txtSubject.Text.Trim() 
     mail.Body = txtBody.Text.Trim() 
     Debug.print mail 
     Dim SmtpClient As New SmtpClient("smtp.office365.com") 
     SmtpClient.UseDefaultCredentials = False 
     SmtpClient.EnableSsl = True 
     SmtpClient.Port = 587 
     SmtpClient.Credentials = New Net.NetworkCredential("[email protected]", "pword") 
     n = FreeFile() 
Open "root/test.txt" For Output As #n 
Print #n, mail 
     Try 
      SmtpClient.Send(mail) 
     Catch ex As Exception 
      MsgBox(Err.Number & vbNewLine & ex.Message) 
     End Try 
+0

Supprimer aspcompat = true et réessayer –

+0

l'a fait et rien ne s'est encore produit. – badapaqadadap

Répondre

1

Ouvrez une invite de commande et exécutez la commande suivante:

telnet smtp.office365.com 587 

Quelle est la réponse? S'il produit le résultat souhaité, téléchargez un outil tel que Wireshark pour analyser la requête et la réponse.

+0

'telnet' n'est pas reconnu comme une commande interne ou externe, un fichier exécutable ou un fichier séquentiel. – badapaqadadap

+0

Assurez-vous que Telnet est installé en suivant ces instructions: https://kb.ctera.com/article/how-to-open-a-telnet-session-on-windows-7-or-windows-8-os-16 .html. Une fois installé, laissez-moi savoir le résultat. – w0051977

+0

J'ai parlé à mon dept. ils ont dit que ça devrait marcher comme ça et j'ai suggéré que j'essaie de le faire en C# à la place. donc j'abandonne cette tentative. Merci de votre aide. – badapaqadadap