Dobrý den, nemohu si poradit s odesláním emailu na adresu [email protected], tedy na smtp.seznam.cz. Po napsání následujícího:
Private Sub SendMail(ByVal from As String, ByVal body As String)
Dim mailServerName As String = "smtp.seznam.cz"
Dim port = "25"
Dim userName = "emailadresa"
Dim password = "heslo"
Dim message As MailMessage = New MailMessage(from, "emailadresa", "predmet", body)
Dim mailClient As SmtpClient = New SmtpClient("localhost")
mailClient.Host = mailServerName
mailClient.Port = port
mailClient.Send(message)
message.Dispose()
End Sub
vyžaduje server seznamu autentizaci, takže bych měl použít asi něco jako:
Dim value As ICredentials
value = CredentialCache.DefaultCredentials
Jak mám správně nadeklarovat Credentials, resp. jak se můžu jinak vypořádat s autentizací na smtp.seznam.cz? Nebo dělám něco špatně? Předem díky za nějaké nápady a připomínky!
|