I have the procedure below to email a patient using records from a form attached to a table.

Everything works fine up to the point where it opens Outlook Express and populate the fields. However, the mail is not being sent even though everything is the way it should be.

When I click the Send button in Outlook the email disappears from the screen. The email is just not being sent.

Any suggestion.

   Dim patEmail As String ' email of patient from tblPatient
   Dim patName As String 'patient name from tblPatient
   Dim objOutlook As Outlook.Application
   Dim objOutlookMsg As Outlook.MailItem
   Dim objOutlookRecip As Outlook.Recipient
   Dim objOutlookAttach As Outlook.Attachment
   Dim apTime As Variant 'appointmrnt time taken from form
   Dim apDate As Date ' appointment date taken form form

    'Get email address and patient name from tblPatient
    Set rst = New ADODB.Recordset
    Set cnn = CurrentProject.Connection
    strSQL = "SELECT Email, FName, LName, MI FROM tblPatient " & _
    "WHERE PatientID = " & Forms!frmAppointment!frmAppointmentSub!PatientID
    rst.Open strSQL, cnn, adOpenKeyset, , adCmdText

    patEmail = rst!Email
    patName = rst!FName & " " & rst!MI & " " & rst!LName
    apTime = Format(Forms!frmAppointment!frmAppointmentSub!Appt Time, "h:mm AM/PM")
    apDate = Forms!frmAppointment!ApptDay


   ' Create the Outlook session.
   Set objOutlook = CreateObject("Outlook.Application")


        ' Create the e-mail message
                Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
                patEmail = rst!Email

                       With objOutlookMsg
                                      ' Add the To recipient(s) to the e-mail message
                                      Set objOutlookRecip = .Recipients.Add(patEmail)
                                      objOutlookRecip.Type = olTo

                                      ' Set the Subject, Body, and Importance of the e-mail message.
                                      .Subject = "Dental Appointment"
                                      .Body = "Dear " & patName & ":" & _
                                      vbCr & vbCr & "This is a you of you dental appointment scheduled for " & Format(apDate, "dddd, mmmm d, yyyy") & " at " & apTime & "." & _
                                       vbCr & vbCr & "If you are unable to keep the appointment please call me at (800) 555 8270" & _
                                       vbCr & vbCr & "Sharon"
                                      .Importance = olImportanceHigh 'High importance
                                      .Display
                                     ' .Send
                    End With

   rst.Close
   Set rst = Nothing

Remove the apostrophe from the line that is. Be careful when testeing or people are going to receive surprise emails
As a side note sending data like this via email seems a little risky.

--

Joe

That does not seem to be the solution. It seems that when the apostrophe is removed the email is sent directly and is not displayed on the screen.

Even when I remove it it still does not send.

Thanks for any other comments.

These two statements seem to contradict each other. If you remove the apostrophe does it send? If it does but you want it to wait before sending you need to add some waiting code of maybe a prompt box asking if they now wish to send.

--

Joe

Joe:

If I keep the apostrophe Outlook opens and displays the email. You cilck send form Outlook to manually send the email. When I do this Outlook closes and the email is not sent because it does not show up in my inbox.

Removing the apostrophe does not open Outlook and the email is also not send.

Hope that clarify that.