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 05:25.

  2. #2
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,420
    Provided Answers: 7
    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

    See clear as mud


    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 based on my own environment: vb6 sp5
    ASP based on my own environment: 5.6
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    MYLE
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.

  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
  •