Baltimore Eestlased
E-post - Estonian language version coming soon!
Welcome to Baltimore Eestlased e-mail!
From this page, you can sign-up for an e-mail account, check your e-mail, send us questions about e-mail, request a password reset, view setup instructions and check out frequently asked questions (FAQs).
<% Response.Expires = 0 Response.Buffer = True 'All variables must be declared. Dim mail, strFrom, strSubject, strBody, strTo Dim strFName, strLName, strUsername, strDayPhone, _ strEveningPhone, strAddress, strCity, _ strState, strZip, strAltEmail 'GET THE VALUES OF ALL THE FORM ELEMENTS BEING PASSED strFName = Request.Form("F1") strLName = Request.Form("L1") strUsername = Request.Form("U1") strAltEmail = Request.Form("AE1") strDayPhone = Request.Form("DP1") strEveningPhone = Request.Form("EP1") strAddress = Request.Form("A1") strCity = Request.Form("C1") strState = Request.Form("S1") strZip = Request.Form("Z1") 'SET UP THE PARTS OF THE EMAIL TO BE SENT strFrom = strEmail strTo = "jjester@baltimoreeestlased.org" strSubject = "Password Reset Request" strBody = _ "First Name: " & strFName & vbCrLf & _ "Last Name: " & strLName & vbCrLf & _ "Username: " & strUsername & vbCrLf & _ "Alt Email: " & strAltEmail & vbCrLf & _ "Day Phone: " & strDayPhone & vbCrLf & _ "Evening Phone: " & strEveningPhone & vbCrLf & _ "Address: " & strAddress & vbCrLf & _ "City: " & strCity & vbCrLf & _ "State: " & strState & vbCrLf & _ "Zip: " & strZip & vbCrLf 'SEND THE EMAIL set mail = server.CreateObject("CDONTS.NewMail") mail.From = strFrom mail.To = strTo mail.Subject = strSubject mail.Body = strBody mail.BodyFormat = 1 mail.MailFormat = 1 mail.Importance = 2 If(strFrom = "") Then mail.From = "NoReturnEmail@NoReturnEmail.com" End If If(strTo <> "") Then 'Note: If there is not a "To Address", the email will not be sent. mail.Send End If set mail = nothing 'GO TO THANK YOU PAGE Response.Clear() Response.Redirect("../eng_emailconf.htm") %><% Response.Expires = 0 Response.Buffer = True 'All variables must be declared. Dim mail, strFrom, strSubject, strBody, strTo Dim strFName, strLName, strUsername, strDayPhone, _ strEveningPhone, strAddress, strCity, _ strState, strZip, strAltEmail 'GET THE VALUES OF ALL THE FORM ELEMENTS BEING PASSED strFName = Request.Form("F1") strLName = Request.Form("L1") strUsername = Request.Form("U1") strAltEmail = Request.Form("AE1") strDayPhone = Request.Form("DP1") strEveningPhone = Request.Form("EP1") strAddress = Request.Form("A1") strCity = Request.Form("C1") strState = Request.Form("S1") strZip = Request.Form("Z1") 'SET UP THE PARTS OF THE EMAIL TO BE SENT strFrom = strEmail strTo = "jjester@baltimoreeestlased.org" strSubject = "Password Reset Request" strBody = _ "First Name: " & strFName & vbCrLf & _ "Last Name: " & strLName & vbCrLf & _ "Username: " & strUsername & vbCrLf & _ "Alt Email: " & strAltEmail & vbCrLf & _ "Day Phone: " & strDayPhone & vbCrLf & _ "Evening Phone: " & strEveningPhone & vbCrLf & _ "Address: " & strAddress & vbCrLf & _ "City: " & strCity & vbCrLf & _ "State: " & strState & vbCrLf & _ "Zip: " & strZip & vbCrLf 'SEND THE EMAIL set mail = server.CreateObject("CDONTS.NewMail") mail.From = strFrom mail.To = strTo mail.Subject = strSubject mail.Body = strBody mail.BodyFormat = 1 mail.MailFormat = 1 mail.Importance = 2 If(strFrom = "") Then mail.From = "NoReturnEmail@NoReturnEmail.com" End If If(strTo <> "") Then 'Note: If there is not a "To Address", the email will not be sent. mail.Send End If set mail = nothing 'GO TO THANK YOU PAGE Response.Clear() Response.Redirect("../eng_emailconf.htm") %>
Sign-up for e-mail Check e-mail Questions about e-mail Password reset request Set up instructions FAQs
