G
Guest
I am brand new to programming and was hoping that someone could tell me how
to take the next step in my windows application. I need to be able to email
not just the contents of a form but an image, if you will, of the entire
form. I have a form that my users will fill out and which contains labels as
well as text fields. I have the program configured to email me and that part
is working. I now need to figure out how to get the program to email that
entire form and all of its contents to me. Below is a sample of my code.
Imports System.Net.Mail
Public Class AdmissionsFinancialCounselor
Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label12.Click
Dim F2 As New MS4AdmiFinCoun
F2.ShowDialog()
End Sub
Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label15.Click
Dim F2 As New MisysRad
F2.ShowDialog()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim message As New MailMessage("(e-mail address removed)",
"(e-mail address removed)", "Account Request Form", "Account Request Form")
Dim emailClient As New SmtpClient("dcsh1ex")
emailClient.Send(message)
MsgBox("Email Sent!")
End Sub
Private Sub AdmissionsFinancialCounselor_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Someone please help if you know what I'm talking about?
to take the next step in my windows application. I need to be able to email
not just the contents of a form but an image, if you will, of the entire
form. I have a form that my users will fill out and which contains labels as
well as text fields. I have the program configured to email me and that part
is working. I now need to figure out how to get the program to email that
entire form and all of its contents to me. Below is a sample of my code.
Imports System.Net.Mail
Public Class AdmissionsFinancialCounselor
Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label12.Click
Dim F2 As New MS4AdmiFinCoun
F2.ShowDialog()
End Sub
Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label15.Click
Dim F2 As New MisysRad
F2.ShowDialog()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim message As New MailMessage("(e-mail address removed)",
"(e-mail address removed)", "Account Request Form", "Account Request Form")
Dim emailClient As New SmtpClient("dcsh1ex")
emailClient.Send(message)
MsgBox("Email Sent!")
End Sub
Private Sub AdmissionsFinancialCounselor_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Someone please help if you know what I'm talking about?