asp-classic - ファイルをサーバーにアップロードし、電子メールに添付して asp で送信する

Question

ユーザー入力に従ってファイルをアップロードするアプリケーションを使用しています.. Web サーバー上のフォルダーに画像をアップロードします。アップロード後に画像が添付されたメールをスクリプトで送信するようになりました

どんな助けでも本当に感謝しています....

Answer 1

コードでこれを行うことを強くお勧めします。サーバー上のフォルダーの変更を監視しないでください。たとえば、アップロードが完了したら、CDOSYS を使用して電子メールを送信します。

ファイル名とファイルの場所を知っていて、このパスを変数として保存できると仮定します。あなたが選んだ変数名がわからないので、という変数を使用しますuploadedFilePath

<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.yourDomainName.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="myEmail@myDomainName.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="myPassword"

ObjSendMail.Configuration.Fields.Update

ObjSendMail.To = "someone@AntoherDomain.com"
ObjSendMail.Subject = "Upload complete"
ObjSendMail.From = "me@myDomainName.com"
ObjSendMail.AddAttachment = uploadedFilePath

ObjSendMail.HTMLBody = "<p>Hi,<br /> A file has been uploaded!</p>"    
ObjSendMail.Send    
Set ObjSendMail = Nothing
%>