E-mail con allegato ma non va

[mexican]

Ciao a tutti, ho un form dove si può inserire un'allegato da un fileupload e poi mi richiamo una funzione per inviare la mail. Ma mi da problemi quando carico l'allegato non me lo trova. Anche se quando faccio il debug mi funziona. Dove sbaglio?

Ecco il codice:

Public Sub inviaEmail(ByVal ricevente As String, ByVal mittente As String, ByVal soggetto As String, ByVal tipo_testo As String, ByVal dati As String, ByVal allegato As String)

''Creo l'oggetto MailMessage
        Dim mail As New MailMessage()
        'set the addresses

        mail.From = New MailAddress(mittente)

        mail.To.Add(ricevente)
        'set the content

        mail.Subject = soggetto
        mail.Body = testo
        mail.IsBodyHtml = True
        'Aggiungo un allegato

        'add an attachment from the filesystem
        If allegato <> "noallegato" Then
            mail.Attachments.Add(New Attachment(allegato))
        End If
        Dim smtp As New SmtpClient("smtp.ilnegoziodelfranchising.com")
        smtp.Credentials = New System.Net.NetworkCredential("info@ilnegoziodelfranchising.com", "negozio7web")

        Try
            smtp.Send(mail)
        Finally
            mail.Dispose()
            smtp = Nothing
        End Try
    End Sub

Ecco come la chiamo

Call inviaEmail("mail_ricevente", email.Text, "Richiesta info", "Richiesta_Info", dati, allegato1.PostedFile.FileName)

Cosa non va?
Grazie a tutti

[Gluck74]

considerando che la funziona la chiami passando il parametro allegato1.PostedFile.FileName, allora la variabile allegato dentro la funzione, conterrà semplicemente un nome di un file.
Ma lo hai salvato già sul server questo file? credo proprio di no!!!!

allora devi usare queste righe di codice:

Dim fileSulServer as string = Path.Combine(Server.MapPath("/uploads"), "ilNomeDelFile.ext")
allegato1.SaveAs(fileSulServer)
Call inviaEmail("mail_ricevente", email.Text, "Richiesta info", "Richiesta_Info", dati, fileSulServer)
//inoltre cancella il file sul server se non ti server per altre operazioni

Altra soluzione:
Puoi pensare di passare l'intero stream di allegato1 alla funzione, e creare quindi l'allegato dallo stream senza salvarlo prima sul server:

Call inviaEmail("mail_ricevente", email.Text, "Richiesta info", "Richiesta_Info", dati, allegato1.PostedFile.InputStream)

Public Sub inviaEmail(ByVal ricevente As String, ByVal mittente As String, ByVal soggetto As String, ByVal tipo_testo As String, ByVal dati As String, ByVal allegato As Stream)

    ...
    ...

        'add an attachment from the filesystem
        If allegato.Length > 0 Then
            mail.Attachments.Add(New Attachment(allegato, "nomedilefile"))
        End If
    ...
    ...

End Sub

[mexican]

Originariamente inviato da Gluck74
considerando che la funziona la chiami passando il parametro allegato1.PostedFile.FileName, allora la variabile allegato dentro la funzione, conterrà semplicemente un nome di un file.
Ma lo hai salvato già sul server questo file? credo proprio di no!!!!

allora devi usare queste righe di codice:

Dim fileSulServer as string = Path.Combine(Server.MapPath("/uploads"), "ilNomeDelFile.ext")
allegato1.SaveAs(fileSulServer)
Call inviaEmail("mail_ricevente", email.Text, "Richiesta info", "Richiesta_Info", dati, fileSulServer)
//inoltre cancella il file sul server se non ti server per altre operazioni

Altra soluzione:
Puoi pensare di passare l'intero stream di allegato1 alla funzione, e creare quindi l'allegato dallo stream senza salvarlo prima sul server:

Call inviaEmail("mail_ricevente", email.Text, "Richiesta info", "Richiesta_Info", dati, allegato1.PostedFile.InputStream)

Public Sub inviaEmail(ByVal ricevente As String, ByVal mittente As String, ByVal soggetto As String, ByVal tipo_testo As String, ByVal dati As String, ByVal allegato As Stream)

    ...
    ...

        'add an attachment from the filesystem
        If allegato.Length > 0 Then
            mail.Attachments.Add(New Attachment(allegato, "nomedilefile"))
        End If
    ...
    ...

End Sub

Mi dice Tipo 'Stream' non definito. che intende?

[mexican]

Originariamente inviato da mexican
Mi dice Tipo 'Stream' non definito. che intende?

Questo l'ho risolto mi mancava System.IO

ma è spuntato quest'altro:
Impossibile convertire il valore di tipo 'System.IO.Stream' in 'String'.

'add an attachment from the filesystem
Riga 274:        If allegato.Length > 0 Then
Riga 275:            mail.Attachments.Add(New Attachment(allegato), "curriculum")
Riga 276:        End If

[Gluck74]

la parentesi, l'hai chiusa troppo presto.....

mail.Attachments.Add(New Attachment(allegato, "curriculum"))

[mexican]

Originariamente inviato da Gluck74
la parentesi, l'hai chiusa troppo presto.....

mail.Attachments.Add(New Attachment(allegato, "curriculum"))

Tnx!!!