Forum - Αποστολή email από Access

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

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

- - Αποστολή email από Access (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2521-apostoli-email-apo-access.html)

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

Καλησπέρα,

Χρησιμοποιώ τον παρακάτω κώδικα σε ένα script στην access για αποστολή email και θα χρειαστώ την βοήθειά σας για να κάνω κάποιες τροποποιήσεις.

Κώδικας:



        Dim AttachFile As String

        Dim DropBoxPath As String

        DropBoxPath = Environ("userprofile")

        AttachFile = DropBoxPath & "\Dropbox\mail.pdf"
 

        objMessage.AddAttachment AttachFile

Θέλω στο AttachFile = να παίρνει το όνομα του αρχείου από ένα συγκεκριμένο πεδίο ενός πίνακα.
AttachFile = Από τον πίνακα EmailConfig και το πεδίο attachfile
και να μου δίνει τη δυνατότητα να παίρνει πάνω από ένα συνημμένο αρχείο. Το δεύτερο συνημμένο αρχείο να το παίρνει από τον ίδιο πίνακα και το πεδίο attachfile1.

Ευχαριστώ εκ των προτέρων.

Φιλικά,
Δημήτρης

Καλησπέρα

Ο κώδικας -σε λιτή έκδοση- που θα χρειαστείς για να κάνεις αυτό που θες είναι:

Κώδικας:

Private Sub Command20_Click()

    Dim mess_body As String

    Dim appOutLook As Outlook.Application

    Dim MailOutLook As Outlook.MailItem

    Set appOutLook = CreateObject("Outlook.Application")

    Set MailOutLook = appOutLook.CreateItem(olMailItem)
 

    With MailOutLook

        .BodyFormat = olFormatRichText

        .To = Me.Email_Address

        .Subject = Me.Mess_Subject

        .HTMLBody = Me.Mess_Text

        .Attachments.Add (Me.Mail_Attachment_Path)

        .Send

    End With

    Exit Sub

email_error:

    MsgBox "Πρόβλημα! " & vbCrLf & "Να το πρόβλημα:  " & Err.Description

End Sub

Το πρόθεμα me. παραπέμπει σε πεδία ενεργής φόρμας, στην οποία έχεις του κουμπί Command20 και με το πάτημα γίνεται η αποστολή. Έχω χρησιμοποιήσει τον κώδικα που σε προτείνω κατ΄επανάληψη. Ελπίζω να βοηθηθείς...

Με εκτίμηση
Νίκος