使用 vb.net 在电子邮件中发送数据网格视图数据

Question

我正在尝试将数据网格视图（或只是网格中的数据）发送到电子邮件，但在发送时我只收到一封空白电子邮件，有人知道如何修复它吗？我使用的代码是这样的：

Try
        SMTP.UseDefaultCredentials = False
        SMTP.Credentials = New Net.NetworkCredential("[e-mail address im sending from]", "[password for that e-mail]")

        SMTP.Port = 25
        SMTP.EnableSsl = True
        mail = New MailMessage
        mail.From = New MailAddress("[e-mail im sending from]")
        mail.To.Add(UserEmail.Text)
        mail.Body = DataTab.ToString
        mail.Subject = "Biology quiz Highscores"
        SMTP.DeliveryMethod = SmtpDeliveryMethod.Network
        SMTP.Send(mail)
        MsgBox("E-mail sent to: " & UserEmail.Text & "")
    Catch ex As Exception
        MsgBox("Unable to send e-mail. Please try again later.")
    End Try

我使用 mydataadpter sql 语句从 2003 访问数据库获取数据，数据 table 变量称为 datatab。

Answer 1

Object.ToString()，除非被覆盖，否则等同于调用 Object.GetType().ToString().

你要显示数据中的数据table。你可以这样做：

Private Sub YourSubWhereYouSendEmail()
    '...

    Try
        Using smtp = New SmtpClient() With {
                                             .UseDefaultCredentials = False,
                                             .Credentials = New Net.NetworkCredential("[e-mail address im sending from]", "[password for that e-mail]"),
                                             .Port = 25,
                                             .EnableSsl = True,
                                             .DeliveryMethod = SmtpDeliveryMethod.Network
                                           }

            smtp.Send(New MailMessage("[e-mail im sending from]"), UserEmail.Text, "Biology quiz Highscores", DataTableToCSVString(DataTab)))
        End Using
        MsgBox("E-mail sent to: " & UserEmail.Text & "")
    Catch ex As Exception
        MsgBox("Unable to send e-mail. Please try again later.")
    End Try

    '...
End Sub

Private Function DataTableToCSVString(table As DataTable) As String
    With New Text.StringBuilder
        Dim once = False

        'headers
        For Each col As DataColumn In table.Columns
            If once = False Then
                once = True
            Else
                .Append(",")
            End If
            .Append(col.ColumnName)
        Next

        .AppendLine()

        'rows
        For Each s In table.Select.Select(Function(row) String.Join(",", row.ItemArray))
            .AppendLine(s)
        Next

        Return .ToString
    End With
End Function

使用 vb.net 在电子邮件中发送数据网格视图数据

send data grid view data in an e-mail using vb.net

vb.net

email

datagridview