为什么我的邮件发送不出去????100
源代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim obj As MailMessage
Dim objattach As MailAttachment
Dim filename As String
obj = New MailMessage()
obj.To = TextBox1.Text
obj.From = TextBox2.Text
obj.Subject = TextBox3.Text
obj.Body = TextBox4.Text
obj.Priority = MailPriority.High
filename = p.Value
If Not IsDBNull(filename) And filename <> "" Then
objattach = New MailAttachment(filename)
obj.Attachments.Add(objattach)
End If
SmtpMail.Send(obj)
Response.Write("Send Success!")
End Sub
邮件被发到本机C:\Inetpub\mailroot\Queue目录下