从Excel工作表使用.net发送大邮件 [英] Send Bulk Mails using .net From Excel Sheet

问题描述

如何使用.Net发送大邮件，如何从Excel工作表中读取邮件ID.

How to Send Bulk Mails using .Net, Reading Mail Id''s From Excel Sheet.

推荐答案

需要导入以下命名空间

Need to import Following Name Spaces

Imports System.IO
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Net.Mail
Imports System.Web

然后编写如下代码，

Dim MailServeName As String ="161.11.11.111"

私有子Form1_Load(ByVal发送者作为System.Object，ByVal e作为System.EventArgs)处理MyBase.Load
ReadData()
结束子
私有子ReadData()
试试
Dim xcel作为Excel.Application
试试
xcel = GetObject(，"Excel.Application")
异常捕获
xcel =新的Excel.Application
结束尝试
xcel.Workbooks.Open("C:\ Documents and Settings \ epa \ Desktop \ EmailList.xls")
xcel.Application.Visible = True
xcel.Range("A2").Select()
昏暗的strName，strEmail，strPosId为字符串
对于i As Integer = 1到xcel.ActiveSheet.UsedRange.Rows.Count
试试
strName = xcel.ActiveCell(i，1).VALUE
strEmail = xcel.ActiveCell(i，2).VALUE
strPosId ="
sendmail(strName，strEmail，strPosId)
异常捕获
MessageBox.Show(ex.Message)
结束尝试
下一个
异常捕获
结束尝试
结束子
专用子sendmail(ByVal strName作为字符串，ByVal strEmail作为字符串，ByVal strPosId作为字符串)
试试
Dim ma As MailAddress
ma =新MailAddress(用户名"，显示名")
昏暗邮件作为MailMessage =新MailMessage()
Message.From = ma
Dim strbody As String = String.Empty

strbody =嗨Jagadeesh"

Message.Body = strbody
Message.To.Add("ToMailId")
Message.Subject =主题"
Message.IsBodyHtml = True
昏暗的MailClient作为SmtpClient =新的SmtpClient
MailClient.Host = MailServeName
MailClient.Send(消息)
Message.Dispose()
异常捕获
MessageBox.Show(ex.Message)
结束尝试
结束Sub

Then code as follows,

Dim MailServeName As String = "161.11.11.111"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReadData()
End Sub
Private Sub ReadData()
Try
Dim xcel As Excel.Application
Try
xcel = GetObject(, "Excel.Application")
Catch ex As Exception
xcel = New Excel.Application
End Try
xcel.Workbooks.Open("C:\Documents and Settings\epa\Desktop\EmailList.xls")
xcel.Application.Visible = True
xcel.Range("A2").Select()
Dim strName, strEmail, strPosId As String
For i As Integer = 1 To xcel.ActiveSheet.UsedRange.Rows.Count
Try
strName = xcel.ActiveCell(i, 1).VALUE
strEmail = xcel.ActiveCell(i, 2).VALUE
strPosId = ""
sendmail(strName, strEmail, strPosId)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Next
Catch ex As Exception
End Try
End Sub
Private Sub sendmail(ByVal strName As String, ByVal strEmail As String, ByVal strPosId As String)
Try
Dim ma As MailAddress
ma = New MailAddress("User Name", "Display Name")
Dim Message As MailMessage = New MailMessage()
Message.From = ma
Dim strbody As String = String.Empty

strbody = "Hi Jagadeesh"

Message.Body = strbody
Message.To.Add("ToMailId")
Message.Subject = "Subject"
Message.IsBodyHtml = True
Dim MailClient As SmtpClient = New SmtpClient
MailClient.Host = MailServeName
MailClient.Send(Message)
Message.Dispose()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

这篇关于从Excel工作表使用.net发送大邮件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！