Dear ,
Check this out. may be it can help you.
Dim objNewMail 'As CDONTS.NewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
ObjNewMail.To = "Your emailid"
ObjNewMail.From = "Sender emailid"
ObjNewMail.Subject = "subject"
ObjNewMail.Body = "body"
ObjNewMail.Send
Set ObjNewMail = Nothing
or find the file attached
kejeckam <[EMAIL PROTECTED]> wrote:
I've even edited the code to reflect like below. please what can be
wrong?
<%
Option Explicit
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "[EMAIL PROTECTED]"
objNewMail.To = "[EMAIL PROTECTED]"
objNewMail.Subject = "This is a test Mail"
objNewMail.Body = "This is the Body text of this test mail."
if objNewMail.Send then
Response.Write "Email has been sent"
else
response.write "Email wasn't sent"
end if
Set objNewMail = Nothing
%>
--- In [email protected], "Dan Powderhill"
<[EMAIL PROTECTED]> wrote:
> Looking at the HTML output by your page, there's nothing to
display if
> it executes the code successfully.
>
> Dan
>
> ________________________________
>
> From: [email protected]
> [mailto:[EMAIL PROTECTED] On Behalf Of
Mark E
> Sent: 02 June 2005 16:06
> To: [email protected]
> Subject: Re: [AspClassicAnyQuestionIsOk] Re: email bit
>
>
> What do you mean by the page is not displayed?
>
> Mark
>
> kejeckam <[EMAIL PROTECTED]> wrote:
> Still doesn't work. No errors but page is not displayed
>
>
>
>
> --- In [email protected], Mark E
> <[EMAIL PROTECTED]> wrote:
> > Are you getting any errors?
> >
> > Not sure if it matters, but try "Server." in front of your
> createobject:
> >
> > Set objMail = Server.CreateObject("CDONTS.NewMail")
> >
> > Mark
> >
> >
> > kejeckam <[EMAIL PROTECTED]> wrote:
> > Please am doing an email page for my app and I've tested the app
> by
> > uploading a page with the info below but IU can't get any
results
> > even though the host documentation says it supports CDO and ASP.
> Do
> > they still need to do any server settings to make the mails go
or
> am
> > I doing something wrong. please I need an urgent reply
> > Kene
> >
> >
> >
> >
> > <%@ Language=VBScript %>
> > <% Option Explicit %>
> > <% Response.Buffer = True %>
> >
> >
> > <html>
> >
> > <head>
> > <title> Test Response </title>
> > </head>
> >
> > <body>
> > <%
> >
> > Dim objMail
> > Set objMail = CreateObject("CDONTS.NewMail")
> > objMail.From= "[EMAIL PROTECTED]"
> > objMail.To= "[EMAIL PROTECTED]"
> >
> > objMail.Subject="Testing ASP mail"
> > objMail.Body= "ThankGod for his mercies"
> > objMail.Send
> > Set objMail=nothing
> > %>
> > </body>
> >
> > </html>
> >
> >
> >
> >
> >
> > ---------------------------------
> > Yahoo! Groups Links
> >
> > To visit your group on the web, go to:
> > http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
> >
> > To unsubscribe from this group, send an email to:
> > [EMAIL PROTECTED]
> >
> > Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service.
> >
> >
> >
> > [Non-text portions of this message have been removed]
>
>
>
>
>
> ---------------------------------
> Yahoo! Groups Links
>
> To visit your group on the web, go to:
> http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
>
> To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of
Service.
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
> ________________________________
>
> Yahoo! Groups Links
>
>
> * To visit your group on the web, go to:
> http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
>
> * To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]
subject=Un
> subscribe>
>
> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service <http://docs.yahoo.com/info/terms/> .
>
>
>
>
> [Non-text portions of this message have been removed]
---------------------------------
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
How much free photo storage do you get? Store your friends n family photos for
FREE with Yahoo! Photos.
http://in.photos.yahoo.com
----------
<%@ Language=VBScript %>
<%
' change to address of your own SMTP server
strHost = "smtp.cybercon.com"
If Request("Send") <> "" Then
Dim objNewMail 'As CDONTS.NewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
ObjNewMail.To = Request("To")
ObjNewMail.From = Request("From")
ObjNewMail.Subject = Request("Subject")
ObjNewMail.Body = Request("Body")
ObjNewMail.Send
Set ObjNewMail = Nothing
End If
%>
<%If Request("Send")="" Then%>
<form method="POST" action="cdonts.asp">
<input type=hidden name=Send value=asdasdasdasasddas>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse:
collapse" bordercolor="#111111" width="74%" id="AutoNumber1">
<tr>
<td width="26%">From Email</td>
<td width="25%"><input type="text" name="From" size="20"></td>
<td width="18%">From Name</td>
<td width="31%"><input type="text" name="FromName" size="20"></td>
</tr>
<tr>
<td width="26%">To Email</td>
<td width="74%" colspan="3"><input type="text" name="To" size="20"></td>
</tr>
<tr>
<td width="26%">Subject</td>
<td width="74%" colspan="3"><input type="text" name="Subject"
size="56"></td>
</tr>
<tr>
<td width="26%" valign="top">Body</td>
<td width="74%" colspan="3"><textarea rows="5" name="Body"
cols="48"></textarea></td>
</tr>
<tr>
<td width="26%" valign="top"> </td>
<td width="74%" colspan="3">
<input type="submit" value="Submit" name="B1"></td>
</tr>
</table>
</center>
</div>
</form>
<%Else%>
Mail has been sent to <%=Request("To")%><%end if%>
[Non-text portions of this message have been removed]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
