dotNETportal.cz

Zdravím,

nemáte někdo prosím funkční kod pro odesílání mailů, třeba přes SMTP server. Nebo vítám jakoukoliv možnost. Dřív mi to fungovalo a teď jako by změnil zabezpečení. Jde mi odesílání ze schránky třeba na seznam.cz

Předem děkuji všem...

Děkuju za radu. Maily jsem normalně odesilal až pak to najednou nešlo, tak si myslím že je změna připojení na seznam.cz tak jsem se zeptal jestli o tom nikdo něco neví. Hledal jsem na netu dva dny jiný řešení, ale bez úspěchu... Jdu dledat na doporučených stránkách. Ještě jednou dík...

Zkuste tohle:

Sub OdesliMail()
        ' Vytvoreni nove zpravy, zadani adresy odesilatele a prijemce
        Dim Zprava As New System.Net.Mail.MailMessage("""Odesilatel"" <[email protected]>", "[email protected]")
        Zprava.Subject = "Predmet testovaci zpravy"
        Zprava.Body = "Telo testovaci zpravy"

        Dim mailClient As New System.Net.Mail.SmtpClient()

        ' Domenovy nazev nebo IP adresa serveru, pres nejz se bude email odesilat
        mailClient.Host = "Mail.VaseDomena.cz"

        ' Prihlasovaci udaje, pomoci nichz probehne SMTP autentizace
        Dim Prihlaseni As New System.Net.NetworkCredential("[email protected]", "Heslo")
        mailClient.UseDefaultCredentials = False
        mailClient.Credentials = Prihlaseni
        Try
            mailClient.Send(Zprava)
            Response.Write("Email byl v pořádku odeslán na adresu " & Zprava.To(0).Address & ".")
        Catch ex As Exception
            Response.Write("Při odesílání zprávy došlo k chybě:<BR>" & ex.Message)
        End Try
End Sub

To není pro VB6.