作为一个新手(当然英语不好)我需要一些帮助。我是一名 VB 编码员。 不确定我是否完全理解给出的如何填写问题的说明。
我在服务器上有X邮件账户,发送邮件时我想使用发件人自己的账户
因此在后面的代码中我有以下有效的代码。
SELECT CASE Sender
case is = Name1
SmtpServer.Credentials = New System.Net.NetworkCredential("[email protected]", "Pwd1")
case is = Name2
SmtpServer.Credentials = New System.Net.NetworkCredential("[email protected]", "Pwd2")
case is = NameX
SmtpServer.Credentials = New System.Net.NetworkCredential("[email protected]", "PwdX")
END SELECT
发送邮件:
Protected Sub SkickaMail(receiver As String, SavePath As String)
Dim mailWebb As New Net.Mail.MailMessage
Using mailWebb
mailWebb.To.Add(receiver)
mailWebb.From = New Net.Mail.MailAddress(sender)
If ChkKvitto.Checked Then
mailWebb.Headers.Add("Disposition-Notification-To", sender)
End If
mailWebb.SubjectEncoding = System.Text.Encoding.UTF8
mailWebb.BodyEncoding = System.Text.Encoding.UTF8
mailWebb.Subject = TxtBoxSubject.Text.Trim
mailWebb.Body = TxtBlock.Text.Trim
mailWebb.BodyEncoding = System.Text.Encoding.UTF8
mailWebb.IsBodyHtml = False
If UpFile.HasFile And (SparadFil = True) Then
Dim fileName As String
For Each postedFile As HttpPostedFile In UpFile.PostedFiles
fileName = Path.GetFileName(postedFile.FileName)
mailWebb.Attachments.Add(New Net.Mail.Attachment(Path.Combine(SavePath, fileName)))
Next
End If
Try
SmtpServer.Send(mailWebb)
'sudda och nollställ
Response.Write("<script language='javascript'> alert('Meddelandet är skickat'); </script>")
Catch error_t As SmtpException
Response.Write("<script language='javascript'> alert('Meddelandet kunde inte skickas');</script>")
End Try
End Using
End Sub
目前-在web.config中有如下代码:
<system.net>
<mailSettings>
<smtp deliveryMethod="Network" from="[email protected]">
<network host="serveraddress" port="587" userName="[email protected]" password="PwdMreg" />
</smtp>
</mailSettings>
</system.net>
出于安全考虑,我想将敏感信息从代码中移到 web.config 文件中,但尽管进行了广泛的网络搜索,我还是不知道如何操作。
如果有人可以提供我可以找到解决方案的链接或提供更改 web.config 文件的示例,我将不胜感激。 最好的问候和感谢。 /库尔特J