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