I don't understand exactly what's going on here... my From field IS declaried and there is a variable assigned to it... :S
<script runat="server">
dim strBodyOnLoad as string
dim strFirst, strMiddle, strLast, strOffice, strINFODomain, strPassword, strEmailAddress as string
dim HighSpeedDSL, MobileMLS, AdBuilder, Manager, OfficeAssistant, BackOffice as boolean
dim intID as integer
dim ObjConn as New SQLConnection(ConfigurationSettings.AppSettings("INFOSiteConnectionString")) 'Don't Change
Sub Page_Load()
If NOT Page.IsPostBack then
If request.Cookies("ChampionRealtyINFO") is nothing then server.Transfer("default.aspx")
If request.Cookies("ChampionRealtyINFO")("ID") is nothing then server.Transfer("default.aspx")
intID = request.Cookies("ChampionRealtyINFO")("ID")
lblDate.Text=DateTime.Now.ToLongDateString()
Load_UserSettings()
End If
'updates last known time user was logged in (within 5 minutes).
Update_LastLogin()
End Sub
Function Load_UserSettings()
dim strSQL as string = "SELECT First, Middle, Last, Office, Email, INFOPassword, INFODomain, HighSpeedDSL, MobileMLS, AdBuilder, " & _
"Manager, OfficeAssistant, BackOffice FROM Employees WHERE ID=" & intID
dim ObjCommand as New SQLCommand(strSQL, ObjConn)
dim ObjDataReader as SQLDataReader
ObjConn.Open()
ObjDataReader = ObjCommand.ExecuteReader(CommandBehavior.CloseConnection)
If ObjDataReader.Read()=True then
If NOT ObjDataReader("First") Is DBNull.Value then
lblGreeting.Text=ObjDataReader("First").ToString()
strFirst = ObjDataReader("First").ToString()
End If
If NOT ObjDataReader("Middle") Is DBNull.Value then strMiddle=ObjDataReader("Middle").ToString()
If NOT ObjDataReader("Last") Is DBNull.Value then strLast=ObjDataReader("Last").ToString()
If NOT ObjDataReader("Office") Is DBNull.Value then strOffice=ObjDataReader("Office").ToString()
If NOT ObjDataReader("INFOPassword") Is DBNull.Value then strPassword=ObjDataReader("INFOPassword").ToString()
If NOT ObjDataReader("INFODomain") Is DBNull.Value then lnkMailLinkTop.NavigateURL="http://mail." & ObjDataReader("INFODomain").ToString()
If NOT ObjDataReader("Email") Is DBNull.Value then strEmailAddress=ObjDataReader("Email")
If NOT ObjDataReader("HighSpeedDSL") Is DBNull.Value then HighSpeedDSL=ObjDataReader("HighSpeedDSL")
If NOT ObjDataReader("MobileMLS") Is DBNull.Value then MobileMLS=ObjDataReader("MobileMLS")
If NOT ObjDataReader("AdBuilder") Is DBNull.Value then AdBuilder=ObjDataReader("AdBuilder")
If NOT ObjDataReader("Manager") Is DBNull.Value then Manager=ObjDataReader("Manager")
If NOT ObjDataReader("OfficeAssistant") Is DBNull.Value then OfficeAssistant=ObjDataReader("OfficeAssistant")
If NOT ObjDataReader("BackOffice") Is DBNull.Value then BackOffice=ObjDataReader("BackOffice")
End If
ObjConn.Close()
End Function
Function Update_LastLogin()
dim strSQL as string = "UPDATE Employees SET LastLogin=@LastLogin WHERE ID=@ID"
dim ObjCommand as New SQLCommand(strSQL, ObjConn)
With ObjCommand
.Parameters.Add(New SQLParameter("@LastLogin", DateTime.Now))
.Parameters.Add(New SQLParameter("@ID", intID))
End With
ObjConn.Open()
ObjCommand.ExecuteNonQuery()
ObjConn.Close()
End Function
Sub SendMail (Obj As Object, E As EventArgs)
If page.isvalid then
dim mailObj AS New MailMessage
mailObj.From = strEmailAddress
mailObj.To = Reason.SelectedItem.Value
mailObj.CC = strEmailAddress
mailObj.Subject = Reason.SelectedItem.Text
mailObj.Body = "Agent Name: " & strFirst & " " & strLast & Environment.NewLine() & Environment.NewLine() & _
"Agent Office: " & strOffice & Environment.NewLine() & Environment.NewLine() & _
"MLS Number: " & MLSNum.Text & Environment.NewLine() & Environment.NewLine() & _
"Message: " & Environment.NewLine() & EmailBody.Text
mailObj.Priority = MailPriority.High
mailObj.BodyFormat = MailFormat.Text
SmtpMail.SmtpServer = "Server32"
'SmtpMail.Send(mailObj)
'server.transfer("mailconf.aspx")
End If
End Sub
</script>
Have you actually run the code and debugged it, or done a Response.Write() of each of the values to verify that what you think you are setting is being sent?
yes. the variable that was holding the email address was not sticking. I loaded it into a session variable and everything works fine. It's EXTREMELY tempting to use session variables for EVERYTHING... im holding back, but oh brother!!! :s
You must remember that once the page loads all variables get destroyed.....so the variable that you loaded will not be there when you click your email button...they must be persisted. You either have to save them in Session, Cookie, Cache, Viewstate, Hidden
fields, etc if you want to use them when you post back.
<div id="result_box" dir="ltr" style="text-align: left;">I have the same error but the error appeared to me on Server2008 with IIS 7.</div><div id="result_box" dir="ltr" style="text-align: left;">My code works great, until i moved on Server2008.Why?</div><div
id="result_box" dir="ltr" style="text-align: left;"><div id="result_box" dir="ltr" style="text-align: left;">Can someone help me?</div><div id="result_box" dir="ltr" style="text-align: left;"> </div><div id="result_box" dir="ltr" style="text-align: left;"><div
id="result_box" dir="ltr" style="text-align: left;">Thanks in advance,</div><div id="result_box" dir="ltr" style="text-align: left;">Petre
</div> </div> </div>
JoshWithrow
Participant
957 Points
236 Posts
At least one of the From or Sender fields is required, and neither was found.
Sep 08, 2003 07:19 PM|LINK
<script runat="server"> dim strBodyOnLoad as string dim strFirst, strMiddle, strLast, strOffice, strINFODomain, strPassword, strEmailAddress as string dim HighSpeedDSL, MobileMLS, AdBuilder, Manager, OfficeAssistant, BackOffice as boolean dim intID as integer dim ObjConn as New SQLConnection(ConfigurationSettings.AppSettings("INFOSiteConnectionString")) 'Don't Change Sub Page_Load() If NOT Page.IsPostBack then If request.Cookies("ChampionRealtyINFO") is nothing then server.Transfer("default.aspx") If request.Cookies("ChampionRealtyINFO")("ID") is nothing then server.Transfer("default.aspx") intID = request.Cookies("ChampionRealtyINFO")("ID") lblDate.Text=DateTime.Now.ToLongDateString() Load_UserSettings() End If 'updates last known time user was logged in (within 5 minutes). Update_LastLogin() End Sub Function Load_UserSettings() dim strSQL as string = "SELECT First, Middle, Last, Office, Email, INFOPassword, INFODomain, HighSpeedDSL, MobileMLS, AdBuilder, " & _ "Manager, OfficeAssistant, BackOffice FROM Employees WHERE ID=" & intID dim ObjCommand as New SQLCommand(strSQL, ObjConn) dim ObjDataReader as SQLDataReader ObjConn.Open() ObjDataReader = ObjCommand.ExecuteReader(CommandBehavior.CloseConnection) If ObjDataReader.Read()=True then If NOT ObjDataReader("First") Is DBNull.Value then lblGreeting.Text=ObjDataReader("First").ToString() strFirst = ObjDataReader("First").ToString() End If If NOT ObjDataReader("Middle") Is DBNull.Value then strMiddle=ObjDataReader("Middle").ToString() If NOT ObjDataReader("Last") Is DBNull.Value then strLast=ObjDataReader("Last").ToString() If NOT ObjDataReader("Office") Is DBNull.Value then strOffice=ObjDataReader("Office").ToString() If NOT ObjDataReader("INFOPassword") Is DBNull.Value then strPassword=ObjDataReader("INFOPassword").ToString() If NOT ObjDataReader("INFODomain") Is DBNull.Value then lnkMailLinkTop.NavigateURL="http://mail." & ObjDataReader("INFODomain").ToString() If NOT ObjDataReader("Email") Is DBNull.Value then strEmailAddress=ObjDataReader("Email") If NOT ObjDataReader("HighSpeedDSL") Is DBNull.Value then HighSpeedDSL=ObjDataReader("HighSpeedDSL") If NOT ObjDataReader("MobileMLS") Is DBNull.Value then MobileMLS=ObjDataReader("MobileMLS") If NOT ObjDataReader("AdBuilder") Is DBNull.Value then AdBuilder=ObjDataReader("AdBuilder") If NOT ObjDataReader("Manager") Is DBNull.Value then Manager=ObjDataReader("Manager") If NOT ObjDataReader("OfficeAssistant") Is DBNull.Value then OfficeAssistant=ObjDataReader("OfficeAssistant") If NOT ObjDataReader("BackOffice") Is DBNull.Value then BackOffice=ObjDataReader("BackOffice") End If ObjConn.Close() End Function Function Update_LastLogin() dim strSQL as string = "UPDATE Employees SET LastLogin=@LastLogin WHERE ID=@ID" dim ObjCommand as New SQLCommand(strSQL, ObjConn) With ObjCommand .Parameters.Add(New SQLParameter("@LastLogin", DateTime.Now)) .Parameters.Add(New SQLParameter("@ID", intID)) End With ObjConn.Open() ObjCommand.ExecuteNonQuery() ObjConn.Close() End Function Sub SendMail (Obj As Object, E As EventArgs) If page.isvalid then dim mailObj AS New MailMessage mailObj.From = strEmailAddress mailObj.To = Reason.SelectedItem.Value mailObj.CC = strEmailAddress mailObj.Subject = Reason.SelectedItem.Text mailObj.Body = "Agent Name: " & strFirst & " " & strLast & Environment.NewLine() & Environment.NewLine() & _ "Agent Office: " & strOffice & Environment.NewLine() & Environment.NewLine() & _ "MLS Number: " & MLSNum.Text & Environment.NewLine() & Environment.NewLine() & _ "Message: " & Environment.NewLine() & EmailBody.Text mailObj.Priority = MailPriority.High mailObj.BodyFormat = MailFormat.Text SmtpMail.SmtpServer = "Server32" 'SmtpMail.Send(mailObj) 'server.transfer("mailconf.aspx") End If End Sub </script>douglas.reil...
All-Star
23315 Points
4647 Posts
Re: At least one of the From or Sender fields is required, and neither was found.
Sep 08, 2003 07:52 PM|LINK
Programming Microsoft Web Forms
My Blog
JoshWithrow
Participant
957 Points
236 Posts
Re: At least one of the From or Sender fields is required, and neither was found.
Sep 08, 2003 09:32 PM|LINK
TheNige
Participant
1475 Points
295 Posts
Re: At least one of the From or Sender fields is required, and neither was found.
Sep 08, 2003 11:09 PM|LINK
JoshWithrow
Participant
957 Points
236 Posts
Re: At least one of the From or Sender fields is required, and neither was found.
Sep 09, 2003 01:59 PM|LINK
Petre.Radu
Member
2 Points
4 Posts
Re: At least one of the From or Sender fields is required, and neither was found.
Nov 14, 2008 08:28 AM|LINK
Hi,
<div id="result_box" dir="ltr" style="text-align: left;">I have the same error but the error appeared to me on Server2008 with IIS 7.</div><div id="result_box" dir="ltr" style="text-align: left;">My code works great, until i moved on Server2008.Why?</div><div id="result_box" dir="ltr" style="text-align: left;"><div id="result_box" dir="ltr" style="text-align: left;">Can someone help me?</div><div id="result_box" dir="ltr" style="text-align: left;"> </div><div id="result_box" dir="ltr" style="text-align: left;"><div id="result_box" dir="ltr" style="text-align: left;">Thanks in advance,</div><div id="result_box" dir="ltr" style="text-align: left;">Petre</div> </div> </div>