this is additional to my previous email.  I have redone the forms and code and still get error message which hangs up on:
OMsg.Attachments.Add (AttachFolder & MsgAttach1)

I am up to
If Dir(AttachFolder & MsgAttach1) = "" Then
        MsgBox "The file you selected for an attachment does not exit!"
        Else
        OMsg.Attachments.Add (AttachFolder & MsgAttach1)
    End If at Time index 26:21

kath