Αποστολή email από την Access

[mgeorge]

Καλησπέρα σας,
Θα παρακαλούσα αν μπορεί κάποιος να με βοηθήσει στο εξής.
Θέλω να αποστέλλω emails από την access μέσω outlook και να μπορώ επίσης να εισάγω κάποιες επαφές από την access στο outlook και κάνω εισαγωγή από άλλη βάση δεδομένων στην δική μου τον πίνακα,την φόρμα και την λειτουργική μονάδα ώστε να μπορώ να κάνω αυτά που προανέφερα δυστυχώς για κάποιο λόγο δεν λειτουργεί στην δική μου βάση δεδομένων και εμφανίζει κάποιο σφάλμα.
Ανεβάζω και το αρχείο,αν μπορεί ας με βοηθήσει κάποιος.

Ευχαριστώ πολύ!!

[Tasos]

Καλημέρα σε όλους!
Αγαπητέ Γιώργο, ο κώδικας που περιέχεται στο παράδειγμα σου προϋποθέτει την αναφορά
Microsoft Outlook Object Library (στον VBE Tools References) για να λειτουργήσει.

Εναλλακτικά θα μπορούσες να χρησιμοποιήσεις τον παρακάτω κώδικα στη φόρμα σου:

Option Compare Database
Option Explicit

Private Sub cmdContact_Click()
    Dim ol As Object, ContactItem As Object
    On Error Resume Next
    Set ol = CreateObject("Outlook.Application")
    Set ContactItem = ol.CreateItem(2&)
    With ContactItem
        .FirstName = Nz(Me.FirstName)
        '.LastName = Nz(Me.LastName) ' Φρόντισε να δημιουργήσεις το πεδίο "LastName" στη φόρμα.
        .HomeAddressStreet = Nz(Me.Address)
        .HomeAddressCity = Nz(Me.City)
        .HomeAddressState = Nz(Me.State)
        .HomeAddressPostalCode = Nz(Me.PostalCode)
        .Email1Address = Nz(Me.Email)
        .Display
    End With
     If Not ol Is Nothing Then Set ol = Nothing
End Sub

Private Sub cmdEmail_Click()
    Dim strSubj As String, strBody As String
    Dim ol As Object, oMail As Object
    strSubj = "Το θέμα (μπορεί να είναι ένα πεδίο της φόρμας)."
    strBody = "Το κείμενο (μπορεί να είναι ένα πεδίο της φόρμας)."
    On Error Resume Next
    Set ol = CreateObject("Outlook.Application")
    Set oMail = ol.CreateItem(0&)
    With oMail
        .To = Nz(Me.Email)
        .Subject = strSubj
        .Body = strBody
        .Display
    End With
    If Not ol Is Nothing Then Set ol = Nothing
End Sub

Private Sub Email_Change()
    Me.cmdEmail.Enabled = InStr(1, Me.Email.Text, "@")
End Sub

Private Sub FirstName_Change()
    Me.cmdContact.Enabled = Me.FirstName.Text <> ""
End Sub

Private Sub Form_Current()
    Me.cmdEmail.Enabled = InStr(1, Nz(Me.Email, ""), "@")
    Me.cmdContact.Enabled = Nz(Me.FirstName, "") <> ""
End Sub

Καλή συνέχεια!

Τάσος

[mgeorge]

Καλησπέρα σε όλους,
Τάσο σε ευχαριστώ πάρα πολύ για την βοήθειά σου,λειτουργεί άψογα.
Αν δεν γίνομαι κουραστικός θα ήθελα αν μπορεί κάποιος να με βοηθήσει και στο εξής.
Θα μπορούσα με κάποιο τρόπο να έχω και κάποια πρότυπα μηνύματα και κατά περίπτωση να επιλέγω κάθε φορά αυτό που θέλω ώστε να ενσωματώνεται στο outlook και να το αποστέλλω;

Ευχαριστώ και πάλι και καλό βράδυ!

[Tasos]

Καλημέρα σε όλους!

Αγαπητέ Γιώργο,
θα χρειαστείς νέο πίνακα για να καταχωρήσεις τα πρότυπα μηνύματα καθώς και τον τίτλο τους (Subject).

Κατόπιν στη φόρμα με τη βοήθεια ενός σύνθετου πλαισίου μπορείς να επιλέγεις το μήνυμα προς αποστολή.

Στο παράδειγμα που επισυνάπτω μπορείς επίσης να ορίσεις αν το εκάστοτε μήνυμα θα αποστέλλεται σε μορφή HTML ή ως απλό κείμενο.

Από το σύνθετο πλαίσιο της φόρμας μπορείς να ανοίξεις τη φόρμα "frmeMails" και να
επεξεργαστείς/μορφοποιήσεις τις εγγραφές (τα πρότυπα μηνύματα).

Καλή συνέχεια!

Τάσος

[mgeorge]

Καλησπέρα σε όλους,
Τάσο δυστυχώς δεν μπορώ να ανοίξω το αρχείο,μου εμφανίζει μήνυμα (Μη αναγνωρίσιμη μορφή βάσης δεδομένων).
Έχεις καμιά ιδέα γιατί συμβαίνει αυτό;

Ευχαριστώ πολύ!

[Tasos]

Καλημέρα Γιώργο.
Το αρχείο αυτό επεξεργάστηκε σε περιβάλλον Access 2010 με αποτέλεσμα να προστεθούν στοιχεία στην προβολή διάταξης που δεν είναι συμβατά με Access 2007.
Ελπίζω η Microsoft κάνει κάτι γι αυτό το μεγάλο πρόβλημα.

Μπορείς να κατεβάσεις το ανανεωμένο συνημμένο του προηγούμενου μου μηνύματος (δημιούργησα ένα νέο παράδειγμα με Access 2007).

Φιλικά

Τάσος

[mgeorge]

Καλημέρα σε όλους του φίλους του φόρουμ.
Τάσο πάρα πολύ καλό αυτό που ανέβασες,με διευκολύνει πάρα πολύ,θα παρακαλούσα εάν μπορεί να γίνει μία προσθήκη στο αρχείο που ανέβασες,έχω προσθέσει ένα ακόμα πεδίο (Title),επειδή στο 98% των περιπτώσεων τα mail που στέλνω έχουν το ίδιο θέμα (Επικοινωνία μέσω του....) αλλά αλλάζει μόνο το κείμενο στο email,θα με διευκόλυνε πολύ περισσότερο αν μπορούσα να επιλέγω το ανάλογο πρότυπο από το πεδίο (Title).
Το έχω ανεβάσει ώστε να καταλάβετε τι ακριβώς εννοώ.
Ελπίζω να μην γίνομαι κουραστικός.

Ευχαριστώ πολύ!!

[Tasos]

Καλησπέρα Γιώργο!

Δοκίμασε το συνημμένο παρακάτω.

Καλή συνέχεια.

Τάσος

[mgeorge]

Τάσο καλημέρα!
Όλα μια χαρά,μια ερωτησούλα ακόμη.
Στο πεδίο προεπιλεγμένη τιμή τη εντολή πρέπει να βάλω ώστε στο πεδίο μορφή HTML να είναι Ναι και επίσης το πεδίο eMailSubject να έχει ως προεπιλογή (Επικοινωνία μέσω του....).

Σε ευχαριστώ πάρα πολύ για μια ακόμη φορά για την σημαντική βοήθειά σου.

[mgeorge]

Καλησπέρα Τάσο και σε όλους του φίλους του φόρουμ.
Στο πεδίο μορφή HTML το είχες ως προεπιλογή Ναι (1) απλώς εγώ το είχα σε μορφή Ναί/Όχι και όχι Αληθές/Ψευδές και γι αυτό δεν λειτουργούσε η προεπιλογή.
Για το άλλο πεδίο δεν έχω καταφέρει κάτι.

Ευχαριστώ!