Ciao a tutti, avrei necessità di spedire via ftp ( al mio disco remoto messo a disposizione da alice) un file txt presente nel mio pc di casa. Io ho trovato questo script che mi è stato di molto aiuto per spedire il file.txt via posta con Outlook.Qualcuno sa dirmi come dovrebbe essere strutturato lo script per farlo via ftp, o le modifiche che si potrebbero fare a questo?
script:
filename = "c:\miofile.txt"
Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine now()
newf.WriteLine "Questo"
newf.WriteLine "E' il mio testo"
newf.WriteLine "Ciao!"
newf.Close
Set txt = fso.OpenTextFile("c:\miofile.txt")
sTo = "miaposta@mioprovider.it"
sSubj =now()
sMsg =txt.ReadAll()
sSubj= escape(sSubj)
sMsg= escape(sMsg)
oShell.Run _
"mailto:"&sTo&"?subject="&sSubj&"&body="&sMsg
wscript.sleep 1000
'''''''''' oShell.SendKeys "^~"
Grazie mille a tutti in anticipo
Ultima modifica effettuata da kiasmo72 il 30/09/2007 alle 13:11 |