Frage : Visual Basic emailer, senden mit Zubehören….

Ich muss Einzelteile von einem bezogenen Faltblatt, innerhalb eines Visual- Basicprojektes anbringen. Ich habe ein screenshot der Form und des Codes angebracht. Das Zubehör ist eine Vorwähler von einem kombinierten Kasten. Ich möchte, dass die Benutzer das Einzelteil des kombinierten Kastens vorwählen und der Code wurde sie Befestigung die Akte, die zum emailer und es mit der Mitteilung zu senden vorgewählt wurde. „Bitte helfen!“ Ich habe keine Idee, wie man sie erhält, um zu arbeiten und ich habe alles versucht!

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:



Imports System.Net.Mail
Allgemeine Kategorie FrmEmail
    Privates VorExitToolStripMenuItem_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt ExitToolStripMenuItem.Click
        Me.Close ()
    Enden-Unterseeboot

    Privates VorNewToolStripMenuItem_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt NewToolStripMenuItem.Click
        Me.Refresh ()
    Enden-Unterseeboot

    Privates VorAttachFileToolStripMenuItem_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt AttachFileToolStripMenuItem.Click
        FolderBrowserDialog1.ShowDialog ()
    Enden-Unterseeboot

    Privates VorBtnCancel_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt BtnCancel.Click
        Me.Close ()
    Enden-Unterseeboot

    Privates VorBtnSave_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt BtnSave.Click
        Schwaches SmtpServer als neues SmtpClient ()
        ProgressBar1.Value = 5
        Schwache Post als neues MailMessage ()
        ProgressBar1.Value = 10

        SmtpServer.Credentials = neues Net.NetworkCredential (username: = " TxtSendFrom.Text ", Kennwort: = " TxtPassword.Text ")
        TxtSendFrom.Text.EndsWith („@domain.com“)
        SmtpServer.Port = 25
        SmtpServer.Host = „mail.domain.com“
        SmtpServer.EnableSsl = falsch

        Mail.To.Add (TxtSendTo.Text)
        ProgressBar1.Value = 27
        Mail.From = neues MailAddress (TxtSendFrom.Text)
        ProgressBar1.Value = 53
        Mail.Subject = (TxtSubject.Text)
        ProgressBar1.Value = 68
        Mail.Body = (TxtBody.Text)
        ProgressBar1.Value = 100
        Versuch
            SmtpServer.Send (Post)
            MsgBox („Ihre eMail wurde erfolgreich gesendet. “, MsgBoxStyle.Information, „technische Werbung“)
            ProgressBar1.Value = 0
        Fang ex als Ausnahme
            MsgBox („eine Störung ist aufgetreten, bitte Ihr email address und/oder Kennwort überprüft! “, MsgBoxStyle.Exclamation, „technische Werbung“)
            ProgressBar1.Value = 0
        Enden-Versuch
    Enden-Unterseeboot
Enden-Kategorie

Attachments:

mailer.png (34 KBs) (Akten-Art Details)

Form Ansicht….