Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 19-12-15, 11:32
nasos23 Ο χρήστης nasos23 δεν είναι συνδεδεμένος
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 455
Προεπιλογή

Καλημέρα σε όλους
Βασίλη δες την επισυναπτόμενη βάση
Σημ.
Δημιούργησε ένα φάκελο στο δίσκο 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 προσθέτουμε τα μεηλ των ενοίκων.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip test1.zip (45,7 KB, 89 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη nasos23 : 20-12-15 στις 13:05. Αιτία: Διόρθωση-Βελτίωση
Απάντηση με παράθεση