Search the Community

Es gribētu saprast kāpēc aptuveni šāds kods: Imports System.Net Imports System.Net.Mail Sub sendMail() Try Dim AnEmailMessage As New MailMessage AnEmailMessage.From = New MailAddress(txt_GmaiLUsername.Text) AnEmailMessage.To.Add(TXT_TO.Text) AnEmailMessage.Subject = (TXT_Subject.Text) AnEmailMessage.Body = (TXT_Body.Text) AnEmailMessage.Priority = MailPriority.High Dim SimpleSMTP As New SmtpClient("smtp.gmail.com") With SimpleSMTP .Port = 587 .EnableSsl = True .Credentials = _ New NetworkCredential(txt_GmaiLUsername.Text, txt_GmailPassword.Text) .Send(AnEmailMessage) End With MsgBox("Email sent to : " & TXT_TO.Text, MsgBoxStyle.Information) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try End Sub ar Gmail darbojas, bet ar mana darba SMTP serveri nē. Interesanti ir ka neizmantojot autorizāciju es uz savu darba e-pastu vēstuli saņemu, bet uz citām adresēm met kļūdu. Sūtot ar autorizāciju Immediate windows parāda šādu ziņojumu: A first chance exception of type 'System.Net.Mail.SmtpException' occurred in System.dll un kļūdu ka nav iespējams nosūtīt e-pastu. Darba SMTP serveris, ports, lietotājs un parole ir norādīts pareizi. Outlook un citas e-pasta programmas darbojas. Kas man nav pareizi, vai kur ir problēma? Izmantoju Visual Basic 2008 ExpressEdition Laikam jau jēgas nekādas, dzēsiet ārā.