code :Dim BodyMsg, Mail, BodyMsg2, Mail2'-------------SEND ORDER to customer ----'c_email = Record.fields("email1")Set Mail = CreateObject("CDO.Message")Mail.From = "Sales@GCsilver.com"Mail.To = c_email Mail.subject = "gcsilver.com Order # " & c_keyBodyMsg = "Thank You For Your Order." & Chr(10)BodyMsg = BodyMsg + "Print A Copy Of This For Your Records !" & Chr(10)Mail.TextBody = BodyMsgMail.SendSet Mail = nothing