Pytanie : Wizualny podstawowy emailer, Wysyłać z Doczepianie….

I potrzebować rzecz od odnosić się falcówka, wśród wizualny podstawowy projekt. I dołączać screenshot the forma i the kod. The doczepianie być wybór od combo pudełko. I polubić the użytkownik the combo pudełko rzecz i the kod attach the kartoteka wybierać the emailer i ono z the wiadomość. "Zadawalać Pomoc!" I nie mieć pojęcia dlaczego ono i I próbować nie mieć pojęcia!

(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:



Imports System.Net.Mail
Społeczeństwo Klasowy FrmEmail
    Intymny Okręt podwodny ExitToolStripMenuItem_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się ExitToolStripMenuItem.Click
        Me.Close ()
    Końcówka Okręt podwodny

    Intymny Okręt podwodny NewToolStripMenuItem_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się NewToolStripMenuItem.Click
        Me.Refresh ()
    Końcówka Okręt podwodny

    Intymny Okręt podwodny AttachFileToolStripMenuItem_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się AttachFileToolStripMenuItem.Click
        FolderBrowserDialog1.ShowDialog ()
    Końcówka Okręt podwodny

    Intymny Okręt podwodny BtnCancel_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się BtnCancel.Click
        Me.Close ()
    Końcówka Okręt podwodny

    Intymny Okręt podwodny BtnSave_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się BtnSave.Click
        Ciemnawy SmtpServer Jako Nowy SmtpClient ()
        ProgressBar1.Value = 5
        Ciemnawy Poczta Jako Nowy MailMessage ()
        ProgressBar1.Value = 10

        SmtpServer.Credentials = Nowy Net.NetworkCredential (userName: = " TxtSendFrom.Text ", hasło: = " TxtPassword.Text ")
        TxtSendFrom.Text.EndsWith ("@domain.com")
        SmtpServer.Port = 25
        SmtpServer.Host = "mail.domain.com"
        SmtpServer.EnableSsl = Fałszywy

        Mail.To.Add (TxtSendTo.Text)
        ProgressBar1.Value = 27
        Mail.From = Nowy MailAddress (TxtSendFrom.Text)
        ProgressBar1.Value = 53
        Mail.Subject = (TxtSubject.Text)
        ProgressBar1.Value = 68
        Mail.Body = (TxtBody.Text)
        ProgressBar1.Value = 100
        Próba
            SmtpServer.Send (Poczta)
            MsgBox ("Twój Email pomyślnie wysyłać. ", MsgBoxStyle.Information, "Techniczny Mailer")
            ProgressBar1.Value = (0)
        Chwyt wyjątek Jako Wyjątek
            MsgBox ("Błąd zdarzać się, Zadawalać weryfikować twój Adres Emaila i/lub Hasło! ", MsgBoxStyle.Exclamation, "Techniczny Mailer")
            ProgressBar1.Value = (0)
        Końcówka Próba
    Końcówka Okręt podwodny
Końcówka Klasa

Attachments:

mailer.png (34 KB) (Kartoteka Typ Szczegół)

Form Widok….