Блог

Я создал vb.net приложение для запуска в raspbian os. Предполагается, что приложение должно отправлять электронное письмо с помощью SMTP. Код с ноутбука может отправлять почту, но в Raspberry pi он не работает, он не отправляет никакой почты и приводит к сбою системы.

Сообщение об ошибке: учетные данные по умолчанию не поддерживаются

Кодекс:

 Imports System.Net.Mail 
Imports System.Data
Imports System.Net

Try
        Dim html As String = "<table cellpadding='5' cellspacing='0' style='font-size: 9pt'>"
        html amp;= "<tr>"
        For Each column As DataGridViewColumn In formPOS.ProductAddToCartDGV.Columns
            html amp;= "<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" amp; column.HeaderText amp; "</th>"
        Next
        html amp;= "</tr>"
        For Each row As DataGridViewRow In formPOS.ProductAddToCartDGV.Rows
            html amp;= "<tr>"
            For Each cell As DataGridViewCell In row.Cells
                html amp;= "<td style='width:120px;border: 1px solid #ccc'>" amp; cell.Value amp; "</td>"
            Next
            html amp;= "</tr>"
        Next
        html amp;= "<tr>"
        html amp;= "<td style='border: 0px solid #fff'></td>"
        html amp;= "<td style='border: 0px solid #fff'></td>"
        html amp;= "<td style='border: 0px solid #fff'></td>"
        html amp;= "<td style='background-color: #dcdcdc;border: 0px;'><b> TOTAL ITEM: </b></td>"
        html amp;= "<td style='background-color: #dcdcdc;border: 0px; text-align: center;'><b>" amp; formPOS.useritemLBL.Text amp; "</b></td>"
        html amp;= "</tr>"
        html amp;= "<tr>"
        html amp;= "<td style='border: 0px solid #fff'></td>"
        html amp;= "<td style='border: 0px solid #fff'></td>"
        html amp;= "<td style='border: 0px solid #fff'></td>"
        html amp;= "<td style='background-color: #dcdcdc;border: 0px;'><b>SUB TOTAL: </b></td>"
        html amp;= "<td style='background-color: #dcdcdc;border: 0px; text-align: center;'><b>" amp; formPOS.userTotalLBL.Text amp; "</b></td>"
        html amp;= "</tr>"
        html amp;= "</table>"

        Using mm As New MailMessage("workserver@gmail.com", formPOS.customerEmailTb.Text)
            mm.Subject = "Smart Shopping Cart e-Receipt"
            mm.Body = html
            mm.IsBodyHtml = True
            Dim smtp As New SmtpClient()
            smtp.Host = "smtp.gmail.com"
            smtp.EnableSsl = True
            Dim NetworkCred As New NetworkCredential(mm.From.Address, "password")
            smtp.UseDefaultCredentials = True
            smtp.Credentials = NetworkCred
            smtp.Port = 587
            smtp.Send(mm)
        End Using
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try