Dim cb1 As String = e.Form.Controls("combobox1").value Dim cb2 As String = e.Form.Controls("combobox2").value Dim tb2 As String = e.Form.Controls("textbox2").value Dim tb3 As String = e.Form.Controls("textbox3").value Dim tb4 As String = e.Form.Controls("textbox4").value Dim m As New MailSender m.Host = "mail.btte.net" m.Account = "fsxmtidc" m.Password = "*******" m.From = "fsxmtidc@btte.net" m.AddReceiver(cb1) If cb2 > "" Then m.AddReceiver(cb2) End If m.Title = tb2 m.Content = tb3 If tb4 > "" Then m.AddAttachments(tb4) End If m.SendAsync()
|