|
Метод Logon – выполнить вход на сервер |
 
 |
|
Метод Logon – выполнить вход на сервер |
|
Синтаксис:
|
procedure Logon( Credentials: IList); |
Параметры:
Credentials – параметры входа на почтовый сервер. Состав параметров зависит от типа почтового сервера:
|
Тип сервера |
Параметр |
Описание |
|
MAPI |
ProfileName |
Имя профиля в почтовой программе Microsoft Exchange или Outlook. |
|
POP3 |
Server |
Имя или адрес POP3-сервера. |
|
Port |
Порт POP3-сервера. Если не указан, используется порт 110. |
|
|
User |
Имя пользователя на POP3-сервере. |
|
|
Password |
Пароль пользователя на POP3-сервере. |
|
|
SMTP |
Server |
Имя или адрес SMTP-сервера. |
|
Port |
Порт SMTP-сервера. Если не указан, используется порт 25. |
|
|
AuthenticationType |
Тип аутентификации на SMTP-сервере: None - без аутентификации; Login - аутентификация по имени и паролю. |
|
|
User |
Имя пользователя на SMTP-сервере. Имеет смысл только при типе аутентификации Login. |
|
|
Password |
Пароль пользователя на SMTP-сервере. Имеет смысл только при типе аутентификации Login. |
|
|
SimpleMAPI |
ProfileName |
Имя профиля в почтовой программе, установленной по умолчанию. Если не указано, используется профиль по умолчанию. |
|
Password |
Пароль на доступ к профилю. |
Описание:
Метод выполняет вход на почтовый сервер. Следует вызывать перед началом любой работы с сервером, например, перед получением входящих или отправкой исходящих сообщений.
Для создания списка Credentials следует использовать метод IMailFactory.CreateParamList. В список следует добавить все необходимые для типа сервера параметры. Если список параметров задан некорректно, то генерируется исключение. Формат исключения зависит от типа сервера.
После завершения работы с почтовым сервером следует вызывать метод Logoff.
Пример использования:
//Создать почтовую фабрику
MailFactory = CreateObject("SBUM.MailFactory")
//Запросить у фабрики сервер типа "MAPI"
Server = MailFactory.GetServer("MAPI")
//Создать и означить параметры входа
Credentials = MailFactory.CreateParamList()
Credentials.Items("ProfileName") = "Outlook"
//Выполнить вход на сервер
Server.Logon(Credentials)
//...
// Выполнить выход с сервера
Server.Logoff()
|
Метод Logoff |
