<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & PowerPoint.Application</title>
</head>
<body>
<%
Dim ppApp,ppName,FileName
Set ppApp = Server.CreateObject("PowerPoint.Application")
ppApp.Visible = True
ppName = "MySlides.ppt"
FileName = "MyPP/"
'*** Open Document ***'
ppApp.Presentations.Open(Server.MapPath(ppName))
'*** Save Document ***'
ppApp.ActivePresentation.SaveAs Server.MapPath(FileName),17
ppApp.Quit
Set ppApp = Nothing
'**************** Send Email ******************'
Dim myMail,HTML,strMsg
Dim objFSO,objFile,Vol
Set myMail = Server.CreateObject("CDONTS.NewMail")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFolder(Server.MapPath("MyPP"))
For Each Vol in objFile.Files
If Trim(Vol.Name) <> "" Then
myMail.AttachFile Server.MapPath("MyPP/"&Vol.Name)
End If
Next
myMail.From = "Webmaster <[email protected]>"
myMail.Value("Reply-To") = "[email protected]"
myMail.To = "[email protected]"
myMail.Subject = "My PowerPoint (Convert to JPG)"
myMail.MailFormat = 0
myMail.BodyFormat = 0
myMail.Body = "Convert to JPG"
myMail.Send
Set myMail = Nothing
Set objFile = Nothing
Set objFSO = Nothing
'*************** End Send Email ***************'
Response.write"PowerPoint Created and Email Sending."
%>
</body>
</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 00
