Object Model CDO, üzenetek küldése és fogadása révén CDO
CDO objektum modellt, üzenetek küldése és fogadása révén CDO
Még Outlook - elsősorban program az e-mail, és ha kiderült, hogy annak célja a modell, akkor nagyon jól lehet, amit szeretnél, hogy automatizálják műveletek e-mailben. Mint láttuk, a normál működés e-mail nagyban akadályozza a biztonsági korlátozások épített objektum modell az Outlook. Ők lehet harcolni (amint azt a 13.6), de akkor csak kap körül használ e-mailt küldeni egy speciális objektum modellt a CDO, amelyek nem rendelkeznek ilyen korlátozások. Ez az objektum modell (mint néma szemrehányás, hogy a fejlesztők a Microsoft) lehet használni, beleértve azokat az Outlook.
A legegyszerűbb lehetőség, hogy e-mailt küldeni CDO források a következők:
Dim oMyMail As New CDO.Message
oMyMail.Subject = "Hello from CDO"
oMyMail.TextBody = „A levél”
(Az 1 érték, ami az alapértelmezett, azt jelenti -, hogy egy Pickup könyvtár).
Adja meg e-mail szerver, akkor:
Konfigurálása hitelesítési mód alkalmazásával végezzük ugyanazon CDO.Configuration objektum:
Az 1 érték azt jelenti, hogy az egyszerű hitelesítést használja, a értéke 0 - nincs hitelesítés (anonim), értéke 2 - hitelesítés NTLM.
A felhasználónév és a jelszó lehet továbbítani ugyanúgy:
Néha szükség van arra is, hogy meghatározzuk a használata egy adott portot (kivéve 25), függetlenül attól, hogy használja az SSL és a time-out:
Módosítását követően a konfigurációs változásokat először meg kell menteni:
és csak akkor hívja a Send () metódus:
Ha probléma van a kódolás (általában, ha a rendszer ustavnolen magyar nyelv nem jelenik meg, akkor is hozzá, mielőtt elküldené formátuma
oMyMail.TextBodyPart.Charset = "windows -1251"
Sajnos, ez a könyvtár csak akkor működik, az SMTP protokoll és Pickup könyvtár a lemezen. Nem tud működni minden protokoll POP3 vagy az IMAP4, sem a MAPI, és így kapcsolódni a mail szerver, hogy ellenőrizze, hogy a megjelenése az új üzeneteket (mint a mi például Outlook), nem tudjuk. Majd meg kell használni egy másik könyvtárat a készlet CDO - Microsoft CDO 1,21 Könyvtár. Ez csak akkor működik a MAPI (olvasd el - Exchange Server), de ő tudja, hogy különböző műveleteket hajtsanak végre a postafiók az Exchange Server figyelmeztetés nélkül üzeneteket. Például, hogy nyomon követni az új üzenetek segítségével:
- Utalást tesz a Microsoft CDO 1,21 Könyvtár
Írja be az alábbi kódot.
Dim oSession As New MAPI.Session
Dim oFolder Ahogy MAPI.Folder
Dim oMessage Ahogy MAPI.Message
"Outlook" - a név az e-mail profilt. Ha ez az opció nem múlik, van egy
„Arra kéri, hogy válassza ki a kívánt profilt párbeszédablak. A név a profil
„Meg lehet tanulni, csak ebben az ablakban
Állítsa oFolder = oSession.Inbox
For Each oMessage A oFolder.Messages
Ha oMessage.Unread = True Ezután Debug.Print oMessage
Teljes hivatkozás ezen objektum modellek találhatók az MSDN.