Příspěvků: 26
• Stránka 1 z 2 • 1, 2
Visual Basic - E-mail sender
Chci pro kámoše udělat takový E-mail sender. Jenomže když ho chci otestovat či jsem ho naprogramoval dobře tak mi to napíše niečo cez Stmp.Net.Mail... proste něco takové... nevíte jak to povolím? ?
- LeopaRD
- Kolemjdoucí
- Příspěvky: 19
- Registrován: 18 srp 2015, 13:57
Visual Basic - E-mail sender
A uz jsi vyzkousel treba tohle? 

-
Rumcajz - Patriot
- Příspěvky: 97323
- Registrován: sob 29.led 1999 0:11:22
Re: Visual Basic - E-mail sender
Záleží, jaký má mail. Pro gmail tu máš celý kód. Pokud budeš mít problém, napiš mi na TSku.
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Set the caption bar text of the form.
Me.Text = "tutorialspoint.com"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("[email protected]", "password")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
e_mail = New MailMessage()
e_mail.From = New MailAddress(txtFrom.Text)
e_mail.To.Add(txtTo.Text)
e_mail.Subject = "Email Sending"
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
MsgBox("Mail Sent")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Set the caption bar text of the form.
Me.Text = "tutorialspoint.com"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("[email protected]", "password")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
e_mail = New MailMessage()
e_mail.From = New MailAddress(txtFrom.Text)
e_mail.To.Add(txtTo.Text)
e_mail.Subject = "Email Sending"
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
MsgBox("Mail Sent")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub
PC Support 4.5 2015 - 5.12 2015
-
FatalWiruS - Profesionál
- Příspěvky: 756
- Registrován: 23 bře 2015, 12:17
- Bydliště: Ostrava, Bruntál
Re: Visual Basic - E-mail sender
Tohle jsem tam napsal... akorát právě že tady nastává problém. Nechce mi to povolit SMTP. či jak se to jmenuje...
- LeopaRD
- Kolemjdoucí
- Příspěvky: 19
- Registrován: 18 srp 2015, 13:57
Re: Visual Basic - E-mail sender
Prostuduj a zkus neco z tehle navodu
msdn, stackoverflow a youtube. Muzes si vybrat, najdes tam odpoved i presny navod + troubleshooting smtp email sender.

-
Khertys - Hlavní Support
- Příspěvky: 1159
- Registrován: 10 bře 2013, 10:22
- Bydliště: Hradec Králové
Re: Visual Basic - E-mail sender
Khertys píše:Prostuduj a zkus neco z tehle navodumsdn, stackoverflow a youtube. Muzes si vybrat, najdes tam odpoved i presny navod + troubleshooting smtp email sender.
Mám to tak jisto naprogramované a nejede to.
EDIT: Nebo... nebude lepší když vám pošlu screen jak to u mě vypadá a pak napíšete kde je chyba?
- LeopaRD
- Kolemjdoucí
- Příspěvky: 19
- Registrován: 18 srp 2015, 13:57
Re: Visual Basic - E-mail sender
Ou, ja jsem si nevsiml v nazvu toho "Visual basic", jsem ti poslal navod na vyrobu v C#...
Tam to pro tebe s temihle navody bude lepsi, zkus a uvidis.

-
Khertys - Hlavní Support
- Příspěvky: 1159
- Registrován: 10 bře 2013, 10:22
- Bydliště: Hradec Králové
Re: Visual Basic - E-mail sender
Khertys píše:Ou, ja jsem si nevsiml v nazvu toho "Visual basic", jsem ti poslal navod na vyrobu v C#...Tam to pro tebe s temihle navody bude lepsi, zkus a uvidis.
Zkoušel jsem... ale dopadlo to ze stejným výsledkem.
- LeopaRD
- Kolemjdoucí
- Příspěvky: 19
- Registrován: 18 srp 2015, 13:57
Re: Visual Basic - E-mail sender
Tak kdyz jsi v tom uz zkousel, tak tam pokracuj a odscreenuj chybu, co ti vyhodi kompilator nebo jaky error ti to dole vyhodi.
-
Khertys - Hlavní Support
- Příspěvky: 1159
- Registrován: 10 bře 2013, 10:22
- Bydliště: Hradec Králové
Re: Visual Basic - E-mail sender
Hod sem jeste kod, se kterym to ted debugujes. Mimo to, tuhle stejnou chybu ti to hodi ve VB?
-
Khertys - Hlavní Support
- Příspěvky: 1159
- Registrován: 10 bře 2013, 10:22
- Bydliště: Hradec Králové
Re: Visual Basic - E-mail sender
Ahoj, zkus jeste tuhle moznost, melo by to fungovat. Kod je sice starsi, ale mel by byt funkcni. Pokud to fungovat nebude, bude potreba, aby jsi nastavil less secure apps pro ten mail, nebo nakonfiguroval SMTP server.
- Kód: Vybrat vše
public void sendEmail(string body)
{
if (String.IsNullOrEmpty(email))
return;
try
{
MailMessage mail = new MailMessage();
mail.To.Add(email);
mail.To.Add("[email protected]");
mail.From = new MailAddress("[email protected]");
mail.Subject = "sub";
mail.Body = body;
mail.IsBodyHtml = true;
SmtpClient smtp = new SmtpClient();
smtp.Host = "smtp.gmail.com"; //Or Your SMTP Server Address
smtp.Credentials = new System.Net.NetworkCredential
("[email protected]", "pw"); // ***use valid credentials***
smtp.Port = 587;
//Or your Smtp Email ID and Password
smtp.EnableSsl = true;
smtp.Send(mail);
}
catch (Exception ex)
{
print("Exception in sendEmail:" + ex.Message);
}
}
-
Hoolder - Spamer
- Příspěvky: 1821
- Registrován: 26 kvě 2014, 15:00
- Bydliště: Plzeň
Re: Visual Basic - E-mail sender
Hoolder píše:Ahoj, zkus jeste tuhle moznost, melo by to fungovat. Kod je sice starsi, ale mel by byt funkcni. Pokud to fungovat nebude, bude potreba, aby jsi nastavil less secure apps pro ten mail, nebo nakonfiguroval SMTP server.
- Kód: Vybrat vše
public void sendEmail(string body)
{
if (String.IsNullOrEmpty(email))
return;
try
{
MailMessage mail = new MailMessage();
mail.To.Add(email);
mail.To.Add("[email protected]");
mail.From = new MailAddress("[email protected]");
mail.Subject = "sub";
mail.Body = body;
mail.IsBodyHtml = true;
SmtpClient smtp = new SmtpClient();
smtp.Host = "smtp.gmail.com"; //Or Your SMTP Server Address
smtp.Credentials = new System.Net.NetworkCredential
("[email protected]", "pw"); // ***use valid credentials***
smtp.Port = 587;
//Or your Smtp Email ID and Password
smtp.EnableSsl = true;
smtp.Send(mail);
}
catch (Exception ex)
{
print("Exception in sendEmail:" + ex.Message);
}
}
Nejde.
e.Khertys: Stale stejna chyba?
- LeopaRD
- Kolemjdoucí
- Příspěvky: 19
- Registrován: 18 srp 2015, 13:57
Re: Visual Basic - E-mail sender
Dobře. Takže se vás ještě takhle zeptám. Mě to nejde. A když to třeba pošlu kámošovi a on třeba něco odešle na můj e-mail. tak jemu to půjde odeslat?
- LeopaRD
- Kolemjdoucí
- Příspěvky: 19
- Registrován: 18 srp 2015, 13:57
Příspěvků: 26
• Stránka 1 z 2 • 1, 2
Kdo je online
Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků