allegato ed invio pagina

[marco1970]

salve,
sul forum ho trovato questo script funzionante:

'============ Linkbruttocane su specifiche MSDN ================
'* assicurarsi di non inserire javascript che potrebbero dare errori nel client
'* di posta dei vostri utenti
'=====qui non modificare================
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg

Set .Configuration = iConf

'*===== modifica CreateMHTMLBody From To e subject
'cambiare la pagina dopo aver provato a riceverla, vedasi codice utilizzabile nella pagina stessa
'per essere sicuri di non inviare codice non leggibile dal client di posta

.CreateMHTMLBody "http://www.miosito.it/public/mail/mail.htm"

'mettere la propria mail e separare eventuali destinatari con virgola
.To = request.form("indirizzo")

'mettere una mail valida come mittente
.From = "info@xxx.it"

.Subject = request.form("oggetto")
.Send
End With

set iMsg =nothing
set iConf =nothing

vorrei sapere come fare per inviare in allegato un file.
Grazie
Marco

[viki1967]

.AddAttachment (cartella & "\" & fileAllegato)

[marco1970]

ti ringrazio per la risposta ma mi sembra, da una ricerca sul forum, che non posso spedire il file sul mio computer direttamente ma fare prima un upload.
Vero?
e se si come???
Grazie
Marco

[Roby_72]

Se l'invio parte dal server il file deve risiedere sul server.
Il processo si chiama upload, cerca nel forum.

Roby

[viki1967]

Oppure utilizza questa risorsa "già pronta":

http://www.planet-source-code.com/vb...15200584256065