Function Requires a valid ADT argument

Hi, I have faced problem that is “Function Requires a valid ADT argument” in below line 3rd line , as in Body1 have o value , so kindly tell e any one what is the solution for this

1.Dim body1 As notesitem

2.Set body1=RL.getfirstitem(“Attachments”)

3.Call NewDoc.CopyItem(Body1,“Attach”)

Subject: Function Requires a valid ADT argument

If Not Body1 is Nothing Then Call NewDoc.CopyItem(Body1,“Attach”)

End If

Konrad