[Problem] Wysyłanie danych na e-mail'a...

[Gość LastPhoenix450]

Witajcie!

 

Z góry was zmotywuje ,że jest mi to potrzebne do waszego kochanego metińskiego paczera

Otóż funkcja czyta dane z pliku i wstrzykuje je do textbox'a ;s

Teraz mam coś takiego - wysyłanie na e-maila

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Net
Imports System.Net.Mail
Namespace Klient
Public Partial Class Form1
 Inherits Form
 Public Sub New()
  InitializeComponent()
 End Sub
 Private Sub Form1_Load(sender As Object, e As EventArgs)
 End Sub
 Private Sub button1_Click(sender As Object, e As EventArgs)
  Dim client As New SmtpClient("www.poczta.o2.pl", 587)
  client.Credentials = New NetworkCredential("[email protected]", "balbina76")
  Dim msg As New MailMessage()
  msg.From = New MailAddress(textBox1.Text)
  msg.[To].Add(New MailAddress(textBox2.Text))
  msg.Subject = textBox3.Text
  msg.Body = textBox4.Text
  Try
   client.Send(msg)
  Catch Błąd As Exception
   MessageBox.Show("Krytyczny błąd podczas procederu, sprawdź
połączenie SMPT." & Convert.ToString(Błąd))
  End Try
 End Sub
 Friend Property Credentials() As NetworkCredentail
  Get
   Return m_Credentials
  End Get
  Set
   m_Credentials = Value
  End Set
 End Property
 Private m_Credentials As NetworkCredentail
End Class
End Namespace

 

Proszę o analizę kodu, skrócenie, uproszczenie albo danie innego ;x

[WujekFeuer]

[url="http://www.youtube.com/watch?v=Pq-uh9_XfnY"]http://www.youtube.com/watch?v=Pq-uh9_XfnY[/url]

Przestudiuj

[Gość LastPhoenix450]

hahaahahhahahh wtf?

"500 Internal Server Error
Niestety, wystąpiła jakaś nieprawidłowość.
Do rozwiązania problemu wysłano zespół świetnie przeszkolonych małp."

 

//Źle wklejony url :P

 

@Edit

 

Super, już wszystko posklejałem do kupy i działa, były jedynie małe problemy

z uwierzytelnieniem SMTP na innych pocztach niż G-mail, ale jakoś sobie poradziłem ;p

Łap lajka, proszę o close

[Seba65439]

A muglbys podac ten dzialajacy kod

[MiszczuOfWorldH]

Tak gównianego kodu jeszcze nie widziałem, lepiej skończ z tym.