Stránka 1 z 2
Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 18:22
od 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 ClassDíky. Snad jste mě pochopili.
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 21:29
od CZechBoY
nechápu proč nemůžeš použít jeden SMTP server
nějaký problém?
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 22:36
od Grow
Protože nechci aby se dal odeslat mail jen z gmailu
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 22:41
od 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…
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 22:46
od 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...
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 22:51
od CZechBoY
SMTP poskytovatele netu skoro vždy funguje a stačí
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 22:52
od 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..
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 22:56
od CZechBoY
se mi zdá jako totální blbost
zkus nějakej veřejnej SMTP server
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 23:04
od 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.
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 23:06
od El Diablo
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 23:07
od 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
Re: Odesílaní e-mailu na různý smtp servery (VB2010)
Napsal: 16 bře 2012 23:20
od 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