Pokud máte vlastní SMTP server (např. na hostingu), neměl by to být problém:
Dim msgMail As New MailMessage("ADRESA ODESILATELE", mail)
Dim sm As New SmtpClient("VAS SMTP SERVER", 25)
'---------Pokud pouzivate autorizaci na SMTP
Dim cr As New Net.NetworkCredential("JMENO", "HESLO")
sm.Credentials = cr
sm.UseDefaultCredentials = False
'---------
'... dalsi nastaveni zpravy (adresat,obsah,prilohy...)
Try : sm.Send(msgMail)
Catch ex As Exception
End Try
Tento kód bude fungovat pouze za předpokladu, že se od klienta dá komunikovat přes port 25 (SMTP) a že máte vlastní SMTP server. Kvůli NAT a firewallům je jistější, kdybyste na nějakém ASP.NET freehostingu (např. aspweb.cz) rozfungoval webservice, která by mail odeslala, a propojil jí jako web reference do své aplikace. Hodně štěstí
|