Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Αποστολή 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 = Από τον πίνακα EmailConfig και το πεδίο attachfile και να μου δίνει τη δυνατότητα να παίρνει πάνω από ένα συνημμένο αρχείο. Το δεύτερο συνημμένο αρχείο να το παίρνει από τον ίδιο πίνακα και το πεδίο attachfile1. Ευχαριστώ εκ των προτέρων. Φιλικά, Δημήτρης |
#2
| ||||
| ||||
Καλησπέρα Ο κώδικας -σε λιτή έκδοση- που θα χρειαστείς για να κάνεις αυτό που θες είναι: Κώδικας: 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 Με εκτίμηση Νίκος |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Φόρμες ] Αποστολή Email | mgeorge | Access - Ερωτήσεις / Απαντήσεις | 8 | 30-03-16 18:33 |
pdf και email αποστολή | basman | Access - Ερωτήσεις / Απαντήσεις | 17 | 28-01-16 08:38 |
[Excel07] Αποστολη email με pdf | sotisanis | Excel - Ερωτήσεις / Απαντήσεις | 6 | 11-10-14 19:13 |
Αποστολή email από την Access | mgeorge | Access - Ερωτήσεις / Απαντήσεις | 10 | 13-08-12 22:25 |
[VBA] Αποστολή Email από Excel | Exceler | Excel - Ερωτήσεις / Απαντήσεις | 5 | 18-05-12 16:10 |
Η ώρα είναι 00:27.