model de obiect CDO, trimiterea și primirea de mesaje prin intermediul CDO
Încă Outlook - este în primul rând un program de e-mail și dacă ați apelat la modelul său de obiect, atunci acesta poate fi foarte bine ceea ce doriți să automatizeze operațiunile cu e-mail. După cum am văzut, funcționarea normală a e-mail împiedică în mare măsură restricțiile de securitate încorporate în modelul obiect al Outlook. Ele pot lupta (așa cum este descris în secțiunea 13.6), dar puteți obține doar în jurul valorii de utilizarea pentru a trimite e-mail un model special obiect al CDO, care nu au aceste restricții. Acest model de obiect (ca un reproș tăcut pentru dezvoltatorii de la Microsoft) pot fi utilizate, inclusiv cele din Outlook.
Cea mai simplă opțiune de a trimite fonduri CDO e-mail este după cum urmează:
Dim oMyMail Ca Nou CDO.Message
oMyMail.Subject = "Bună ziua de la CDO"
oMyMail.TextBody = „Scrisoarea noastră“
(O valoare de 1, care este implicit, înseamnă - pentru a folosi un director Pickup).
Specificați serverul de e-mail, puteți:
Configurarea modului de autentificare este realizată folosind același obiect CDO.Configuration:
O valoare de 1 înseamnă că utilizează autentificarea de bază, valoarea 0 - fără autentificare (anonim), o valoare de 2 - autentificarea NTLM.
Numele de utilizator și parola pot fi transmise în același mod:
Uneori, este de asemenea necesar să se determine utilizarea unui anumit port (altele decât cele 25), indiferent dacă sunt sau nu de a utiliza SSL și un time-out:
După orice modificare a modificărilor de configurație mai întâi trebuie să salvați:
și numai apoi apela metoda Trimitere ():
Dacă există o problemă cu codificarea (de obicei, în cazul în care ustavnolen sistemul românesc nu apare, puteți adăuga în continuare înainte de a trimite un șir de caractere cum ar fi
oMyMail.TextBodyPart.Charset = "ferestre -1251"
Din păcate, această bibliotecă funcționează numai cu protocolul SMTP și directorul Pickup pe disc. Ea nu poate lucra cu orice POP3 protocol, sau cu IMAP4, nici MAPI, și, prin urmare, pentru a se conecta la serverul de e-mail pentru a verifica pe ea apariția unor noi mesaje (ca în exemplul nostru cu Outlook), nu putem. Va trebui să utilizați o altă bibliotecă din setul de CDO - Microsoft CDO 1.21 Library. Se poate lucra numai cu MAPI (citește - Exchange Server), dar ea este capabil de a efectua diverse operații în cutia poștală de pe serverul Exchange, fără nici un mesaj de avertizare. De exemplu, pentru a urmări apariția unor noi mesaje pe care le puteți:
- Adăugarea unei trimiteri la biblioteca Biblioteca Microsoft CDO 1.21
Scrieți următorul cod.
Dim oSession Ca Nou MAPI.Session
Dim oFolder Ca MAPI.Folder
Dim oMessage Ca MAPI.Message
"Outlook" - numele profilului de e-mail. Dacă această opțiune nu este trece, există o
„Solicitându-vă să selectați caseta de dialog profil dorit. Numele profilului
„Puteți afla doar din această fereastră de dialog
Set oFolder = oSession.Inbox
Pentru fiecare oMessage În oFolder.Messages
Dacă oMessage.Unread = true Apoi Debug.Print oMessage
referință completă la aceste modele de obiecte pot fi găsite pe MSDN.