I tried to rewrite this one multiple times, I think my head is just slow today. I can't figure out where I'm making the mistake.
[code]
Private Sub cmdEmail_Click()
On Error GoTo cmdEmail_Click_Err
On Error Resume Next
' the send object line is where I'm getting the "Argument not optional"
DoCmd.SendObject , "", "", [Contact Name] & IIf(Nz([E-mail Address]) <> "", " [" & [E-mail Address] & "]"), "", "", "", "", True, ""
If (MacroError.Number <> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
End If
cmdEmail_Click_Exit:
Exit Sub
cmdEmail_Click_Err:
MsgBox Error$
Resume cmdEmail_Click_Exit
End Sub