next »

[TechnicalTalk]

 TechnicalTalk » Programming and Web Development » Classic ASP 3.0
 Sending email Using asp

[hardy]

hardy  

 Sending email Using asp

I have heard that we can use cdonts component to send email using asp, can anyone tell me where will I get code so that I can make contact us form in asp which sends email to me when user submit a form?

Thanks

[Kailash]

Kailash  

 Re: Sending email Using asp

Yes, you can use CDONTS ASP component to send mail using ASP. Below is the sample code which you can use to send mail:
   

Code:

<%
      Set objMail = Server.CreateObject("CDONTS.NewMail")

      objMail.To = “Name <email@domain.com>”
      objMail.From = “Name<email@domain.com>”
      objMail.Subject = “CDONTS Sample Script”

      BodyText = “This is a test email.” & vbCRLF
      BodyText = BodyText & “It was sent using CDONTS”  & vbCRLF
      BodyText = BodyText & vbCRLF

      objMail.Body = BodyText
      objMail.AttachFile “c:\attachfile.txt”  // For Attachment

      objMail.Send
%>

Also it is recommended you validate all input values before it send mail.

Kailash

[Anchor]

Anchor  

 Re: Sending email Using asp

I'm guessing the emails are getting flagged as spam because that's exactly what they are? lol

[polas]

polas  

 Re: Sending email Using asp

I'm guessing the emails are getting flagged as spam because that's exactly what they are?

I suppose it depends on what they use the script for - if the OP wants to allow his website visitors to send him a message then he can always tweak his junk filter to allow that sort of message to arrive

[Jenniferlinn]

Jenniferlinn  

 Re: Sending email Using asp

Sub SendMailCDONTS(aTo, Subject, TextBody, aFrom)
  Const CdoBodyFormatText = 1
  Const CdoBodyFormatHTML = 0
  Const CdoMailFormatMime = 0
  Const CdoMailFormatText = 1
  Dim Message 'As New cdonts.NewMail
 
  'Create CDO message object
  Set Message = CreateObject("cdonts.NewMail")
  With Message
   
    'Set email adress, subject And body
    .To = aTo
    .Subject = Subject
    .Body = TextBody
   
    'set mail And body format
    .MailFormat = CdoMailFormatText
    .BodyFormat = CdoBodyFormatText
   
    'Set sender address If specified.
    If Len(aFrom) > 0 Then .From = aFrom
   
    'Send the message
    .Send
  End With
End Sub
***********************************************************************************************************************

Sending email using CDOSYS
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

[polas]

polas  

 Re: Sending email Using asp

Excellent, thanks for posting that

[traveladriatic12]

traveladriatic12  

 Re: Sending email Using asp

great----------- thanks for sharing this thread.