Žemiau esantys du makrokomandų pavyzdžiai parodo, kaip galite siųsti informaciją į „Outlook“
(pvz., siunčiant el. laišką) ir kaip galite gauti informaciją iš „Outlook“
(pvz., gaunamas sąrašas iš visų gautųjų pranešimų).
Pastaba! Prieš bandydami vykdyti savo projektą, perskaitykite ir redaguokite pavyzdinį kodą!
„reikalinga nuoroda į„ Microsoft Outlook 8.0 “objektų biblioteką Sub SendAnEmailWithOutlook ()“ sukuria ir siunčia naują el. laišką su „Outlook Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem Dim ToContact As Outlook“. Recipient Set OLF = GetObject ( "", _ "Outlook.Application"). GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) Set olMailItem = OLF.Items.Add 'sukuria naują el. Laišką su olMailItem .Subject = "Naujos el. pašto pranešimas "" pranešimo tema Nustatykite ToContact = .Recipients.Add ("[email protected]") 'pridėti gavėją Nustatykite ToContact = .Recipients.Add ("[email protected]")' pridėkite gavėją ToContact.Type = olCC 'nustatyti naujausią gavėją kaip CC Nustatyti ToContact = .Recipients.Add ("[email protected]")' pridėti gavėją ToContact.Type = olBCC 'nustatyti naujausią gavėją kaip BCC .Body = "Tai yra pranešimo tekstas" & Chr (13) 'pranešimo tekstas su eilučių pertrauka. : \ FolderName \ Filename.txt ", olByReference,, _" Shortcut to Attachment "'insert shortcut' .Attachments.Add" C: \ FolderName \ Filename.txt ", olEmbeddedItem,, _" Embedded Attachment "'embedded attachment'. Attachments.Add "C: \ FolderName \ Filename.txt", olOLE,, _ "OLE Attachment" 'OLE priedas .OriginatorDeliveryReportRequested = Tikras' pristatymo patvirtinimas .ReadReceiptRequested = Tikras 'skaitymo patvirtinimas' .Save 'išsaugo pranešimą vėlesniam redagavimui. Siųsti 'siunčia el. Pašto pranešimą (įkelia jį į siunčiamus) i Kaip sveikas skaičius, el. , 3) .Formula = "Priedai" Ląstelės (1, 4) .Formula = "Skaityti" su diapazonu ("A1: D1"). Šriftas. Bold = True .Si ze = 14 Baigti su Application.Calculation = xlCalculationManual Set OLF = GetObject ("", _ "Outlook.Application"). GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) EmailItemCount = OLF.Items.Count i = 0: EmailCount = 0 'skaityti el. Pašto informaciją Nors i <EmailItemCount i = i + 1 Jei i Mod 50 = 0 Tada Application.StatusBar = "El. Laiškų skaitymas" & _ Formatas (i / EmailItemCount, "0%") & "… "Naudojant OLF.Elementai (i) EmailCount = EmailCount + 1 langeliai (EmailCount + 1, 1) .Formula = .Subject cell (EmailCount + 1, 2) .Formula = Format (.ReceivedTime," dd.mm.yyyy hh: " ") .AutoFit diapazonas (" A2 "). Pasirinkite ActiveWindow.FreezePanes = True ActiveWorkbook.Saved = True Application.StatusBar = False End Sub