Visual Basic - E-mail sender

Příspěvekod LeopaRD » 18 srp 2015, 15:00

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í
Kolemjdoucí
 
Příspěvky: 19
Registrován: 18 srp 2015, 13:57

Visual Basic - E-mail sender

od Rumcajz » 18 srp 2015, 15:00

A uz jsi vyzkousel treba tohle? Rumcajz
Rumcajz
Rumcajz
Patriot
Rumcajz
 
Příspěvky: 97323
Registrován: sob 29.led 1999 0:11:22

Re: Visual Basic - E-mail sender

Příspěvekod FatalWiruS » 18 srp 2015, 17:29 VIP

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
PC Support 4.5 2015 - 5.12 2015
Uživatelský avatar
FatalWiruS
Profesionál
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

Příspěvekod LeopaRD » 18 srp 2015, 18:07

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í
Kolemjdoucí
 
Příspěvky: 19
Registrován: 18 srp 2015, 13:57

Re: Visual Basic - E-mail sender

Příspěvekod Khertys » 18 srp 2015, 18:55 VIP

Prostuduj a zkus neco z tehle navodu :arrow: msdn, stackoverflow a youtube. Muzes si vybrat, najdes tam odpoved i presny navod + troubleshooting smtp email sender.
Uživatelský avatar
Khertys
Hlavní Support
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

Příspěvekod LeopaRD » 18 srp 2015, 19:06

Khertys píše:Prostuduj a zkus neco z tehle navodu :arrow: msdn, 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í
Kolemjdoucí
 
Příspěvky: 19
Registrován: 18 srp 2015, 13:57

Re: Visual Basic - E-mail sender

Příspěvekod FatalWiruS » 18 srp 2015, 19:18 VIP

Určitě pošli.
PC Support 4.5 2015 - 5.12 2015
Uživatelský avatar
FatalWiruS
Profesionál
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

Příspěvekod LeopaRD » 18 srp 2015, 19:24

LeopaRD
Kolemjdoucí
Kolemjdoucí
 
Příspěvky: 19
Registrován: 18 srp 2015, 13:57

Re: Visual Basic - E-mail sender

Příspěvekod Khertys » 18 srp 2015, 20:05 VIP

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.
Uživatelský avatar
Khertys
Hlavní Support
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

Příspěvekod LeopaRD » 18 srp 2015, 20:15

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í
Kolemjdoucí
 
Příspěvky: 19
Registrován: 18 srp 2015, 13:57

Re: Visual Basic - E-mail sender

Příspěvekod Khertys » 18 srp 2015, 20:18 VIP

Tak kdyz jsi v tom uz zkousel, tak tam pokracuj a odscreenuj chybu, co ti vyhodi kompilator nebo jaky error ti to dole vyhodi.
Uživatelský avatar
Khertys
Hlavní Support
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

Příspěvekod LeopaRD » 18 srp 2015, 20:37

LeopaRD
Kolemjdoucí
Kolemjdoucí
 
Příspěvky: 19
Registrován: 18 srp 2015, 13:57

Re: Visual Basic - E-mail sender

Příspěvekod Khertys » 18 srp 2015, 20:42 VIP

Hod sem jeste kod, se kterym to ted debugujes. Mimo to, tuhle stejnou chybu ti to hodi ve VB?
Uživatelský avatar
Khertys
Hlavní Support
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

Příspěvekod Hoolder » 18 srp 2015, 20:47

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);
            }
        }
Uživatelský avatar
Hoolder
Spamer
Spamer
 
Příspěvky: 1821
Registrován: 26 kvě 2014, 15:00
Bydliště: Plzeň

Re: Visual Basic - E-mail sender

Příspěvekod LeopaRD » 18 srp 2015, 21:03

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í
Kolemjdoucí
 
Příspěvky: 19
Registrován: 18 srp 2015, 13:57

Re: Visual Basic - E-mail sender

Příspěvekod LeopaRD » 18 srp 2015, 21:27

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í
Kolemjdoucí
 
Příspěvky: 19
Registrován: 18 srp 2015, 13:57

Další

Zpět na Vyriešené topicy

Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků