procedure or fuction 'expects parameter was not supplied

#Region "View sent email by date"
    Public Function view_sent_email(ByVal [date] As Date) As DataTable
        Dim list As New List(Of csParameterList)
        Dim dal As New csSQLDALVB
        list.Add(New csParameterList("@e_send_date", SqlDbType.VarChar, [date].ToString()))
        Return dal.executespreturndt("view_sent_email_by_date", list)
    End Function
#End Region

ALTER proc [dbo].[view_sent_email_by_date](
@e_sent_date datetime)
as
if exists(select email_sender,email_subject,email_body,e_sent_date,EMAIL_SENT_TO from sent_Email
                where convert(varchar(30),e_sent_date,106) = convert(varchar(30),@e_sent_date,106))
		begin
			select  email_sender as 'Email Sender',email_subject as 'Subject',EMAIL_SENT_TO as 'Message Destination Email',email_body as 'Email Body',e_sent_date as 'Message Sent Time'from sent_Email
                  where convert(varchar(30),e_sent_date,106) =  convert(varchar(30),@e_sent_date,106)
		end;
else
begin
select'1'as'no sent email'
end;

Procedure or function'view_email_by_date', expects parameter'@e_sent_date', which was not passed.