Vraag : Visuele basisemailer, verzendt met Gehechtheid….

Ik moet punten van een referenced omslag, binnen een visueel basisproject vastmaken. Ik heb een screenshot van de vorm en de code vastgemaakt. De gehechtheid is een selectie uit een combodoos. Ik zou de gebruikers het punt van de combodoos willen selecteren en de code zou hen het geselecteerde dossier aan emailer vastmaken en zou het met het bericht verzenden. „Gelieve te helpen!“ Ik heb geen idee hoe te om het ertoe te brengen om te werken en ik heb alles geprobeerd!

" codeBody " 


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
Openbare Klasse FrmEmail
    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten ExitToolStripMenuItem_Click ExitToolStripMenuItem.Click
        Me.Close ()
    Sub van het eind

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten NewToolStripMenuItem_Click NewToolStripMenuItem.Click
        Me.Refresh ()
    Sub van het eind

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten AttachFileToolStripMenuItem_Click AttachFileToolStripMenuItem.Click
        FolderBrowserDialog1.ShowDialog ()
    Sub van het eind

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten BtnCancel_Click BtnCancel.Click
        Me.Close ()
    Sub van het eind

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten BtnSave_Click BtnSave.Click
        Schemerige SmtpServer als Nieuwe SmtpClient ()
        ProgressBar1.Value = 5
        Schemerige Post als Nieuwe MailMessage ()
        ProgressBar1.Value = 10

        SmtpServer.Credentials = Nieuwe Net.NetworkCredential (gebruikersbenaming: = " TxtSendFrom.Text ", wachtwoord: = " TxtPassword.Text ")
        TxtSendFrom.Text.EndsWith („@domain.com“)
        SmtpServer.Port = 25
        SmtpServer.Host = „mail.domain.com“
        SmtpServer.EnableSsl = Vals

        Mail.To.Add (TxtSendTo.Text)
        ProgressBar1.Value = 27
        Mail.From = Nieuwe MailAddress (TxtSendFrom.Text)
        ProgressBar1.Value = 53
        Mail.Subject = (TxtSubject.Text)
        ProgressBar1.Value = 68
        Mail.Body = (TxtBody.Text)
        ProgressBar1.Value = 100
        Probeer
            SmtpServer.Send (Post)
            MsgBox („Uw E-mail werd met succes verzonden. “, MsgBoxStyle.Information, „Technische Mailer“)
            ProgressBar1.Value = 0
        Vangst ex als Uitzondering
            MsgBox (een „Fout is voorgekomen, hebben gelieve uw E-mailAdres en/of Wachtwoord geverifi�ërd! “, MsgBoxStyle.Exclamation, „Technische Mailer“)
            ProgressBar1.Value = 0
        Het eind probeert
    Sub van het eind
De Klasse van het eind

Attachments:

van

mailer.png (34 KB) Form Mening….