Send Mail By CDO

 

1.追加COM組件 [cdosys.dll] 的引用 ,將在編譯目錄生成以下DLL文件：

    ・Interop.ADODB.dll

    ・Interop.CDO.dll

2.VB.Net 代碼

 

    ''' <summary> ''' Send Mail By CDO Message. ''' </summary> ''' <param name="sFrom">Sender</param> ''' <param name="sTo">Receiver</param> ''' <param name="sSubject">Mail Subject</param> ''' <param name="sBody">Mail Body</param> ''' <param name="sCc">Carbon Copy</param> ''' <param name="sBcc">Blind Carbon Copy</param> ''' <param name="sUserName">Send User Name</param> ''' <param name="sPassword">Send Password</param> ''' <param name="sSmtpServer">SMTP Server</param> ''' <param name="sCharset">Charset</param> ''' <param name="oAttachments">Attachment File</param> ''' <remarks> ''' </remarks> Public Sub SendMailByCDO(ByVal sFrom As String, ByVal sTo As String, ByVal sSubject As String, ByVal sBody As String, ByVal sCc As String, ByVal sBcc As String, ByVal sUserName As String, ByVal sPassword As String, ByVal sSmtpServer As String, Optional ByVal sCharset As String = "utf-8", Optional ByVal oAttachments() As String = Nothing) 'Create CDO.Message Instances Dim oMsg As CDO.Message = New CDO.Message() Dim oConfig As CDO.IConfiguration = oMsg.Configuration Dim oFields As ADODB.Fields = oConfig.Fields 'Set Configuration Info With oFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = sUserName .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = sPassword .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1 .Item("http://schemas.microsoft.com/cdo/configuration/languagecode").Value = &H804 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = sSmtpServer .Update() End With Dim byteArray As Byte() = System.Text.Encoding.Unicode.GetBytes(sBody) 'Set Mail Info With oMsg .MimeFormatted = True .Subject = sSubject .TextBody = sBody .BodyPart.Charset = sCharset .From = sFrom .To = sTo If Not String.IsNullOrEmpty(sCc) Then .CC = sCc If Not String.IsNullOrEmpty(sBcc) Then .BCC = sBcc If oAttachments IsNot Nothing Then For Each sFile As String In oAttachments .AddAttachment(sFile) Next End If End With 'Send Mail oMsg.Send() oFields = Nothing oConfig = Nothing oMsg = Nothing End Sub