pdf και email αποστολή

[basman]

Είμαι καινούριος στο forum και θα ήθελα να σας συγχαρώ για την καταπληκτική δουλειά που έχω δει ότι κάνετε.
Χρησιμοποιώ την access πολλά χρόνια και έχω φτιάξει με αυτή αρκετές ‘εφαρμογές’ αποκλειστικά για την δουλειά μου πράγμα που με έχει βοηθήσει πολύ.
Γενικότερα δεν γνωρίζω κώδικα για να χρησιμοποιήσω σε αυτή, και ότι έχω φτιάξει μέχρι σήμερα έχει βασιστεί επάνω σε πολλαπλά ερωτήματα μακροεντολές και συναρτήσεις, χωρίς να συναντήσω μέχρι σήμερα ιδιαίτερα προβλήματα.
Αυτή την στιγμή έχω τελειώνω μια βάση έκδοσης κοινοχρήστων η οποία λειτουργεί πολύ καλά, εφαρμόζει τους σωστούς τύπους και εκτυπώνει σωστά τα αποτελέσματα σε ειδοποιήσεις πληρωμής για τους κατοίκους της πολυκατοικίας.
Αυτό που θέλω να προσθέσω είναι η δυνατότητα να στέλνει τα ειδοποιητήρια σε όσους έχουν email (πεδίο μe email) ένα αρχείο (έκθεση) εφόσον το έχει μετατρέψει σε pdf, και συγχρόνως να προσθέτει ως τίτλο ένα πεδίο της έκθεσης.
Ευχαριστώ

[nasos23]

Καλημέρα σε όλους
Βασίλη δες την επισυναπτόμενη βάση
Σημ.
Δημιούργησε ένα φάκελο στο δίσκο C με το όνομα
koin όπου θα αποθηκεύονται τα αρχεία pdf.
Πιθανόν να σου χτυπήσει ο κώδικας γιατί χρησιμοποιείς office10.
Σ' αυτή την περίπτωση θα πας στη φόρμα πληρωμές ->σχεδίαση
Στο κουμπί του mail δεξί κλικ διαδικασία συμβάντος θα ανοίξει ο κώδικας
Επιλέγουμε στην πάνω κορδέλα >> tools >> references και από το πτυσσόμενο επιλέγουμε τικάροντας microsoft Outlook 14.0 Object library πατάμε ok.

Επανέρχομαι με πιό βελτιωμένη πρόταση.
Δυνατότητα αποστολής και μέσω Gmail.

Private Sub Εντολή74_Click()
Dim strFileName As String
Dim filepath As String
strFileName = Dir(filepath)
filepath = "C:\koin\" & Me![id_en].Column(1) & " " & Me![id_min].Column(1) & " " & Me!etos & ".pdf"
DoCmd.OpenReport "rpt_pliromes", acViewPreview, , "id =" & Me.id
DoCmd.OutputTo acOutputReport, "rpt_pliromes", acFormatPDF, filepath, 0, True
DoCmd.Close acReport, "rpt_pliromes"
    Set cdomsg = CreateObject("CDO.message")
    With cdomsg.Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "yourname@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourgmailpassword"
    .Update
    End With
    With cdomsg
    .To = Me.id_en.Column(2)

    .From = "yourname@gmail.com"
    .Subject = "Κοινόχρηστα για τον μήνα" & " " & Me.[id_min].Column(1) & " " & Me.etos
    .addattachment filepath
    
    .Send
    End With
    Set cdomsg = Nothing
    
End Sub

Βασίλη κάνε τις ανάλογες αντικαταστάσεις στον κώδικα του κουμπιού Gmail.
Επίσης στον πίνακα enoikoi προσθέτουμε τα μεηλ των ενοίκων.

[Spirosgr]

Καλησπέρα
Φίλε Νάσο, άλλαξα λίγο τα χρώματα στο μνμ σου, γιατί ήταν δυσανάγνωστο
με το ανοιχτό πράσινο...

[nasos23]

Σ' ευχαριστώ πολύ Σπύρο.
Δεν το πρόσεξα καν

[basman]

Φίλε Νάσο Καλησπέρα
Σήμερα μου δόθηκε η ευκαιρία να ασχοληθώ και σε ευχαριστώ πολύ για την βοήθειά σου . Πράγματι με βοήθησες αρκετά και ο κώδικας που μου έδωσες δούλεψε ικανοποιητικά όσων αφορά την συνημμένη βάση. Για να δουλέψει όμως στην δικιά μου βάση έπρεπε να κάνω μερικές διορθώσεις όπως βλέπεις και στον κώδικα, κυρίως αφαιρώντας τα Column
Παραλαμβάνοντας όμως τα email διαπίστωσα ότι τα αρχεία pdf έφταναν χωρίς περιεχόμενο (και της δικής σου βάσης και της δικιάς μου) Στον φάκελο όμως koin είναι αποθηκευμένα σωστά. Σωστά αποστέλλονται αν ξανασταλούν χειροκίνητα ως συνημμένα αυτόματα όμως είναι κενά. Προφανώς το αρχείο στέλνεται πριν ολοκληρωθεί η αποθήκευσή του. Πιστεύεις ότι φταίει αυτό ή συμβαίνει κάτι άλλο
Ένα δεύτερο θεματάκι είναι ότι θα προτιμούσα πατώντας ένα κουμπί να αποστέλλονται όλα τα email του ερωτήματος (της κάθε πολυκατοικίας στην ουσία) και όχι να επιλέγω κάθε κάτοικο ξεχωριστά απλά θα πρέπει να εξετάζει αν το πεδίο email_katoikou είναι null ή όχι.

[basman]

Οι αλλαγές στον κώδικα
filepath = "C:\koin\" & Me![katoikos] & " " & Me![Mhnas_] & " " & Me![Etos_] & ".pdf"

και

With cdomsg
.To = Me![email_katoikou]

[basman]

Μετά από πολλές δοκιμές και αποστολές email παρατήρησα τα εξής:
α) το pdf αποθηκεύεται σωστά
β) στα εξερχόμενα του gmail το συνημμένο είναι κενό χωρίς περιεχόμενο
γ) Η αποστολή του συνημμένου με gmail (χωρίς την access) είναι επιτυχημένη με το συνημμένο να διαβάζεται σωστά.
Δ)Η αποστολή του συνημμένου με την access αλλάζοντας το .addattachment filepath με .addattachment "C:\koin\ονομα αρχείου.pdf" στέλνει το συνημμένο χωρίς περιεχόμενο

Κατέληξα ότι πιθανόν η access στέλνει άλλο αρχείο που δημιουργεί εκείνη την στιγμή με το ίδιο όνομα και όχι αυτό που έχει αποθηκεύσει στον φάκελο koin
Μπορεί κάποιος να προτείνει κάτι γιατί με αυτό το πρόβλημα έχω βασανιστεί.
Ευχαριστώ
Καλή χρονιά

[nasos23]

Καλημέρα Βασίλη
Δοκίμασε τη βάση που σου στέλνω
Υπάρχει δυνατότητα αποστολής συγκεντρωτικής κατάστασης πρός
όλους τους ενοίκους.

Υγ.Σε εμένα δουλεύει άψογα

[basman]

Νάσο σε ευχαριστώ για τις προσπάθειές σου

Εφαρμόζοντας την δικιά σου βάση στέλνει με email τα PDF αλλά μεταφέροντας τον κώδικα στην δικιά μου χτυπάει στα σημεία που σου έχω με κόκκινο.
Μπορείς να δεις την εικόνα εδώ (δεν με αφήνει το forum να προσθέσω εικόνα) achaiki.eu/uploads/errors.jpg

[nasos23]

Αρχική Δημοσίευση από basman

Νάσο σε ευχαριστώ για τις προσπάθειές σου

Εφαρμόζοντας την δικιά σου βάση στέλνει με email τα PDF αλλά μεταφέροντας τον κώδικα στην δικιά μου χτυπάει στα σημεία που σου έχω με κόκκινο.
Μπορείς να δεις την εικόνα εδώ (δεν με αφήνει το forum να προσθέσω εικόνα) achaiki.eu/uploads/errors.jpg

Βασίλη στο πρώτο σημείο δες αν η προέλευσή του DiamId2 είναι κείμενο ή αριθμός.Αν είναι αριθμός "[DiamId2] =" & Me.[DiamId2].Column(1).
Επίσης μπορεί να ισχύει και "[DiamId2] =" & Me.[DiamId2].
Όσο για το δεύτερο το πεδίο conc είναι κρυφό αδέσμευτο πεδίο στη φόρμα που "ενοποιεί" τις διευθύνσεις
mail.
Προφανώς πρέπει να αντιγράψεις το module1 της βάσης μου στη βάση σου.
Ελπίζω να βοήθησα.
Αν βρεις δυσκολίες ανέβασε τη βάση σου στο forum.