[Resolvido]Erro ao enviar email.

Boas pessoal.
Tenho um botão a enviar um email, ele detecta o email do campo e anexa ao email a ser enviado e funciona bem mas o problema é quando não tem email no campo, tentei enviar o foco para lá e dá mas depois dá o erro na mesma, será que me podem dizer qual é o erro.
O que tenho é o seguinte:

Private Sub Enviar_Orçamento_por_Mail_Click()
If IsNull(Forms!Clientes!Email) Or Forms!Clientes!Email = "" Then
MsgBox "… necessário o preenchimento do Email antes de proseguir", vbInformation, "Atençao"
Forms.Clientes!Email.SetFocus
End If
Dim x As String, y As String, z As String

x = "Assunto da mensagem"
y = "Mensagem"
z = Me.Email.Value

On Error Resume Next
DoCmd.SendObject acReport, "Orçamento_mail", "PDFFormat(*.pdf)", z, "", "", x, y, True, """"
End Sub

Mudei o primeiro código para (Ao receber foco) e já funciona.