Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz
  • 0

Wysyłanie wiadomości email


Leikeli47

Pytanie

Opublikowano
Imports System
Imports System.Net.Mail
Imports System.Threading
Imports System.Text

Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "xxxxx")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("[email protected]")
        mail.To.Add("[email protected]")
        mail.Subject = ("temat")
        mail.Body = "Temat " + Temat.Text & Chr(12) + "Tytuł " + tytul.Text
        smtpServer.Send(mail)

Witam! Mam następujący kod, jednak pojawia się problem "Serwer SMTP wymaga bezpiecznego połączenia lub nie uwierzytelniono klienta. Odpowiedź serwera: 5.5.1 Authentication Required." Jak mogę to naprawić???

Pozdrawiam!

4 odpowiedzi na to pytanie

Rekomendowane odpowiedzi

Opublikowano

Okej, dzisiaj miałem ten sam problem i go rozwiązałem, mianowicie:

1. Użyj kodu:

                    Try
                        Dim SmtpServer As New SmtpClient
                        SmtpServer.EnableSsl = True
                        Dim mail As New MailMessage
                        SmtpServer.UseDefaultCredentials = False
                        SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network
                        SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "xxxpassxxx")
                        SmtpServer.Port = "587"
                        SmtpServer.Host = "smtp.gmail.com"
                        mail = New MailMessage
                        mail.From = New MailAddress("[email protected]")
                        mail.To.Add("xxxmailxxx")
                        mail.Subject = "Temat"
                        mail.Body = "Tekst"
                        SmtpServer.Send(mail)
                        MsgBox("Wysłano")

                    Catch ex As Exception
                        MsgBox(ex.Message)

                    End Try

2. Logujesz się na konto gmaila z którego chcesz wysyłać maile i wchodzisz w ten link: https://www.google.com/settings/security/lesssecureapps i zaznaczasz "włącz"

3. Ustawiasz to w gmailu:

 8eef8743c75df8856defbc4257d6714c.jpg

 

Jak nie będzie działać to wstaw nam wiadomość z msgboxa z błędem

sygna.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...