SendMail FeedBack Problems

Results 1 to 2 of 2

Thread: SendMail FeedBack Problems

  1. #1
    Join Date
    Dec 1969

    Default SendMail FeedBack Problems

    Hey having a problem implementing a Referal Script.<BR>Basically it uses a CDOMail Object and when i try to send email it wont send.. Any problems within the script or any reasons why you think it wouldnt work?<BR>If you can help me via email id be just as appreciative.<BR> Thanks<BR><BR>&#060;%@ LAnguage=VBScript %&#062;<BR>&#060;% Option Explicit %&#062;<BR>&#060;%<BR>&#039This Script Will send Referal to the Appropriate E-Mail Addresses<BR><BR>&#039Declaring Email Variables<BR><BR>Dim strEmails, strSenderName, strSenderMail<BR>strEmails = Request.Form ("emails")<BR>strSenderName = Request.Form ("fromname")<BR>strSenderMail = Request.Form ("fromemail")<BR><BR><BR>If strEmails = "" or strSenderName = "" or strSenderMail = "" Then<BR><BR>Response.Write ("One or More of the Fields Was Left Blank, Please Complete using Back Button on your Browser")<BR><BR>Else<BR><BR>Response.Write ("Thank You")<BR><BR><BR>&#039Now Send to Emails Specified<BR><BR>&#039Declare Send Email Variables<BR><BR>Dim strTo, strSubject, strBody<BR>Dim objCDOMail &#039the CDO Object<BR><BR>&#039Determine the Recipients Address<BR><BR>strTo = Request.Form ("emails")<BR><BR>&#039Subject AND Body Text Info<BR><BR>strSubject = "You Have Been Refered by " & strSenderName & strSendermail<BR><BR>strBody = strBody & "This is the Challenge Text"<BR>&#039In the future, this script will necessitate insertion of Name of Challenger, to which Division and PAssword As well as<BR>&#039The Users Referal ID which must be entered in order for the Manager to be Credited with 1 (ONE) Referal<BR><BR>&#039Create an instance of NEWMAIL Object<BR> Set objCDOMail = Server.CreateObject("CDONTS.NewMail")<BR><BR>&#039 Set Properties of the Object such as From Line Body Etc.<BR><BR> objCDOMail.From = strSenderName & "[" & strSenderMail & "]"<BR> objCDOMail.To = strEmails<BR> objCDOMail.Subject = strSubject<BR> objCDOMail.Body = strBody<BR><BR>&#039Send the Email<BR> objCDOMail.Send<BR><BR>&#039Reset the objCDOMail Object to Avoid Errors<BR> Set objCDOMail = Nothing <BR><BR><BR><BR>End If<BR>%&#062;

  2. #2
    Join Date
    Dec 1969

    Default RE: SendMail FeedBack Problems

    I take it there are no error messages, then?<BR><BR>First, check to be sure that your email system is configured correctly (e.g. is the SMTP server configured correctly/valid?) Does the ISUR_xxxxx user have CREATE/WRITE permissions to the outgoing email directories?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts