Κώδικας σε κουμπί εντολής

[alex]

Καλησπέρα σε όλη την παρέα!
Στο παρακάτω κώδικα σε κουμπί εντολής στέλνω μήνυμα μέσου του outlook ανοίγει κανονικά για να σταλεί.Το στέλνω πηγαίνει στα εξερχόμενα αλλά αν δεν ανοίξω το outlook δεν φεύγει το μήνυμα με το συνημμένο.
Μήπως πρέπει να ανοίγει στο τέλος το outlook
Τι κάνουμε στην περίπτωση αυτή; Γνωρίζει κάποιος φίλος.Παραθέτω τον κώδικα:

Private Sub Εντολή222_Click()
On Error GoTo Err_Εντολή222_Click
 Dim stDocName As String

    stDocName = "MonthDates"
   ' DoCmd.OpenReport stDocName, acPreview
   
     Dim EmailAddress, Subject, MessageText

    EmailAddress = "imaretarta@hotmail.com"
    Subject = "Arta"
    MessageText = "ola kala. " & vbNewLine & _
                  "                                                         " & vbNewLine & _
                  "                                                         " & vbNewLine & _
                  "                                                         " & vbNewLine & _
                  "o kathigitis " & vbNewLine & _
                  "                                                         " & vbNewLine & _
                  "                                                         " & vbNewLine & _
                  "Alex. "


'Set Outlook.Application = CreateObject("Outlook.Application")
 'Outlook.Application.Visible = True
    On Error Resume Next
  
 DoCmd.SendObject acSendReport, stDocName, acFormatPDF, EmailAddress, , , Subject, MessageText, True

DoCmd.Maximize
    DoCmd.RunCommand acCmdZoom150
  
Exit_Εντολή222_Click:

Exit Sub
Err_Εντολή222_Click:
    MsgBox Err.Description
    Resume Exit_Εντολή222_Click
    
 

    End Sub