1與0的世界

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        Dim mail As New MailMessage(Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text, Me.RichTextBox1.Text)

        '附加檔案
        If (Me.TextBox4.Text <> "") Then
            mail.Attachments.Add(New System.Net.Mail.Attachment(Me.TextBox4.Text))
        End If

        mail.IsBodyHtml = True

        Dim emailClient As New SmtpClient
        emailClient.Host = "smtp.gmail.com"
        emailClient.Port = 587
        emailClient.EnableSsl = True

        emailClient.Credentials = New System.Net.NetworkCredential("信箱帳號", "信箱密碼")

        emailClient.Timeout = 150

        emailClient.Send(mail)
        MessageBox.Show("郵件已寄出", "成功")
    End Sub