john pfeiffer
  • Home
  • Categories
  • Tags
  • Archives

Cdosys godaddy.asp

<%
Set myMail=CreateObject("CDO.Message")

Name = Trim(Request.Form("Name")) 
Email = Trim(Request.Form("Email"))     
Telephone = Trim(Request.Form("Telephone")) 
Comments = Trim(Request.Form("Comments"))

myMail.Subject="Fit-PC Support Form Email"

myMail.From="from@domain.com"
myMail.To="mail-forwarding-email-address-enabled?@domain.com"

myMail.TextBody= Name & vbCrLf & Email & vbCrLf & Comments

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="relay-hosting.secureserver.net"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
Response.Redirect("support-email-success.html" & EmailFrom)
%>

  • « Fileaccess.vbs
  • Auditing.vbs »

Published

Feb 6, 2010

Category

bat-vbs-perl

~47 words

Tags

  • bat-vbs-perl 51
  • cdosys 1
  • godaddy.asp 1