- codeproject-forum.zip
- CodeProject-forum
- Common
- forum
- Images
- admin_del.gif
- admin_delall.gif
- admin_modify.gif
- cplogo.gif
- DELETE.GIF
- IND.GIF
- MODIFY.GIF
- NEW.GIF
- news_none.gif
- news_selected.gif
- news_unselected.gif
- RED.GIF
- smiley_biggrin.gif
- smiley_confused.gif
- smiley_cool.gif
- smiley_eek.gif
- smiley_frown.gif
- smiley_mad.gif
- smiley_redface.gif
- smiley_rolleyes.gif
- smiley_smile.gif
- smiley_tongue.gif
- smiley_wink.gif
- t.gif
- WHITE.GIF
- codeproject-asp-forum.zip
- CodeProject-asp-forum
- _vti_cnf
- database
- forum.mdb
- files
- forum
- images
- _vti_cnf
- blind.gif
- t.gif
- blind.gif
- t.gif
- img_forum
- admin_del.gif
- admin_delall.gif
- admin_modify.gif
- ind.gif
- news_none.gif
- news_selected.gif
- news_unselected.gif
- smiley_biggrin.gif
- smiley_frown.gif
- smiley_redface.gif
- smiley_smile.gif
- smiley_wink.gif
- t.gif
- index.html
- codeproject-aspforum-ax.zip
- src
- app
- AspForum.dsw
- AspForum.opt
- common
- foreign
- codeproject-php-forum.zip
- config.inc
- css
- functions.inc
- img_forum
- admin_del.gif
- admin_delall.gif
- admin_modify.gif
- cplogo.gif
- DELETE.GIF
- IND.GIF
- MODIFY.GIF
- NEW.GIF
- news_new.gif
- news_none.gif
- news_selected.gif
- news_unselected.gif
- RED.GIF
- smiley_biggrin.gif
- smiley_confused.gif
- smiley_cool.gif
- smiley_eek.gif
- smiley_frown.gif
- smiley_mad.gif
- smiley_redface.gif
- smiley_rolleyes.gif
- smiley_smile.gif
- smiley_tongue.gif
- smiley_wink.gif
- t.gif
- WHITE.GIF
- index.php
- install.txt
- new.php
- reply.php
|
<%
' ###########################################################################
' #
' # file:
' # email.inc
' #
' # description:
' # email functions, using the JMail-component from
' # http://tech.dimac.net
' #
' # version:
' # 1.01 1999-12-10 Uwe Keim simplified version for forum.
' # 1.01 1999-12-08 Uwe Keim added empty-sender handling.
' # 1.00 1999-05-20 Uwe Keim file created.
' #
' # copyright:
' # Written by Uwe Keim <keim@zeta-software.de>
' # Adapted by Chris Maunder <cmaunder@mail.com>
' # Copyright (c) 1998-2000. All Rights Reserved.
' #
' # Check the Code Project (http://www.codeproject.com) for the latest.
' #
' # These scripts may be used in any way you desire PROVIDING the
' # '"powered by CodeProject" logo remains in the top left corner of the
' # front index page. This file may be redistributed unmodified by any
' # means PROVIDING it is not sold for profit without the authors written
' # consent, and providing that this notice and the authors' name and all
' # copyright notices remains intact.
' #
' # An email letting us know how you are using it would be nice as well.
' #
' # This file is provided "as is" with no expressed or implied warranty.
' # The author accepts no liability for any damage/loss of business that
' # this product may cause.
' #
' ###########################################################################
Dim MailComponentAvailable
MailComponentAvailable = False
' ***********************************************************************
' send an email without attachment. The err object is set if an error occurs.
' NOTE: If you have a Mail component registered on your system then set
' MailComponentAvailable (above) as True, and modify the script
' below to use whatever syntax your mailer uses.
sub SendEMail( mail_from, from_name, mail_to, to_name, mail_subject, mail_body )
'Response.Write "Server : " & MAIL_SVR & vbCRLF &_
' "Port : " & MAIL_PORT & vbCRLF &_
' "Email from : " & mail_from & vbCRLF &_
' "From : " & from_name & vbCRLF &_
' "Email to : " & mail_to & vbCRLF &_
' "To : " & to_name & vbCRLF &_
' "Subject : " & MAIL_PREFIX & mail_subject & vbCRLF
if MailComponentAvailable Then
' //////////////////////////////////////////////////////////////////
dim JMail
set JMail = Server.CreateObject("JMail.SMTPMail")
' this is my local SMTP server
JMail.ServerAddress = MAIL_SVR & ":" & CStr(MAIL_PORT)
' no empty sender allowed.
if mail_from="" then mail_from = mail_to
if from_name="" then from_name = to_name
' this is the sender
JMail.Sender = mail_from
JMail.SenderName = from_name
JMail.Subject = MAIL_PREFIX & mail_subject
' the recipients
JMail.AddRecipientEx mail_to, to_name
' add some body
JMail.Body = mail_body
' normal priority
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' send it and handle errors
JMail.Execute
set JMail = nothing
' //////////////////////////////////////////////////////////////////
end if
end sub
%>
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
Chris Maunder is the co-founder of
CodeProject and
ContentLab.com, and has been a prominent figure in the software development community for nearly 30 years. Hailing from Australia, Chris has a background in Mathematics, Astrophysics, Environmental Engineering and Defence Research. His programming endeavours span everything from FORTRAN on Super Computers, C++/MFC on Windows, through to to high-load .NET web applications and Python AI applications on everything from macOS to a Raspberry Pi. Chris is a full-stack developer who is as comfortable with SQL as he is with CSS.
In the late 1990s, he and his business partner David Cunningham recognized the need for a platform that would facilitate knowledge-sharing among developers, leading to the establishment of CodeProject.com in 1999. Chris's expertise in programming and his passion for fostering a collaborative environment have played a pivotal role in the success of CodeProject.com. Over the years, the website has grown into a vibrant community where programmers worldwide can connect, exchange ideas, and find solutions to coding challenges. Chris is a prolific contributor to the developer community through his articles and tutorials, and his latest passion project,
CodeProject.AI.
In addition to his work with CodeProject.com, Chris co-founded ContentLab and DeveloperMedia, two projects focussed on helping companies make their Software Projects a success. Chris's roles included Product Development, Content Creation, Client Satisfaction and Systems Automation.