Возможно ли указать имя пользователя и пароль при отправке в "CDO.Message" указать
РЕЛИБ
Новости | Форумы | Дневники | Работа
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        

Форумы » Веб-программирование » ASP » Возможно ли указать имя пользователя и пароль...

Возможно ли указать имя пользователя и пароль... Expand / Collapse
Автор
Сообщение
12.12.2006 13:49
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 14.12.2007 18:22
Сообщ.: 131, Visits: 824
Возможно ли указать имя пользователя и пароль (отличные от настроек по умолчанию) при отправке сообщения в CDO?

Set iMsg = CreateObject("CDO.Message") 
Set iConf = CreateObject("CDO.Configuration")
'конфигурация отправки по SMTP, для использования дефолтных 
'настроек системы можно не указывать 
With iMsg.Configuration.Fields 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '' cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.ru"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=0
End With 
iMsg.Configuration.Fields.Update 
With iMsg 
    '.Configuration = iConf
    .BodyPart.Charset = "windows-1251"
    .From = """От кого"" <123@domain.ru>"
    .To = """" & FIO & """ <" & mailaddress & ">" 
    .Subject = "C днем рождения!"
    iMsg.HTMLBody = "<HTML><h2>C днем рождения! (см.прикрепления)</h2></HTML>"
    iMsg.AddAttachment (filename) 
    .Send 
End With 
Сообщ. #908806
12.12.2006 14:06
Supreme Being

Supreme Being

модератор
Last Login: 04.05.2008 13:32
Сообщ.: 7 240, Visits: 65 445
Вот так по идее:

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

Сообщ. #908812
« пред. тема | след. тема »


Эту тему читают Expand / Collapse
Посетители: 0 (0 гостей, 0 участников, 0 скрыт.участников)
Сейчас нет участников, просматривающих тему.
Модераторы: Alexey, boombastik, bazile, pl, Alexey Spirin

Время GMT +3:00, Сейчас 6:04

© 2000–2006 · B2B trade