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

[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

[Meteora]

Καλησπέρα Αλέξανδρε.
Δοκίμασε τον κώδικα που επισυνάπτω. Με αυτόν δουλεύω σχεδόν σε όλες μου τις εφαρμογές. Το Outllook δουλεύει σχεδόν χωρίς να το αντιλαμβάνεται ο χρήστης και η αποστολή γίνεται άμεσα.
Αν κάτι δεν πάει καλά, ...εδώ είμαστε !

Φιλικά Νίκος

[alex]

Ευχαριστώ Νίκο,
θα το κοιτάξω και θα σου πώ αν μου δουλεύει.

[alex]

Καλημέρα Νίκο
Τον προσάρμοσα στο δικό μου να στέλνει και συνημμένο αλλά βγάζει μήνυμα δεν στάλθηκε και κατόπιν error 48 in loading DLL. Κάποιο DLL χάθηκε η καταστράφηκε από τa Registry .Πιθανόν να θέλει επιδιόρθωση το outlook.

[Meteora]

Για Office 2007...

[alex]

Καλησπέρα Νίκο.
Τελικά υπάρχει θέμα χάθηκ και από τα reference.Θα κοιτάξω να κάνω επιδιόρθωση.