發送電子郵件兩次

由於某種原因，每當我通過我的表單發送電子郵件時，它會向我發送附件中的電子郵件。但附件不工作（文件大小：0）在地毯上的郵件。發送電子郵件兩次

我認爲它在我的aspx.vb代碼中是有效的。

'Add the namespace for the email-related classes 
Imports System.Net.Mail 

Partial Class SendAttachment 
    Inherits System.Web.UI.Page 
    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click 
     'Make sure a file has been uploaded 
     If AttachmentFile.PostedFile.ContentLength > 100000 Then 
      'display error file size should be less than 100kb 
     End If 
     '!!! UPDATE THIS VALUE TO YOUR EMAIL ADDRESS 
     Const ToAddress As String = "[email protected]" 
     Dim textMsg as String 
     textMsg = "התנסת בפועל בעבודת ניהול ביצוע בתשתיות בינעירוניות בקנה מידה גדול" & (vbCrLf) & q1.text & (vbCrLf) & (vbCrLf) & "רמת ההכרות שלך עם גורמים סטאטוריים, ממשלתיים והרשויות" & (vbCrLf) & q2.text & (vbCrLf) & (vbCrLf) & "הניסיון שלך בניהול פרויקט ביצוע בתחום התשתיות הבינעירוניות" & (vbCrLf) &q3.text & (vbCrLf) & (vbCrLf) & "ממליצים" & (vbCrLf) & c1.text & (Space(5)) & c2.text & (Space(5)) & c3.text & (vbCrLf) & (vbCrLf) & "מעוניין בהצעות נוספות" & (vbCrLf) & q4.text & (vbCrLf) & (vbCrLf) & "הניסיון שלך בתחום תשתיות הכבישים ועבודה מול מעצ " & (vbCrLf) & q5.text & (vbCrLf) & (vbCrLf) & "פרטים אישיים" & (vbCrLf) & (vbCrLf) & "שם מלא" & (vbCrLf) & pi1.text & (vbCrLf) & (vbCrLf) & "כתובת מייל" & (vbCrLf) & UsersEmail.Text & (vbCrLf) & (vbCrLf) & "טלפון" & (vbCrLf) & pi2.text & (vbCrLf) & (vbCrLf) &"שעות נוחות" & (vbCrLf) & pi3.text & (vbCrLf) & (vbCrLf) & (vbCrLf) & "הערות" & (vbCrLf) & body.text 
' 
     '(1) Create the MailMessage instance 
     Dim mm As New MailMessage(UsersEmail.Text, ToAddress) 

     '(2) Assign the MailMessage's properties 
     mm.Subject = pi1.text & "-" & "JB-16" 
     mm.Body = textMsg 

     mm.IsBodyHtml = false 

     'Attach the file 
     mm.Attachments.Add(New Attachment(AttachmentFile.PostedFile.InputStream, AttachmentFile.FileName)) 
     mm.Attachments.Add(New Attachment(AttachmentFile2.PostedFile.InputStream, AttachmentFile2.FileName)) 

     '(3) Create the SmtpClient object 
     Dim smtp As New SmtpClient 

     '(4) Send the MailMessage (will use the Web.config settings) 
     smtp.Send(mm) 

     'Show the EmailSentForm Panel and hide the EmailForm Panel 
     EmailSentForm.Visible = True 
     EmailForm.Visible = False 
    End Sub 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
     If Not Page.IsPostBack Then 
      'On the first page load, hide the EmailSentForm Panel 
      EmailSentForm.Visible = False 
     End If 
    End Sub 
End Class

有什麼想法嗎？

來源

2012-02-16 pelleg

你雙擊按鈕？ – Oded 2012-02-16 12:04:54

您是否嘗試使用斷點調試應用程序並查看最新的操作？ – Shoban 2012-02-16 12:05:35

我不是雙擊。 ShoBan，我不知道你的意思。 – pelleg 2012-02-16 12:06:52

您是否分配了兩次點擊處理程序？我看到你在函數定義中有「處理btnSubmit.Click」。您是否將onClick事件分配給其他人以使用該功能？

這是按鈕單擊事件觸發兩次的最常見原因。

來源

2012-02-16 15:12:45

請確保您的.aspx頁面中沒有AutoWireUpEvent = true。

來源

2012-02-16 16:06:09

發送電子郵件兩次

回答

相關問題