Email without attachment

[rainbows]

Private Sub cmdEmail_Contact_Click()

On Error GoTo Err_Handler



    Dim strTo As String
    Dim strSubject As String
    Dim strMessageText As String
    
    Me.Dirty = False
    
    strTo = Me.EmailAddress
    strSubject = ""
    strMessageText = ""
     ' Me.[Firstname] & ":" & _
        vbNewLine & vbNewLine & _

    
  


    
    
Exit_Here:
    Exit Sub
    
Err_Handler:
    MsgBox Err.Description
    Resume Exit_Here
End Sub

i am trying to send an e.mail without an attachment using the " e.mail customer "button but it is not working. it dont run and i dont know why

thanks steve

 

[Gasman]

Nothing in that code to send an email that is why?

DoCmd.SendObject method (Access)

Office VBA reference topic

docs.microsoft.com

 

[rainbows]

Private Sub cmdEmail_Contact_Click()

Dim strTo As String
    Dim strSubject As String
    Dim strMessageText As String
     Dim strCc As String
      Dim strBcc As String
    Me.Dirty = False
    
    strTo = Me.[EmailAddress]
   ' strSubject
   ' strMessageText
      '  vbNewLine & vbNewLine & _
     ' '  "" & _
        vbNewLine & vbNewLine & _
     '   ""


   ' strCc
    DoCmd.SendObject Cc:=strCc, _
     TO:=strTo, _
               Subject:=strSubject, _
        messageText:=strMessageText, _
        EditMessage:=True
End Sub

thanks for your help , now working