Open new outlook windows with body of email dynamically filled [modified]

Ragonastick

Hi guys I am currently working on a web application where people can fill out information in a timesheet, and then it will store that information on a database, and then send a link to it to payroll by email. This is the current code that I have

Dim msgs As New MailMessage

                    msgs.To = SupervisorEmailGet()
                    msgs.From = "Payroll@server.ca"
                    msgs.Subject = NameTextBox.Text &amp; " Hours for " &amp; Session("date")

                    msgs.BodyFormat = MailFormat.Text
                    msgs.Body = "Employee: " &amp; NameTextBox.Text &amp; ControlChars.NewLine &amp; "Department: " &amp; DepartmentDropDownList.SelectedItem.Text &amp; \_
                ControlChars.NewLine &amp; "Supervisor: " &amp; SupervisorDropDownList.SelectedItem.Text &amp; \_
                ControlChars.NewLine &amp; "The supervisor of " &amp; NameTextBox.Text &amp; " has viewed their time sheet." &amp; \_
                " You can view the employees hours at the website shown: http://ServerHostName/TimeSheet/NewTimeSheet.aspx?ID=" & intNewId

                    SmtpMail.SmtpServer = "smtp.bellnet.ca"

                    SmtpMail.Send(msgs)
                    msgs = Nothing

it works but the person I am working on it for wants the web app to open up their Microsoft Outlook 2007 with a new mail window(like a mailto:), but wants the information filled in dynamically through the program. The reason why they want to have a mail window is just because outlook runs locally, or if the person filling out the timesheet needs to change the body of the email. If anyone knows how to do that I would be happy or if you know how to get the code up top to run locally I would be more than satisfied with that.

modified on Wednesday, May 27, 2009 4:03 PM

Ragonastick · modified on Wednesday, May 27, 2009 4:03 PM

Found it out Here it is for anyone else that wants to know.

Dim msgs As New MailMessage

                    msgs.To = SupervisorEmailGet()
                    msgs.From = "Payroll@server.ca"
                    msgs.Subject = NameTextBox.Text & " Hours for " & Session("date")

                    msgs.BodyFormat = MailFormat.Text
                    msgs.Body = "Employee: " & NameTextBox.Text & ControlChars.NewLine & "Department: " & DepartmentDropDownList.SelectedItem.Text & \_
                ControlChars.NewLine & "Supervisor: " & SupervisorDropDownList.SelectedItem.Text & \_
                ControlChars.NewLine & "The supervisor of " & NameTextBox.Text & " has viewed their time sheet." & \_
                " You can view the employees hours at the website shown: http://ServerHostName/TimeSheet/NewTimeSheet.aspx?ID=" & intNewId

                    SmtpMail.SmtpServer = "ServerHostName.smtpname.ca"  

                    SmtpMail.Send(msgs)
                    msgs = Nothing

ServerHostName = the name of the server hosting the website. smtpname = The smtp of the server. i.e. smtp.BELLNET.ca