Send email in asp

DrRakha

Send email in asp function creation and call it later in code snippet .

Code:

<html>
<%

End Sub
Function sendMail(ByVal mailTo, ByVal mailFrom, ByVal mailSubject, ByVal mailBody)

 Dim objMailSender = Server.CreateObject("CDONTS.NewMail")
 objMailSender.To = mailTo
 objMailSender.From = mailFrom
 objMailSender.Subject = mailSubject
 objMailSender.Body = mailBody
 objMailSender.Send()
 objMailSender = Nothing
 If Err Then
 SendMail = False
 Else
 SendMail = True
 End If
End Function
%>

Calling the send mail function
<%
sendMail "[email protected]" , "[email protected]" , "Mail Subject" , "Mail Body"
%>
</html>

You also add attachment to email like this

Code:

<%
 Dim objMailSender
 'create an instance of CDONTS
 objMailSender = Server.CreateObject("CDONTS.NewMail")
 'From Email
 objMailSender.From = "[email protected]"
 'TO Email.
 objMailSender.To = "[email protected]"
 'Email Subject
 objMailSender.Subject = "subject:contains attach"
 'File path to be attached
 objMailSender.AttachFile("c:\img.gif")
 'Email body
 objMailSender.Body = "Email body."
 Send the Email
 objMailSender.Send()
 objMailSender = Nothing
%>

You also add HTML to your email body , example

Code:

<%
 'create objects.
 Dim objEmailSender, strHTMLContent
 objEmailSender = Server.CreateObject("CDONTS.NewMail")
 'Add some html
 strHTMLContent = strHTMLContent & "<html><head><title>Title</title></head>"
 strHTMLContent = strHTMLContent & "<body>"
 strHTMLContent = strHTMLContent & "Paragraph part"
 strHTMLContent = strHTMLContent & " <hr>"
 strHTMLContent = strHTMLContent & "Bold string"
 strHTMLContent = strHTMLContent & "<a href=""#"">link</a>"
 strHTMLContent = strHTMLContent & "</body></html>"
 'From Email
 objEmailSender.From = "[email protected]"
 'To Email
 objEmailSender.To = "[email protected]"
 'Subject
 objEmailSender.Subject = "HTML email"
 ' The body is HTML content
 objEmailSender.Body = strHTMLContent

 'Used to format html emails.
 objEmailSender.BodyFormat = 0
 objEmailSender.MailFormat = 0


 'Send the Email.
 objEmailSender.Send()
 objEmailSender = Nothing
%>

Java

C/C++

PHP

C#

HTML

CSS

ASP

Javascript

JQuery

AJAX

XSD

Python

Matlab

R Scripts

Weka

Send email in asp

Topic Tags