Vb.net Visual Basic电子邮件系统密件抄送邮件
我正在制作visual basic电子邮件软件此软件发送附件文件和邮件我想发送邮件许多公司我正在添加到该领域,但我想添加密件抄送和抄送邮件系统也包括,但它不知道我如何为此编码…如果有人对此有很好的认识,请给我一个想法。。。。 或任何其他方式添加多个邮件系统与附件的文件简历文件。。。。我还需要知道如何添加过滤器,有人不会添加任何其他格式的文件来发送。但我主要需要知道如何在vb和CC中添加BCC盲拷贝系统。Vb.net Visual Basic电子邮件系统密件抄送邮件,vb.net,visual-studio-2010,Vb.net,Visual Studio 2010,我正在制作visual basic电子邮件软件此软件发送附件文件和邮件我想发送邮件许多公司我正在添加到该领域,但我想添加密件抄送和抄送邮件系统也包括,但它不知道我如何为此编码…如果有人对此有很好的认识,请给我一个想法。。。。 或任何其他方式添加多个邮件系统与附件的文件简历文件。。。。我还需要知道如何添加过滤器,有人不会添加任何其他格式的文件来发送。但我主要需要知道如何在vb和CC中添加BCC盲拷贝系统。 Imports System.Net Imports System.Net.Mail Pr
Imports System.Net
Imports System.Net.Mail
Private mpMessage As MailMessage = Nothing
Private mpSMTPSvr As SmtpClient = Nothing
'------------------------------------------------------------------------
'-> Send The Message
'------------------------------------------------------------------------
MailerHost = "Addrss-of-your-emailer-host-server"
mpMessage = New System.Net.Mail.MailMessage()
mpMessage.Body = "Message body text goes here"
If Trim(SenderNameValue) <> "" Then
mpMessage.From = New System.Net.Mail.MailAddress("senderemail@hotmail.com", SenderNameValue)
mpMessage.Sender = New System.Net.Mail.MailAddress("senderemail@hotmail.com", SenderNameValue)
Else
mpMessage.From = New System.Net.Mail.MailAddress("senderemail@hotmail.com", "Name_Unspecified")
mpMessage.Sender = New System.Net.Mail.MailAddress("senderemail@hotmail.com", "Name_Unspecified")
End If
mpMessage.Priority = System.Net.Mail.MailPriority.High
mpMessage.Subject = "[WEB-REPONSE] - Correspondence via Website response form."
mpMessage.To.Add(Trim("recipient@yahoo.com"))
mpMessage.CC.Add(Trim("secretary@yahoo.com"))
mpMessage.BCC.Add(Trim("manager@yahoo.com"))
Try
mpSMTPSvr.Send(mpMessage)
SendStandardCommunicae = True
Catch ex As Net.Mail.SmtpException
ReturnErrorid = eEML_NETWORKERRORSENDINGEMAIL
ReturnErrorText = "A network error occurred whilst trying to send your message, please check your details for syntax errors and try again later.<br />If the error occurs consistently please contact the site administrator or use an alternative method of contact.<br /><br />"
ReturnErrorText = ReturnErrorText & "Extra Information:" & ex.Message
End Try