Dim imgUploadedName As String = UploadPicture.PostedFile.FileName
Dim strFileNameOnly As String
Dim intFileNameLength As Integer


Try
'Spara bilden på servern först
Dim imgLen As Integer = UploadPicture.PostedFile.ContentLength
'Kolla så inte bildstorleken överstiger 500 kb.
If imgLen > 500000 Then
lblMessageInsandare.Text = "Bilden är för stor, du måste välja en mindre bildstorlek."
Exit Sub
End If
'Plocka endast fram filnamnet.
intFileNameLength = InStr(1, StrReverse(imgUploadedName), "\")
strFileNameOnly = Mid(imgUploadedName, (Len(imgUploadedName) - intFileNameLength) + 2)
'Denna variabel måste vara tom.
Dim saveUrl As String = ""
'Spara på servern
saveUrl = Server.MapPath("image/sportbilder/" & strFileNameOnly)
UploadPicture.PostedFile.SaveAs(saveUrl)
'Hämta bilden från mappen på servern.
Dim myAttachment = New MailAttachment(Server.MapPath("image/sportbilder/" & strFileNameOnly))
'Lägg till bilden i mailet.
myMail.Attachments.Add(myAttachment)
Catch ex As Exception
lblMessageInsandare.Text = "FEL! Var god försök igen."
End Try