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

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

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

- - pdf και email αποστολή (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3962-pdf-kai-email-apostoli.html)

basman

17-12-15 18:21

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

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

nasos23

19-12-15 11:32

1 Συνημμένο(α)

Καλημέρα σε όλους
Βασίλη δες την επισυναπτόμενη βάση
Σημ.
Δημιούργησε ένα φάκελο στο δίσκο 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

19-12-15 13:22

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

nasos23

20-12-15 12:48

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

basman

28-12-15 13:37

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

basman

28-12-15 13:46

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

και

With cdomsg
.To = Me![email_katoikou]

basman

30-12-15 10:11

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

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

nasos23

30-12-15 10:24

1 Συνημμένο(α)

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

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

basman

30-12-15 12:13

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

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

nasos23

30-12-15 12:51

Παράθεση:

Αρχική Δημοσίευση από basman (Μήνυμα 22862)

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

basman

30-12-15 13:02

Νάσο σε ευχαριστώ θα κάνω δοκιμές το απόγευμα

basman

31-12-15 09:42

Νάσο Καλημέρα

Σε ευχαριστώ για τις προσπάθειές σου. Θα ασχοληθώ μετά τις γιορτές αν μπορείς και αν έχεις χρόνο θα ήθελα να δούμε την πρώτη βάση που έστειλες (test1), για ποιο λόγο στέλνει κενά pdf ενώ τα δημιουργεί και τα αποθηκεύει σωστά

basman

31-12-15 09:43

Χρόνια Πολλά Καλή χρονιά

nasos23

31-12-15 10:29

Νά 'σαι καλά Βασίλη.
Η δεύτερη βάση δουλεύει;
Όσο για την test1 πιθανόν έχει να κάνει με τις ρυθμίσεις ασφαλείας του Gmail, ακόμη και
η επιλογή γραμματοσειράς της έκθεσης.

basman

08-01-16 22:03

Καλησπέρα - χρόνια πολλά και καλή χρονιά
Νάσο σε ευχαριστώ για την βοήθειά σου. Το τμήμα με την αποστολή του pdf με email δουλεύει πολύ καλά τουλάχιστον η μεμονωμένη αποστολή Αυτή με τα ομαδικά email δεν κατάφερα ακόμα να το κάνω να δουλέψει παρόλο που αντέγραψα και το module1 που μου έστειλες.
Στην φωτογραφία φαίνεται αυτό που έχω φτιάξει Το πρόβλημα που παρουσιάζεται τώρα έχει ως εξής : Αυτό που προσπαθώ τώρα να κάνω είναι να οπτικοποιήσω τους κατοίκους που έχουν email (δεν έχουν όλοι) έτσι ώστε να γνωρίζω ποιο κουμπί να πατήσω για την αποστολή του email.
Μία λύση που σκέφτηκα αλλά δεν βρήκα τρόπο να την εφαρμόσω είναι το κουμπί του email να εμφανίζεται μόνο στην περίπτωση που ο κάτοικος έχει email και στις περιπτώσεις που δεν υπάρχει email σε κάποιους τότε το κουμπί να μην είναι ορατό ή ενεργό
http://achaiki.eu/images/vm/prov1.jpg
Ένα δεύτερο πρόβλημα που αντιμετωπίζω είναι στην εκτύπωση Όταν αλλάζει σελίδα στην συγκεντρωτική κατάσταση δαπανών εξαιτίας πολλών διαμερισμάτων (εάν οι κάτοικοι είναι περισσότερα από 25) τότε ξεκινάει η εκτύπωση της 2ης σελίδας από την αρχή της, ενώ εγώ θα ήθελα η εκτύπωση να αφήνει ένα κενό 10 περίπου γραμμών και αυτό μόνο όταν οι εγγραφές είναι περισσότερες από 25

nasos23

09-01-16 00:56

Παράθεση:

Μία λύση που σκέφτηκα αλλά δεν βρήκα τρόπο να την εφαρμόσω είναι
το κουμπί του email να εμφανίζεται μόνο στην περίπτωση που ο κάτοικος έχει email
και στις περιπτώσεις που δεν υπάρχει email σε κάποιους τότε το κουμπί να
μην είναι ορατό ή ενεργό

Βασίλη μια βολική λύση είναι να αντικαταστήσεις το κουμπί του mail μαι ένα αδέσμευτο πεδίο κειμένου(μπορείς να το κάνεις να φαίνεται και σαν κουμπί).
• Χρωμάτισέ το με χρώμα της αρεσκείας σου,
• αντέγραψε όλο τον κώδικα του κουμπιού στο αδέσμευτο πεδίο με το κλικ [Διαδικασία συμβάντος].
• Σε προβολή σχεδίασης της φόρμας εστιάζοντας στο πεδίο επιλέγουμε απ την κορδέλα την διαδικασία "Υπο όρους"
• επιλέγουμε η έκφραση είναι [το πεδίο mail]=" "
• επιλέγουμε το χρώμα γεμίσματος λευκό και πατάμε το τελευταίο "βυθισμένο" κουμπί δεξιά "ενεργοποίηση".
• Έτσι όποιος ένοικος δεν έχει μεηλ το "κουμπί"θα αλλάζει χρώμα και θα μπλοκάρει τη λειτουργία του.

Σημ.Στη φόρμα πρέπει να προσθέσεις και το πεδίο mail (κάν' το κρυφό)

basman

12-01-16 11:54

Νάσο σε ευχαριστώ για την λύση που μου έδωσες με καλύπτει πλήρως.

basman

28-01-16 08:38

Με την βοήθεια του forum (Νάσος) έχω φτιάξει δημιουργία pdf από έκθεση και αυτόματη αποστολή με Gmail. Έχω κάνει αρκετές προσπάθειες για ομαδική δημιουργία pdf και αποστολή ομαδικού Gmail αλλά δυστυχώς δεν τα έχω καταφέρει
Έχω τους πίνακες του παραδείγματος και ένα ερώτημα που συλλέγω τα δεδομένα που θέλω. Αυτό που προσπαθώ να φτιάξω είναι μία ξεχωριστή φόρμα με ένα κουμπί που όταν θα πατηθεί θα στέλνει ομαδικά μία έκθεση (Eidopoihtiria email) στον κάθε έναν που διαθέτει email (την έκθεση που αντιστοιχεί μόνο στον ίδιο).
http://achaiki.eu/uploads/koinochrista.zip

Η ώρα είναι 18:48.

Search Engine Optimization by vBSEO 3.3.2