Двата примерни макроса по -долу демонстрират как можете да изпращате информация до Outlook
(например изпращане на имейл съобщение) и как можете да извлечете информация от Outlook
(например извличане на списък с всички съобщения във входящата поща).
Забележка! Прочетете и редактирайте примерния код, преди да се опитате да го изпълните в собствен проект!
„изисква препратка към библиотеката на обектите на Microsoft Outlook 8.0 Sub SendAnEmailWithOutlook ()“ създава и изпраща ново имейл съобщение с Outlook Dim OLF като Outlook.MAPIFolder, olMailItem като Outlook.MailItem Dim ToContact As Outlook.Recipient Set OLF = GetObject ( "", _ "Outlook.Application"). GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) Задайте olMailItem = OLF.Items.Add 'създава ново имейл съобщение с olMailItem .Subject = "Тема за новата електронна поща имейл съобщение "'Тема на съобщението Задайте ToContact = .Recipients.Add (" [email protected] ")' добавете получател Задайте ToContact = .Recipients.Add (" [email protected] ") 'добавете получател ToContact.Type = olCC 'задайте последния получател като CC Задайте ToContact = .Recipients.Add ("[email protected]")' добавете получател ToContact.Type = olBCC 'задайте последния получател като BCC .Body = "Това е текстът на съобщението" & Chr (13) „текстът на съобщението с прекъсване на ред. Приложения. Добавете„ C: \ Име на папката \ Име на файла.txt “, olByValue,, _„ Прикачен файл “„ вмъкнете прикачен файл “. Приложения. Добавете„ C : \ Име на папка \ Име на файл.txt ", olByReference,, _" Пряк път към прикачен файл "" вмъкване на пряк път ". Прикачени файлове. Добавете" C: \ Име на папка \ Име на файла.txt ", olEmbeddedItem,, _" Вграден прикачен файл "" вграден прикачен файл ". Attachments.Add „C: \ FolderName \ Filename.txt“, olOLE,, _ „OLE Attachment“ „OLE прикачен файл. Изпращане 'изпраща съобщението по електронната поща (поставя го в изходящата поща) Край със зададен ToContact = Нищо зададено olMailItem = Нищо не зададено OLF = Нищо Край Sub Sub ListAllItemsInInbox () Dim OLF As Outlook.MAPIFolder, CurrUser As String Dim EmailItemCount As Integer, i As Integer, EmailCount As Integer Application.ScreenUpdating = False Workbooks.Add 'създайте нова работна книга' добавете заглавия Cells (1, 1). Formula = "Subject" Cells (1, 2). Formula = "Получени" клетки (1 , 3) .Formula = "Прикачени файлове" (1, 4) .Formula = "Четене" с обхват ("A1: D1"). Шрифт. Bold = True .Si ze = 14 Край с Application.Calculation = xlCalculationManual Задайте OLF = GetObject ("", _ "Outlook.Application"). GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) EmailItemCount = OLF.Items.Count i = 0: EmailCount = 0 'четене на информация за имейл Докато i <EmailItemCount i = i + 1 Ако i Mod 50 = 0 Тогава Application.StatusBar = "Четене на имейл съобщения" & _ Форматиране (i / EmailItemCount, "0%") & "… "С OLF.Items (i) EmailCount = EmailCount + 1 клетки (EmailCount + 1, 1). Формула =. Subject клетки (EmailCount + 1, 2). Формула = Формат (.ReceivedTime", dd.mm.yyyy hh: mm ") Клетки (EmailCount + 1, 3) .Formula = .Attachments.Count Cells (EmailCount + 1, 4) .Formula = Not .UnRead End With Wend Application.Calculation = xlCalculationAutomatic Set OLF = Нищо колони (" A: D "). Обхват на AutoFit (" A2 "). Изберете ActiveWindow.FreezePanes = True ActiveWorkbook.Saved = True Application.StatusBar = False End Sub