Slanje email-a pomocu VB.NET-a

Odgovori Nova tema

22 odgovora
10.143 pregleda

Slanje email-a pomocu VB.NET-a 21.06.2010. u 10:11 · pre 199 meseci #1

Pravim VB.NET web servis koji treba da posalje email na zadatu adresu.
Na Internetu sam nasao kod za slanje email-a medjutim ne mogu da posaljem
email, dobijem poruku o neuspjesnom povezivanju na SMTP server.
Pokusao sam da za SMTP server uzmem mail.google.com a funkciji getCredentials()
sam proslijedio korisnicko ime i lozinku svog gmail naloga.

Sta treba da uradim da bih mogao poslati email?

Re: Slanje email-a pomocu VB.NET-a 21.06.2010. u 10:17 · pre 199 meseci #2

Probaj da otvoris nalog sa nekog non-web based email klijenta (outlook ili bilo sta drugo)
jer google ima farmu smtp servera sa razlicitim adresama i dinamicki odredjuje preko kojeg ce da salje .

Potpis

Viva lollapalooza

Re: Slanje email-a pomocu VB.NET-a 21.06.2010. u 10:23 · pre 199 meseci #3

Probao sam da posaljem email sa mail servera svoje firme ali ista situacija.
Da napomenem, slanje je radilo kada bih kod pokrenuo iz interne mreze firme
ali u ovom slucaju taj kod pokrecem na svom laptopu kod kuce.

Re: Slanje email-a pomocu VB.NET-a 21.06.2010. u 10:34 · pre 199 meseci #4

Probaj sa ovim parametrima

SMTP: smtp.gmail.com
Enable SSL: true
Port: 587

Code:

private void SendMail()
{
    try
    {
        MailMessage message = new MailMessage()
        {
            From = new MailAddress("your address", "display name"),
            Subject = "subject",
            Body = "body",
        };

        // add all recipients
        message.To.Add("");

        SmtpClient client = new SmtpClient()
        {
            Host = "smtp.gmail.com",
            Port = 587,
            EnableSsl = true,
            Credentials = new NetworkCredential() { UserName = "username", Password = "password" },
            Timeout = 3000
        };

        client.Send(message);
    }
    catch (Exception ex)
    {
        // handle exception
    }
}

Potpis

gramatika srpskog jezika
testovi iz srpskog jezika
jezičke nedoumice

Re: Slanje email-a pomocu VB.NET-a 21.06.2010. u 10:59 · pre 199 meseci #5

Ovaj kod kod mene radi bez problema (samo je kod u c#):

Code:

System.Net.Mail.MailMessage message = new System.Net.Mail.MailMessage(sendFrom, sendTo, sendSubject, sendMessage);

Attachment attached = new Attachment(IzvestajPutanja, MediaTypeNames.Application.Pdf);
message.Attachments.Add(attached);

System.Net.Mail.SmtpClient Smtp = new SmtpClient();
Smtp.Host = SMTP;
Smtp.Port = 587;
Smtp.EnableSsl = true;
Smtp.Credentials = new System.Net.NetworkCredential(username, password);
Smtp.Send(message);

Potpis

www.zaljubise.net - najbolji sajt za upoznavanje

Re: Slanje email-a pomocu VB.NET-a 21.06.2010. u 13:00 · pre 199 meseci #6

Been there done that

Potpis

To sto nekoliko miliona ljudi tvrdi da nisi u pravu ne znaci da stvarno nisi - Frank Zappa

https://youtu.be/DLe358DPGXU

Re: Slanje email-a pomocu VB.NET-a 21.06.2010. u 19:10 · pre 199 meseci #7

Prilikom pokusaja slanja dobijem izuzetak sa sljedecom porukom:
Command not implemented. The server response was: 5.5.1 Unrecognized command. v3sm41358343bkz.4

Ispod je moj kod. Za mail server koristim smtp.gmail.com

Code (vbnet):

        Dim adresa As String = ""

        Dim adresa_od As String = System.Configuration.ConfigurationManager.AppSettings("adresaSalje")

        Dim mail As New MailMessage()

        mail.From = New MailAddress(adresa_od)

        mail.Subject = "Test"

        mail.Body = "Test"

        mail.IsBodyHtml = False

        Dim row As DataRow

        For Each row In adrese.Rows

            adresa = row(0).ToString.Trim

            mail.To.Add(adresa)

        Next

        Dim username As String = System.Configuration.ConfigurationManager.AppSettings("username")

        Dim password As String = System.Configuration.ConfigurationManager.AppSettings("password")

        Dim mail_server As String = System.Configuration.ConfigurationManager.AppSettings("mailServer")

        Dim smtp As New SmtpClient(mail_server, 587)

        smtp.EnableSsl = True

        smtp.UseDefaultCredentials = False

        smtp.Credentials = New System.Net.NetworkCredential(username, password)

        Try

            smtp.Send(mail)

            mail.Dispose()

            mail = Nothing

            smtp = Nothing

        Catch ex As Exception

            Return -1

            Exit Function

        End Try

Re: Slanje email-a pomocu VB.NET-a 23.06.2010. u 08:26 · pre 199 meseci #8

Da li neko zna zasto dobijem navedeni izuzetak?

Re: Slanje email-a pomocu VB.NET-a 28.06.2010. u 15:10 · pre 198 meseci #9

Probaj port 465 umesto 587.

Za više detalja: gmail support

Potpis

http://www.tetraedar.net/
http://www.tetraedar.net/mmwlada/
http://www.tetraedar.net/english/

Re: Slanje email-a pomocu VB.NET-a 29.06.2010. u 09:42 · pre 198 meseci #10

Sada je izuzetak sa porukom "Timeout expired".
Kada pokrenem debug metode servis nakon komande send() duze vrijeme pokusava da
posalje email nakon cega dobijem navedeni izuzetak. Klasa SmtpClient ima "TimeOut" svojstvo
koje je podeseno na default-nu vrijednost (100 sekundi). Svojstvo sam postavljao i na vece vrijednosti
ali bih opet dobio isti izuzetak.

Re: Slanje email-a pomocu VB.NET-a 10.07.2010. u 22:09 · pre 198 meseci #11

Ja imam isti problem, gledao sam neka resenja po netu i kazu da je problem u IIS-u. Na Desktop racunaru mi ne radi a na laptopu radi isti kod. Ista mreza. Mislim da i ti i ja treba da prochackamo IIS. Jesi li instalirao IIS naknadno nakon Operativnog Sistema?

Re: Slanje email-a pomocu VB.NET-a 13.07.2010. u 09:11 · pre 198 meseci #12

- Postoji mogućnost da slanje email-a blokira firewall ili antivirus!
- Takođe proverite da li ste u okviru gmail naloga omogućili POP pristup. (gmail- Settings- Forwarding and POP/IMAP)

Re: Slanje email-a pomocu VB.NET-a 17.08.2010. u 00:11 · pre 197 meseci #13

Code:

                    MailAddress from = new MailAddress("[email protected]");
                    MailAddress to = new MailAddress("[email protected]");

                    MailMessage mail = new MailMessage(from, to);

                    mail.Subject = "Test Email iz program u  slucaju greske";

                    string Body = " Nastala greska ............................................. :" ;

                    mail.Body = Body;
                    SmtpClient smtp = new SmtpClient();

                    smtp.Host = "smtp.neka.hr";
                    smtp.Port = 25;
                    smtp.Credentials = new System.Net.NetworkCredential("[email protected]", "tetamara");
                    smtp.Send(mail);

Naravno da su ovdje domena, sifra , izmijenjeni , ovaj kod radi izvrsno sa stranice , iz web aplikacije dok iz desktop aplikacije neće i prijavio ::
Failure sending mail.Meni ne odgovara da koristim google ili bilo čije , nego da email ide sa mog servera.I da li je ovo uopšte moguće , poslati email sa desktopo aplikacijom koristeći smtp postavke servera na kom imam web prostor .Hvala
A da uguraše me u ovaj vb ,ali koristim c# , ali nije problem ako neko može d a pomogne bilo kako ...

Re: Slanje email-a pomocu VB.NET-a 17.08.2010. u 00:38 · pre 197 meseci #14

Ma, ja sam ti dao ovu temu kao primer, imas ih jos, samo kucaj u pretragu email i klikni ovog foruma.
A VB i C# ti se razlikuju po sintaksi ali je princip sasvim isti.

SMTP server ti svakako treba a ako hoces da bude na tvom racunaru instliraj neki besplatni. Druga mogucnost postoji a to je da u svoju aplikaciju integrises mogucnosti smtp servera (tj. prakticno napravis taj server) ali ti je to daleko komplikovanije.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Slanje email-a pomocu VB.NET-a 17.08.2010. u 02:10 · pre 197 meseci #15

Citat:

Neznalica_sa_ugla: [code]
Meni ne odgovara da koristim google ili bilo čije , nego da email ide sa mog servera.I da li je ovo uopšte moguće , poslati email sa desktopo aplikacijom koristeći smtp postavke servera na kom imam web prostor .Hvala

Re: Slanje email-a pomocu VB.NET-a 17.08.2010. u 03:12 · pre 197 meseci #16

Razmisli, ako vec preko desktop aplikacije mozes da saljes poruke koristeci Google SMTP server, zasto ne bi bio u mogucnosti da isto to uradis koristeci drugi server (u ovom slucaju tvoj Hosting SMTP server)?

Re: Slanje email-a pomocu VB.NET-a 17.08.2010. u 03:26 · pre 197 meseci #17

Pa ako hoces sa svog, onda instaliraj sebi, kao sto sam ti i rekao. Ako hoces da ti aplikacija radi i kao smtp server, jbg, onda uci smtp protokol pa pravi.

Potpis

Re: Slanje email-a pomocu VB.NET-a 17.08.2010. u 23:46 · pre 197 meseci #18

bojan21 , pa ja upravo pitam gdje grešim u kodu , zato sam i stavio kod !!

Re: Slanje email-a pomocu VB.NET-a 18.08.2010. u 02:29 · pre 197 meseci #19

Koji je exception message? Ima li innerexception-a i ako ima koji su njihovi Message?
Mozda ti firewall pravi problem.

Potpis

Re: Slanje email-a pomocu VB.NET-a 18.08.2010. u 10:19 · pre 197 meseci #20

Meni ovo nije pomoglo ::

System.Net.Mail.SmtpException: Failure sending mail. ---> System.Net.WebException: Unable to connect to the remote server ---> System.Net.Sockets.SocketException: A connection attempt failed because the connected party did not properly respond after a period of time, or established connection failed because connected host has failed to respond 70.87.29.134:25
at System.Net.Sockets.Socket.DoConnect(EndPoint endPointSnapshot, SocketAddress socketAddress)
at System.Net.Sockets.Socket.InternalConnect(EndPoint remoteEP)
at System.Net.ServicePoint.ConnectSocketInternal(Boolean connectFailure, Socket s4, Socket s6, Socket& socket, IPAddress& address, ConnectSocketState state, IAsyncResult asyncResult, Int32 timeout, Exception& exception)
--- End of inner exception stack trace ---
at System.Net.ServicePoint.GetConnection(PooledStream PooledStream, Object owner, Boolean async, IPAddress& address, Socket& abortSocket, Socket& abortSocket6, Int32 timeout)
at System.Net.PooledStream.Activate(Object owningObject, Boolean async, Int32 timeout, GeneralAsyncDelegate asyncCallback)
at System.Net.PooledStream.Activate(Object owningObject, GeneralAsyncDelegate asyncCallback)
at System.Net.ConnectionPool.GetConnection(Object owningObject, GeneralAsyncDelegate asyncCallback, Int32 creationTimeout)
at System.Net.Mail.SmtpConnection.GetConnection(String host, Int32 port)
at System.Net.Mail.SmtpTransport.GetConnection(String host, Int32 port)
at System.Net.Mail.SmtpClient.GetConnection()
at System.Net.Mail.SmtpClient.Send(MailMessage message)
--- End of inner exception stack trace ---
at System.Net.Mail.SmtpClient.Send(MailMessage message)
at WindowsApplication1.Email.button1_Click(Object sender, EventArgs e)
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme