Alla olevat kaksi esimerkkimakroa osoittavat, kuinka voit lähettää tietoja Outlookiin
(esim. sähköpostiviestin lähettäminen) ja miten voit hakea tietoja Outlookista
(esim. hakee luettelon kaikista postilaatikon viesteistä).
Huomautus! Lue ja muokkaa esimerkkikoodia ennen kuin yrität suorittaa sen omassa projektissasi!
'edellyttää viittausta Microsoft Outlook 8.0 -objektikirjastoon Sub SendAnEmailWithOutlook ()' luo ja lähettää uuden sähköpostiviestin, jossa Outlook Dim OLF on Outlook.MAPIFolder, olMailItem As Outlook.MailItem Dim ToContact As Outlook.Recipient Set OLF = GetObject ( "", _ "Outlook.Application"). GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) Aseta olMailItem = OLF.Items.Add 'luo uuden sähköpostiviestin OlMailItem .Subject = "Uuden sähköpostin aihe sähköpostiviesti "'viestin aihe Aseta ToContact = .Recipients.Add (" [email protected] ")' lisää vastaanottaja Aseta ToContact = .Recipients.Add (" [email protected] ") 'lisää vastaanottaja ToContact.Type = olCC 'määritä uusin vastaanottaja CC: ksi Aseta ToContact = .Recipients.Add ("[email protected]")' lisää vastaanottaja ToContact.Type = olBCC 'aseta uusin vastaanottaja BCC: ksi .Body = "Tämä on viestin teksti" & Chr (13) 'viestin teksti rivinvaihdolla .Attachments.Add "C: \ FolderName \ Filename.txt", olByValue,, _ "Attachment"' insert attachment '.Attachments.Add "C : \ FolderName \ Filename.txt ", olByReference,, _" Shortcut to Attachment "'insert shortcut' .Attachments.Add" C: \ FolderName \ Filename.txt ", olEmbeddedItem,, _" Embedded Attachment "'upotettu liite'. Attachments.Add "C: \ FolderName \ Filename.txt", olOLE,, _ "OLE Attachment" 'OLE -liite .OriginatorDeliveryReportRequested = True' toimitusvahvistus .ReadReceiptRequested = True 'lukuvahvistus' .Save 'tallentaa viestin myöhempää muokkausta varten. Lähetä 'lähettää sähköpostiviestin (laittaa sen Lähtevät-kansioon) i Kokonaislukuna, EmailCount kokonaislukuna Application.ScreenUpdating = False Workbooks.Add 'luo uusi työkirja' lisää otsikot Solut (1, 1) .Formula = "Subject" Solut (1, 2) .Formula = "Vastaanotetut" solut (1 , 3) .Formula = "Attachments" Solut (1, 4) .Formula = "Read" With range ("A1: D1"). Font .Bold = True .Si ze = 14 Lopeta Application.Calculation = xlCalculationManual Set OLF = GetObject ("", _ "Outlook.Application"). GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) EmailItemCount = OLF.Items.Count i = 0: EmailCount = 0 'lukee sähköpostitietoja, kun i <EmailItemCount i = i + 1 Jos i Mod 50 = 0 Sitten Application.StatusBar = "Sähköpostiviestien lukeminen" & _ Muoto (i / EmailItemCount, "0%") & "… "Kun OLF.kohteet (i) EmailCount = EmailCount + 1 solua (EmailCount + 1, 1) .Formula = .Subject Cells (EmailCount + 1, 2) .Formula = Format (.ReceivedTime," dd.mm.yyyy hh: mm ") Solut (EmailCount + 1, 3) .Formula = .Attachments.Count Cells (EmailCount + 1, 4) .Formula = Not. ") .AutoFit -alue (" A2 "). Valitse ActiveWindow.FreezePanes = True ActiveWorkbook.Saved = True Application.StatusBar = False End Sub