Results 1 to 3 of 3
  1. #1
    Join Date
    Sep 2008
    Posts
    9

    Unanswered: Sending emails using ASP

    Hi,

    I have a script that sends emails to users, but the emails either get sent to the junk folder or aren't recognised.

    If I include the information for referer, sever etc will it make the email more secure and ensure it is delivered?

    I know what the server is, but how do I find out the referer, clientip and serverip?

    Why are they needed?

    strReferer = request.servervariables("HTTP_REFERER")
    strServer = Replace(request.servervariables(""),"www.","")
    strClientIP = request.servervariables("REMOTE_ADDR")
    strServerIP = request.servervariables("LOCAL_ADDR")
    Thanks,

    Unpleasant SPAMMY links removed by PC poots
    Last edited by pootle flump; 10-08-08 at 04:25.

  2. #2
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,475
    Provided Answers: 11
    Do you add the email form to the email message

    here some code I use

    Code:
    Dim StrTo
    Dim StrFrom
    Dim StrSubject
    Dim StrText
    Dim iMsg
    Dim iConf
    Dim Flds
    Dim strSmartHost
    '*************************************************************************************
    'This Script Will send out Email but there are 4 line need to be completed
    StrTo       = "" '<= who getting the emails can use the ; between the email name
    StrFrom     = "" '<= Your email address
    StrSubject  = "" '<= What you want the subject to say
    StrText     = "" '<= The message in the message no HTML other wise it get put as SPAM
    '*************************************************************************************
    ' DO NOT CHANGE ANY THING BELOW HERE EVEN THE SPELLING
    '*************************************************************************************
    set iMsg = CreateObject("CDO.Message")
    set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    Const cdoSendUsingPort = 2
    StrSmartHost = ""
    With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Update
    End With
    if trim(StrFrom)<>"" then
    	With iMsg
    		Set .Configuration = iConf
    		.To = StrTo
    		.From = StrFrom
    		.Subject = StrSubject
    		.TextBody = StrText 
    		.Send
    	End With
    End if
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
    hope this help

    StePhan McKillen
    the aim is store once, not store multiple times
    Remember... Optimize 'til you die!
    Progaming environment:
    Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.
    DONT WORRY ABOUT THOSE WHO TALK BEHIND YOUR BACK
    THEY'RE BEHIND YOU FOR A REASON

  3. #3
    Join Date
    Oct 2008
    Posts
    9
    Why don't U use JMail?
    w3JMail v 4.5 from DIMAC. For free

Posting Permissions

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