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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Κώδικας σε κουμπί εντολής (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5139-kodikas-se-koympi-entolis.html)

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

Καλησπέρα σε όλη την παρέα!
Στο παρακάτω κώδικα σε κουμπί εντολής στέλνω μήνυμα μέσου του 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

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

Φιλικά Νίκος

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

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

Για Office 2007...

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