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

[dmarop]

Καλησπέρα,

Χρησιμοποιώ τον παρακάτω κώδικα σε ένα 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.

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

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

[Meteora]

Καλησπέρα

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

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 και με το πάτημα γίνεται η αποστολή. Έχω χρησιμοποιήσει τον κώδικα που σε προτείνω κατ΄επανάληψη. Ελπίζω να βοηθηθείς...

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