【发布时间】:2012-08-20 09:56:29
【问题描述】:
使用以下函数:
Public Sub SendMail(ByVal SendFrom As String, ByVal SendTo As String, ByVal Subject As String, ByVal Body As String)
Dim client As New SmtpClient
Dim message As New MailMessage
message.Body = Body
message.Subject = Subject
message.From = New MailAddress(SendFrom)
message.To.Add(New MailAddress(SendTo))
client.Port = "25"
client.Host = "smtp.myserver.com"
client.Send(message)
End Sub
我用
来称呼它Protected Sub btnSubmit_Click(sender As Object, e As System.EventArgs) Handles btnSubmit.Click
Dim iandamsb As New StringBuilder
iandamsb.AppendLine("Please make the following changes:")
iandamsb.AppendLine("")
iandamsb.AppendLine("Current name:" & txtCurrentName.Text)
iandamsb.AppendLine("New name:" & txtNewName.Text)
iandamsb.AppendLine("New username:" & txtNewUsername.Text)
iandamsb.AppendLine("Applications:" & txtOtherApplications.Text)
Dim iandambody As String = iandamsb.ToString
SendMail(txtRequesterEmail.Text, "ayockel@mydomain.com", "Name Change Request - " & txtCurrentName.Text, iandambody)
End Sub
它工作得很好,但是它发送的是两封电子邮件而不是一封。任何人都可以弄清楚为什么它发送重复?
【问题讨论】:
-
调用代码在哪里执行?能不能在sendmail的第一行下个断点,通过它调试?
-
可能是你的函数被调用了两次?
-
问题可能出在调用代码上,而不是这里。你能显示/评论那部分代码吗?
-
SendMail(txtRequesterEmail.text, "myemail@domain.com", "Name Change", "Body of email") 是调用代码。没有别的了。
-
您是如何调用 SendMail 功能的?任何事件处理程序(按钮)或页面加载事件,发布该代码