﻿<?xml version='1.0' encoding='UTF-8'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Релиб / ASP / Веб-программирование  / Возможно ли указать имя пользователя и пароль при отправке в "CDO.Message" указать / Latest Posts</title><generator>InstantForum.NET v4.1.4</generator><description>Релиб</description><link>http://relib.com/forums/</link><webMaster>robot@relib.com</webMaster><lastBuildDate>Thu, 08 Jan 2009 08:13:55 GMT</lastBuildDate><ttl>20</ttl><item><title>RE: Возможно ли указать имя пользователя и пароль при отправке в "CDO.Message" указать</title><link>http://relib.com/forums/Topic908806-4-1.aspx</link><description>Вот так по идее:&lt;/P&gt;&lt;P&gt;.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' cdoBasic&lt;BR&gt;.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"&lt;BR&gt;.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"</description><pubDate>Tue, 12 Dec 2006 14:06:10 GMT</pubDate><dc:creator>bazile</dc:creator></item><item><title>Возможно ли указать имя пользователя и пароль при отправке в "CDO.Message" указать</title><link>http://relib.com/forums/Topic908806-4-1.aspx</link><description>Возможно ли указать имя пользователя и пароль (отличные от настроек по умолчанию) при отправке сообщения в CDO?&lt;BR&gt;&lt;BR&gt;Set iMsg = CreateObject("CDO.Message")  &lt;BR&gt;Set iConf = CreateObject("CDO.Configuration")&lt;BR&gt;'конфигурация отправки по SMTP, для использования дефолтных  &lt;BR&gt;'настроек системы можно не указывать  &lt;BR&gt;With iMsg.Configuration.Fields  &lt;BR&gt;    .Item("&lt;A href="http://schemas.microsoft.com/cdo/configuration/sendusing"&gt;http://schemas.microsoft.com/cdo/configuration/sendusing&lt;/A&gt;") = 2 '' cdoSendUsingPort&lt;BR&gt;    .Item("&lt;A href="http://schemas.microsoft.com/cdo/configuration/smtpserver"&gt;http://schemas.microsoft.com/cdo/configuration/smtpserver&lt;/A&gt;") = "mail.domain.ru"&lt;BR&gt;    .Item("&lt;A href="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"&gt;http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout&lt;/A&gt;") = 10&lt;BR&gt;    .Item("&lt;A href='http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=0'&gt;http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=0&lt;/A&gt;&lt;BR&gt;End With  &lt;BR&gt;iMsg.Configuration.Fields.Update  &lt;BR&gt;With iMsg  &lt;BR&gt;    '.Configuration = iConf&lt;BR&gt;    .BodyPart.Charset = "windows-1251"&lt;BR&gt;    .From = """От кого"" &amp;lt;123&lt;A href="mailto:123@domain.ru"&gt;@domain.ru&lt;/A&gt;&amp;gt;" &lt;BR&gt;    .To = """" &amp;amp; FIO &amp;amp; """ &amp;lt;" &amp;amp; mailaddress &amp;amp; "&amp;gt;"  &lt;BR&gt;    .Subject = "C днем рождения!"&lt;BR&gt;    iMsg.HTMLBody = "&amp;lt;HTML&amp;gt;&amp;lt;h2&amp;gt;C днем рождения! (см.прикрепления)&amp;lt;/h2&amp;gt;&amp;lt;/HTML&amp;gt;"&lt;BR&gt;    iMsg.AddAttachment (filename)  &lt;BR&gt;    .Send  &lt;BR&gt;End With </description><pubDate>Tue, 12 Dec 2006 13:49:15 GMT</pubDate><dc:creator>AvnAvn</dc:creator></item></channel></rss>