Hi, here is the Sub Upload(process) routine with my own e-mail notification code:
' Uploads a file
Sub Upload(process)
Dim fileTransfer, result, objMailer
on error resume next
Set fileTransfer = New pluginFileTransfer
If err.number<>0 Then Error "File Transfer Plugin Error", "Plugin cannot be initialized. Please make sure that the components required by the plugin is installed on the server.", true
If process Then targetPath = WexMapPath(Request.QueryString("folder"))
HtmlHeader appName
%>
<table border=0 cellspacing=0 cellpadding=0 width=100%>
<tr class=titleRow>
<td align=left>
<span class=boldText>Upload</span> - <%=FSO.GetBaseName(targetPath)%>
</td>
</tr>
</table>
<table border=0 cellspacing=0 cellpadding=0 width=100% height=80%>
<tr align=center class=lightRow>
<td valign=middle>
<span class=boldText>
<%
' Actual upload process
If process Then
fileTransfer.path = targetPath
result = fileTransfer.Upload()
Select Case result
Case 0
''''' Construct email.
Set objMailer = server.createobject("SMTPsvg.Mailer")
objMailer.FromAddress = "..."
objMailer.AddRecipient "...", "..."
objMailer.FromName = "..."
objMailer.Subject = "..."
objMailer.BodyText = "..."
objMailer.RemoteHost = "..."
Response.Write fileTransfer.uploadedFileName & " uploaded
"
Response.Write FormatSize(fileTransfer.uploadedFileSize) & " (" & fileTransfer.uploadedFileSize & " bytes) written
"
Response.Write "Content type: " & fileTransfer.contentType
If objMailer.SendMail Then
Response.Write "
Email notification sent!"
Else
Response.Write "Email failed - " & objMailer.Response
End If
Set objMailer = Nothing
Response.Write "<script language=""javascript"">opener.Command('Refresh');</script>"
Case 1
Response.Write "No file uploaded!"
Case 2
Response.Write "Path not found!"
Case 3
Response.Write fileTransfer.uploadedFileName & " can not be written!"
End Select
%>
</span>
<form name=formBuffer method=post action="<%=scriptName%>">
<input type=hidden name=command value="Upload">
<input type=hidden name=folder value="<%=Request.QueryString("folder")%>">
</form>
<%
Else
%>
<form enctype="multipart/form-data" name=formBuffer method=post action="<%=scriptName%>?precommand=ProcessUpload&folder=<%=server.URLEncode(Request.Form("folder"))%>&popup=true">
<input type=file name=file class=formClass>
</form>
<%
End If
%>
</td>
</tr>
</table>
<table border=0 cellspacing=0 cellpadding=0 width=100%>
<tr class=titleRow>
<td align=center>
<a href="javascript:Upload();">Upload</a> " <a href="javascript:this.close();">Close</a>
</td>
</tr>
</table>
<%
Set fileTransfer = Nothing
HtmlFooter
DestroyApp()
End Sub
If the above routine does not work your web server may have a different mail component other than the one (SMTPsvg.Mailer) used in the code, or may have none.
Firstly, find out if there is any mail component installed on your web server. Secondly, find out what mail component it is if one is installed. Thirdly, if the component is different from the one in the code replace "SMTPsvg.Mailer" with the correct object name, and the following lines with the correct methods provided by your object:
objMailer.FromAddress = "..." objMailer.AddRecipient "...", "..." objMailer.FromName = "..."
objMailer.Subject = "..."
objMailer.BodyText = "..."
objMailer.RemoteHost = "..."
Hope this helps.