Email with HTML files - active server pages, ASP, vbscript

Email with HTML files

	Print
	Email

Submitted on: 11/21/2002 2:54:13 AM
By: Snoopy Jedi
Level: Intermediate
User Rating:

By 2 Users
Compatibility:ASP (Active Server Pages), HTML, VbScript (browser/client side)

Users have accessed this code 3498 times.

(About the author)

User can send the email with a html files display in the email. It is for Newsletter purpose.

Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!


    '**************************************
    ' for :Email with HTML files
    '**************************************
    1) Pls email To me(paradsie45@hotmail.com) if you feel the code is good.
    2) Pls write it To your file.
    <META name="Author" content="s.j.">

code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


    '**************************************
    ' Name: Email with HTML files
    ' Description:User can send the email wi
    '     th a html files display in the email. It
    '     is for Newsletter purpose.
    ' By: Snoopy Jedi
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=8024&lngWId;=4    'for details.    '**************************************
    
    <TITLE>Adding Attachment</TITLE>
    <%
    Sub ReplaceInBodyPart(bp)
    	Const strTokentoFind = "SIGNATURE"
    	Const strTokenToReplace = "Benny WONG Chee Khiun"
    	Set objStream = bp.GetDecodedContentStream
    	strContent = objStream.ReadText
    	strContent = Replace(strContent, strTokentoFind, strTokenToReplace)
    	objStream.Position = 0
    	objStream.SetEOS
    	objStream.WriteText strContent
    	objStream.Flush
    	Set objStream = nothing
    End Sub
    Sub modifyHtmlAndTextBodyParts(msg)
    	Set objBP = msg.HTMLBodyPart
    	ReplaceInBodyPart objBP
    	Set objBP = nothing
    	Set objBP = msg.TextBodyPart
    	ReplaceInBodyPart objBP
    	Set objBP = nothing
    End Sub
    Set objMsg = Server.CreateObject ("CDO.Message")
    With objMsg
    	.To = """Benny"" <xxx@xxx.com.my>"
    	.From = """Snoopy Jedi"" <xxx@hotmail.com>"
    	.Subject = "This is the subject"
    	.CreateMHTMLBody "file://c:\Attachment.htm"
    End With
    ModifyHtmlAndTextBodyParts objMsg
    objMsg.Send 
    Set objMsg = nothing
    %>

Other 6 submission(s) by this author

Report Bad Submission

Your Vote!

Other User Comments

11/22/2002 8:22:50 AM:Bhushan Paranjpe

Good code,
Five Globes from me.

Add Your Feedback!

Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.

NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular code, please click here.