<% function WA_Universal_Email_2_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "mailing@maryannhodorowicz.com" MailSubject = "New Member for Mary Ann's Mailing List" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mail.maryannhodorowicz.com") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries 'CC Entries 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "Following is information for a new subscriber to Mary Ann's mailing list. " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Name: " MailBody = MailBody & cStr(Request.Form("mailname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("mailemail")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("street")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("city")) MailBody = MailBody & ", " MailBody = MailBody & cStr(Request.Form("state")) MailBody = MailBody & " " MailBody = MailBody & cStr(Request.Form("zipcode")) MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "mailing@maryannhodorowicz.com" MailSubject = "Welcome to Mary Ann's Preferred Mailing List" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mail.maryannhodorowicz.com") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"hodorowicz@comcast.net") 'CC Entries 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Mary Ann Hodorowicz's Mailing List" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "

Thank you for signing up to be on Mary Ann's Preferred Mailing List.

" & vbCrlf & "" MailBody = MailBody & "

Soon, you will be receiving information on:" & vbCrlf & "" MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "

To be removed from this mailing list, please send an email to remove@maryannhodorowicz.com

" & vbCrlf & "" MailBody = MailBody & "

Thanks!

" & vbCrlf & "" MailBody = MailBody & "

Mary Ann

" & vbCrlf & "" MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method") = "POST")) then 'WA Universal Email object="AspMail" 'Send Loop Once Per Entry WA_Universal_Email_2_SendMail("hodorowicz@comcast.net") 'Send Mail All Entries if (""<>"") then Response.Redirect("") end if end if %> <% if ((Request.ServerVariables("Request_Method") = "POST")) then 'WA Universal Email object="AspMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("" & cStr(cStr(Request.Form("mailemail"))) & "") 'Send Mail All Entries if ("thanks.htm"<>"") then Response.Redirect("thanks.htm") end if end if %> Join Mary Ann's Preferred Mailing List
Home
About Mary Ann
Why Hire a Consultant?
Consulting: Scope of Services and Turn Key Programs
Professional Publications
Seminars, Workshops, Presentations and Continuing Education Programs for Professionals and Consumers
Wellness and Health Promotion Program
Partial Client List
Client Testimonials
FAQs
Reimbursement and Other Updates
Sign Up for Mary Ann's Preferred Mailing List
Contact Mary Ann


Join Mary Ann's Preferred Mailing List
 

Join Mary Ann's Preferred Mailing List. There is no charge to join, and no obligation of any kind, now or in the future. Yes, there really is such a thing as a "free lunch"!

By joining, you will receive timely notices on things you won't
want to miss out on, such as:

  • Mary Ann's upcoming seminars and workshops on "hot" topics

  • Other great programs from experts in our field

  • Special offers and deep $$ money-saving discounts on Mary Ann's publications and resource guides for dietitians, billers and other health professionals

  • New products and services from professional organizations, individuals and companies

  • New or interesting websites not-to-be-missed

  • Medicare and private payer reimbursement updates

  • New methodologies and technologies in MNT, DSMT, weight management, etc.

Fill out infomation below and press "Submit"
to be added to Mary Ann's Preferred Mailing List
Name *
Email *
Street: *
City:*
State:*
Zip Code:*
 

At any time you can remove your name from the mailing list by simply sending
an email to: remove@maryannhodorowicz.com

View Privacy Statement

 

 

 
 
>> Back to Top
 
 
Mary Ann Hodorowicz Consulting, LLC
12921 Sycamore
Palos Heights, Illinois 60465
Office:  708-359-3864
Email: hodorowicz@comcast.net
Fees and Terms & Conditions
Disclaimer
Privacy Statement
©2008 Mary Ann Hodorowicz Consulting, LLC
Page Last Updated: September 16, 2008 11:04 PM
     
Mary Ann has a rare combination of consultant to both professionals and the public. She is a well known dietitian in the Chicago , IL area. She travels all over the state of Illinois presenting on health reimbursement - including insurance, medicare and self management diabetes programs (DSME). Also, she created a health, wellness, health promotion and health education program targeted for companies and organizations who want to demonstrate concern for employee well-being, and increase employee productivity and morale.

Dietician Mary Ann consults with corporations and industry as a media nutrition spokesperson in area of food and nutrition. You will often see Mary Ann speaking before large consumer audiences on nutrition for kidney disease, nutrition for cardiac health, nutrition education for adolescents and current nutrition topics. She is a true nutrition expert!