ник: Чайник2007
Прекрасно все работает,БЛАГОДАРЮ, 
Чтобы User лишний раз не беспокоил дописал :
If Err.Number <> 0 Then
MsgBox "Отправка письма невозможна по причине: " & Err.Description, , Err.Number
Else
DoCmd.Close acForm, Me.Name
MsgBox "Почта" & ("") & " успешна отправлена."
Err.Clear
End If
Set objEmail = Nothing