在 excel 上传的收件人电子邮件中发送批量电子邮件 VB.NET 收件人

Question

这是我用来向客户发送电子邮件的代码。

导入系统.网络.邮件公开课表格1    将文件（2）调暗为字符串    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim smtpserver As New SmtpClient()        将邮件暗淡为新邮件（）        SMTPSERVER。凭据 = New Net.NetworkCredential（TextBox1.Text， TextBox2.Text）        SMTPSERVER。主机 = 文本框3.文本        SMTPSERVER。端口 = 文本框4.文本        邮件 = 新邮件消息        邮件。发件人 = 新邮件地址（文本框1.文本）        邮件。To.Add（TextBox5.Text）        邮件。To.Add（TextBox12.Text）        邮件。主题 = 文本框6.文本        邮件。正文 = 文本框10.文本        如果不是 TextBox7.Text = 什么都没有，那么            将附加调暗为新附件（文本框7.文本）            邮件。附件.添加（附加）        结束如果        如果不是 textBox8.text = 什么都没有，那么            将附加调暗为新附件（文本框8.文本）            邮件。附件.添加（附加）        结束如果        如果不是 textBox9.text = 没有，那么            将附加调暗为新附件（文本框9.文本）            邮件。附件.添加（附加）        结束如果        SMTPSERVER。EnableSsl = True        尝试            SMTPSERVER。发送（邮件）        Catch ex As SmtpException            MsgBox（"要么你输入了错误的东西，要么程序有问题......很可能是您输入的内容，因此请重试"）        结束尝试    结束子    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        文件 = 无        OpenFileDialog1.ShowDialog（）        文件 = 打开文件对话框1.文件名        文本框7.文本 = 文件 （0）        尝试            文本框8.文本 = 文件（1）        Catch ex As IndexOutOfRangeException        结束尝试        尝试            文本框9.文本 = 文件（2）        Catch ex As IndexOutOfRangeException        结束尝试    结束子    private sub TextBox4_TextChanged（ByVal sender as System.Object， ByVal e as System.EventArgs） handle TextBox4.TextChanged    结束子    private sub Form1_Load（ByVal sender as System.Object， ByVal e as System.EventArgs） handle MyBase.Load    结束子结束类

在这里，我只能发送电子邮件，这两个文本框中，但我需要向电子邮件存储在 excel 文件中的 20 个客户发送更多电子邮件。

Answer 1

从我的头顶上

' Create new Application.
Dim excel As Application = New Application
' Open Excel spreadsheet.
Dim w As Workbook = excel.Workbooks.Open("C:file.xls")
' Loop over all sheets.
For i As Integer = 1 To w.Sheets.Count
    ' Get sheet.
    Dim sheet As Worksheet = w.Sheets(i)
    ' Get range.
    Dim r As Range = sheet.UsedRange
    ' Load all cells into 2d array.
    Dim array(,) As Object = r.Value(XlRangeValueDataType.xlRangeValueDefault)
    ' Scan the cells.
    If array IsNot Nothing Then 
    ' Get bounds of the array.
    Dim bound0 As Integer = array.GetUpperBound(0)
    Dim bound1 As Integer = array.GetUpperBound(1)  

    ' Loop over all elements.
    For j As Integer = 1 To bound0
        For x As Integer = 1 To bound1
        Dim address As String = array(j, x)
                     'Send your email to **address** here
        Next
    Next
    End If
Next
' Close.
w.Close()