Dunkel objNewMail, objNewMail1
Fastställd objCDOMail = Server.CreateObject (”CDONTS.NewMail”)
objCDOMail.To = ”[email protected]”,
objCDOMail.From = ”[email protected]”,
txtBody = ”har någon kontaktat dig från din plats”, & VbCrLf & VbCrLf & ”namnger: ” & namnge, & VbCrLf & VbCrLf & ”ringer: ” & ringa & VbCrLf & VbCrLf & ”e-posten: ” & e-post & VbCrLf & VbCrLf & ”fallbeskrivning: ” & descrip
objCDOMail.Subject = ”någon har kontaktat dig från din website”,
objCDOMail.Body = txtBody
objCDOMail.Send
Fastställd objCDOMail = ingenting
Om e-post <> "" därefter
Uppsättning objCDOMail1 = Server.CreateObject (”CDONTS.NewMail”)
objCDOMail1.To = e-post
objCDOMail1.From = ”[email protected]”,
txtBody = ”detta är ett automatiserat svar. Behaga svarar inte ........ har mottagit ditt meddelande. Tacka dig för träffande oss om ditt fall. Vi ska försök att kontakta dig using informationen som du har git. Du kan också ne oss på 1-888 som är tom under det normalaaffärstimmar, eller du kan lämna ett meddelande, efter affärstimmar” & VbCrLf & VbCrLf & VbCrLf & VbCrLf & ”du har sänt efter informationen: ” & VbCrLf & VbCrLf & ”namnger: ” & namnge, & VbCrLf & VbCrLf & ”ringer: ” & ringa & VbCrLf & VbCrLf & ”e-posten: ” & e-post & VbCrLf & VbCrLf & ”fallbeskrivning: ” & descrip
objCDOMail1.Subject = ”din submission har mottagits”,
objCDOMail1.Body = txtBody
objCDOMail1.Send
Uppsättning objCDOMail1 = ingenting
Avsluta om
|