asp_web_howto thread: Receive and send emails.
We require following functionality for one of our project.
1. Receiving of Mail through any POP account and storing into database
2. Sending e-mail each after 5 mins.
I don't know what are tools we have to use. Any help in this regard
will highly appreciated.
Best Regards
Shahzad Godil
Karachi-Pakistan
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_000_01C06425.A361A2C0
Content-Type: text/plain;
charset="iso-8859-1"
<<ForgetPassw.asp>> <<ForgetPassw.htm>>
I hope this help you
Franco
___________________________________
Perretta Franco
Council of Europe
Department of Information Technology
Information Access Unit
67075 Strasbourg Cedex
tel: +33 (0)3 88 41 22 18 fax: +33 (0)3 88 41 27 39
mailto:franco.perretta@c...
http://www.coe.int
-----Original Message-----
From: Shahzad Godil [mailto:shahzad@f...]
Sent: Tuesday 12 December 2000 19:25
To: ASP Web HowTo
Subject: [asp_web_howto] Receive and send emails.
We require following functionality for one of our project.
1. Receiving of Mail through any POP account and storing into database
2. Sending e-mail each after 5 mins.
I don't know what are tools we have to use. Any help in this regard
will highly appreciated.
Best Regards
Shahzad Godil
Karachi-Pakistan
---
MaximumASP offers enhanced hosting solutions on the Windows 2000 platform.
Dedicated processor, RAM, and server resources provide dedicated server
performance at virtual server prices. Commercial components provided; custom
components allowed.
$subst('Email.Unsub')
------_=_NextPart_000_01C06425.A361A2C0
Content-Type: application/octet-stream;
name="ForgetPassw.asp"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="ForgetPassw.asp"
<%@ LANGUAGE=3D"VBSCRIPT" %>
<%option explicit%>
<%response.buffer=3Dtrue%>
<!--#include file=3D"../../Include/ADOVBS.INC"-->
<!--#include file=3D"../../Include/ConnectionString.inc"-->
<HTML>
<HEAD>
<META NAME=3D"GENERATOR" Content=3D"Microsoft Visual Studio 6.0">
<META HTTP-EQUIV=3D"Content-Type"
content=3D"text/html;charset=3Diso-8859-1">
<TITLE>ForgetPassword</TITLE>
</HEAD>
<BODY>
<table background=3D"../../../images/degradebleu.gif" border=3D"0"
cellPadding=3D"1" cellSpacing=3D"1" style=3D"HEIGHT: 500px; WIDTH:
600px" width=3D"600" height=3D"500">
<tr>
<td height=3D"100" style=3D"HEIGHT: 100px; WIDTH: 100px"
width=3D"100" vAlign=3D"top">
<img align=3D"top" alt =3D"" src=3D"../../../images/DitCoeInt.gif"
WIDTH=3D"84" HEIGHT=3D"42">
</td>
<td vAlign=3D"top">
<p align=3D"center"><strong style=3D"FONT-SIZE: large">Nouvelle
Assistant Web de la DIT</strong></p>
<p align=3D"center"><strong style=3D"FONT-SIZE:
medium">Recuperation du mot de passe</strong></p>
<br><br><br><br><br><br>
<%
'-----------------------------------------------------------------------
------------------------------------
dim MyConn
dim Rs
Dim qd
Dim Temp
Dim Temp1
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance
Dim strBody
Temp=3Drequest.form("EMail")
Set MyConn =3D Server.CreateObject("ADODB.Connection")
call MyConn.Open(CONNECTION_STRING_DSN, CONNECTION_STRING_UID,
CONNECTION_STRING_PWD)
Set Rs =3D Server.CreateObject("ADODB.Recordset")
qd =3D "SELECT EMail, IDUser FROM Ceuser WHERE Ceuser.EMail =3D '" &
Temp & "'"
Set Rs=3DMyConn.Execute(qd)
If Rs.EOF=3DFalse Then
Temp=3DRs("EMail")
Temp1=3DRs("IDUser")
qd =3D "SELECT * FROM AccesDIT WHERE AccesDIT.IDUser =3D " & Temp1
Set Rs=3DMyConn.Execute(qd)
'----------------------------- SEND MAIL WITH PASSWORD
---------------------------------------
Temp1=3DRs("Password")
%>
<%
strFrom=3D"DIT@c..."
strTo=3DTemp
strSubject=3D"Votre Mot de pass"
strBody=3D"Votre mot de pass est: " & Temp1
lngImportance=3D1
Set myCDONTSMail =3D CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
Set myCDONTSMail =3D Nothing
%>
<p align=3D"center"><strong style=3D"BACKGROUND-COLOR: #00fa9a;
FONT-SIZE: medium">
Une courrier =E9lectronique avec votre mot de passe a
=E9t=E9 envoy=E9</strong></p>
</td>
</tr>
</table>
<%
'----------------------------- END SEND MAIL WITH PASSWORD
----------------------------------
Else
%>
<script LANGUAGE=3D"VBScript">
Sub Window_onLoad
MsgBox "Votre courrier =E9lectronique n'existe pas",0,"Attention"
End Sub
</script>
<%
End If
MyConn.Close
set MyConn=3Dnothing
%>
</BODY>
</HTML>
------_=_NextPart_000_01C06425.A361A2C0
Content-Type: application/octet-stream;
name="ForgetPassw.htm"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="ForgetPassw.htm"
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta NAME=3D"GENERATOR" Content=3D"Microsoft Visual Studio 6.0">
<title></title>
<link REL=3D"stylesheet" HREF=3D"../../../Styles/CGimc006.css"
TYPE=3D"text/css">
</head>
<body>
<table border=3D"0" cellPadding=3D"1" cellSpacing=3D"1"
style=3D"HEIGHT: 500px; WIDTH: 600px" width=3D"600" height=3D"500">
<tr>
<td height=3D"100" width=3D"100" vAlign=3D"top">
<img align=3D"top" alt =3D"" src=3D"../../../images/DitCoeInt.gif"
WIDTH=3D"84" HEIGHT=3D"42"
></td>
<td vAlign=3D"top">
<p align=3D"center"><strong style=3D"FONT-SIZE: large">Nouvelle
Assistant Web de la DIT</strong></p>
<p align=3D"center"><strong style=3D"FONT-SIZE:
medium">R=E9cup=E9ration du mot de passe</strong></p>
<H1>
<align=3DLEFT><br><br><br> Vous ne souvenez plus
du votre mot de passe?</H1>
<P>
<align=3DLEFT> Entrez votre
courrier =E9lectronique et envoyez</P>
<form action=3D"ForgetPassWd.asp" method=3D"post"
name=3D"FoForgEmail">
<p align=3D"center"> </p>
<p align=3D"center">E-Mail: <input name=3D"EMail"
style=3D"HEIGHT: 22px; WIDTH: 229px" value =3D@c... align=3D"
center">
<p align=3D"center"><input type=3D"submit" name=3D"submit1"
value=3D"Envoyer">
<input name=3D"reset1" type=3D"reset" value=3D"Effacer"></p>
<p align=3D"left"></form> </P></td></tr></table>
</body>
</html>
------_=_NextPart_000_01C06425.A361A2C0--
View Cart
