سلام
خیلی ساده هست


        Dim mes As New MailMessage

        If fileZamime.PostedFile.FileName.Length > 0 Then

            Dim FileAtt As New Mail.MailAttachment(fileZamime.PostedFile.FileName  .ToString)

            mes.Attachments.Add(FileAtt)

        End If