Τα δύο παραδείγματα μακροεντολών παρακάτω δείχνουν πώς μπορείτε να στείλετε πληροφορίες στο Outlook
(π.χ. αποστολή μηνύματος ηλεκτρονικού ταχυδρομείου) και πώς μπορείτε να ανακτήσετε πληροφορίες από το Outlook
(π.χ. ανάκτηση λίστας με όλα τα μηνύματα στα Εισερχόμενα).
Σημείωση! Διαβάστε και επεξεργαστείτε τον παράδειγμα κώδικα προτού προσπαθήσετε να τον εκτελέσετε στο δικό σας έργο!
"απαιτεί αναφορά στο Microsoft Outlook 8.0 Object Library Sub SendAnEmailWithOutlook ()" δημιουργεί και στέλνει ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου με το Outlook Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem Dim ToContact As Outlook.Recipient Set OLF = GetObject ( "", _ "Outlook.Application"). GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) Ορισμός olMailItem = OLF. Στοιχεία.Add 'δημιουργεί ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου με olMailItem .Subject = "Θέμα για το νέο e- μήνυμα ηλεκτρονικού ταχυδρομείου "'θέμα μηνύματος Ορισμός ToContact = .Recipients.Add (" [email protected] ")' προσθήκη παραλήπτη Ορισμός ToContact = .Recipients.Add (" [email protected] ") 'προσθήκη παραλήπτη ToContact.Type = Το olCC 'ορίζει τον τελευταίο παραλήπτη ως CC Set ToContact = .Recipients.Add ("[email protected]")' προσθέστε έναν παραλήπτη ToContact.Type = olBCC 'ορίστε τον τελευταίο παραλήπτη ως BCC .Body = "Αυτό είναι το κείμενο του μηνύματος" & Chr (13) "το κείμενο του μηνύματος με διακοπή γραμμής. Συνημμένα. Προσθέστε" C: \ FolderName \ Filename.txt ", olByValue,," "Attachment" 'insert attachment' .Atatachments.Add "C : \ FolderName \ Filename.txt ", olByReference,, _" Shortcut to Attachment "'insert shortcut' .Attachments.Add" C: \ FolderName \ Filename.txt ", olEmbeddedItem,, _" embbedded Attachment "'embedded attachment'. Attachments.Add "C: \ FolderName \ Filename.txt", olOLE,, _ "OLE Attachment" 'OLE attachment .OriginatorDeliveryReportRequested = True' confirmation delivery .ReadReceiptRequested = True 'read confirmation'. Save 'αποθηκεύει το μήνυμα για μεταγενέστερη επεξεργασία. Η αποστολή στέλνει το μήνυμα ηλεκτρονικού ταχυδρομείου (το τοποθετεί στα Εξερχόμενα) Τερματισμός με ρύθμιση ToContact = Τίποτα δεν ορίζει olMailItem = Τίποτα δεν τίθεται OLF = Τίποτα δεν τελειώνει δευτερεύον Sub ListAllItemsInInbox () Dim OLF As Outlook.MAPIFolder, CurrUser As String Dim EmailItemCount As Integer, i As Integer, EmailCount As Integer Application.ScreenUpdating = False Workbooks.Προσθέστε «δημιουργήστε ένα νέο βιβλίο εργασίας» προσθέστε κεφαλίδες Κελιά (1, 1) .Formula = "Subject" Cells (1, 2) .Formula = "Received" Cells (1 , 3) .Formula = "Συνημμένα" Κελιά (1, 4) .Formula = "Διαβάστε" Με Εύρος ("A1: D1"). Γραμματοσειρά. Τολμηρό = True .Si ze = 14 Λήξη με Application.Calculation = xlCalculationManual Set OLF = GetObject ("", _ "Outlook.Application"). GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) EmailItemCount = OLF.Tems.Count i = 0: EmailCount 0 'ανάγνωση πληροφοριών e-mail Ενώ i <EmailItemCount i = i + 1 If i Mod 50 = 0 Then Application.StatusBar = "Ανάγνωση μηνυμάτων e-mail" & _ Μορφή (i / EmailItemCount, "0%") & "… "Με στοιχεία OLF. (I) EmailCount = EmailCount + 1 κελιά (EmailCount + 1, 1). Τύπος =. Κελιά υποκειμένου (EmailCount + 1, 2). Τύπος = Μορφή (.ReceivedTime," dd.mm.yyyy hh: mm ") Κελιά (EmailCount + 1, 3). Τύπος =. Συνημμένα. Μετρήστε κελιά (EmailCount + 1, 4). Formula = Not. UnRead End With Wend Application.Calculation = xlCalculationAutomatic Set OLF = Nothing Columns (" A: D ") .AutoFit Range (" A2 "). Επιλέξτε ActiveWindow.FreezePanes = True ActiveWorkbook.Saved = True Application.StatusBar = False End Sub