Odesílaní e-mailu na různý smtp servery (VB2010) Vyřešeno

[Grow]

Ahoj, udělal jsem jednoduchý script pro odesílání e-mailu, ale mám to jen na gmail.com. A potřeboval bych nějak udělat, že když v textboxu bude jmeno@SEZNAM.CZ, jmeno@CENTRUM.CZ.... tak se změní smtp server pro danou adresu a taky port. Ale nevím jak.

Kód: Vybrat vše

Imports System.Net.Mail


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(usernamebox.Text)
        MyMailMessage.To.Add("to.Text")
        MyMailMessage.Subject = (subject.Text)
        MyMailMessage.Body = message.Text


        Dim SMTPServer As New SmtpClient[color=#FF0000]("smtp.gmail.com")[/color]
        SMTPServer.[color=#FF0000]Port = 587[/color]
        SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.Text)
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)

        MsgBox("Email odeslán.")


    End Sub
End Class

Díky. Snad jste mě pochopili.

[Reklama]

[CZechBoY]

nechápu proč nemůžeš použít jeden SMTP server

nějaký problém?

[Grow]

Protože nechci aby se dal odeslat mail jen z gmailu

[CZechBoY]

cože?
SMTP odesílá emaily a je mu jedno jestli to je email u Gmailu, centra, seznamu, nebo jestli to je nesmyslná neexistující adresa…

[El Diablo]

U SMTP Gmailu je ten problém že si přenastaví odesílací adresu na svou gmailovou.
Já měl měl nějaké potíže s SMTP serverem od poskytovatele tak než to vyřešili, používal sem smtp gmailu a pak vzniknul problém že mi odpovědi chodili na gmailový účet, který jsem neměl nastavený v thunderbirdu...
SMTP od seznamu mi myslím nechtělo fungovat a centrum ho myslím nemá vůbec, ale to jsi nejsem jist...

[CZechBoY]

SMTP poskytovatele netu skoro vždy funguje a stačí

[Grow]

Jedno mu to není, když to mám tak jak mám teď, tak mi to odešle jen pokud to je na gmailu. Když to předělám na seznam tak mi to zase neodešle na gmail..

[CZechBoY]

se mi zdá jako totální blbost
zkus nějakej veřejnej SMTP server

[Grow]

.. Pro upřenění, já potřebuju se přihlásit na mail na smtp server a z něj už se potom mail odesílá kamkoli. A potřebuju že když je v textboxu pro email ...@gmail.com tak ať se to připojí na smtp server od gmailu a tak samo z ostatníma serverama.

[El Diablo]

http://napoveda.centrum.cz/index.php?_m ... rticleid=1
http://napoveda.seznam.cz/cz/jake-jsou- ... rveru.html

[CZechBoY]

aha, to si měl napsat rovnou…
musíš si udělat seznam SMTP serverů různých emailových poskytovatelů

nebo můžeš použít libovolné SMTP bez ověření, ale nevim jestli to ve VB teda jde

[Grow]

To by se ještě dalo, ale nevím jak udělat, že když v textboxu pro e-mail (na přihlášení) bude napsáno třeba mujemail@gmail.com tak si to najde jen to gmail.com a podle toho se nastaví smtp server a port