Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Exchange и Access  [new]
Zalagaev
Member

Откуда: Москва
Сообщений: 626
Господа, перерыл весь форум, но что-то не понимаю пока, как обойти проблему при отправке почты, когда аутлук запрашивает подтверждение. Мне вот нужно в автоматие отправлять 500 писем. Нереально же каждый раз отвечать на вопрос такой... что делать?

Пока делаю так

Dim oul As Outlook.Application
Dim mli As Outlook.MailItem
Dim atts As Outlook.Attachments
Dim strHTMLBody As String

filename="c:\1.xls"

Set oul = GetObject("", "Outlook.Application")
Set mli = oul.CreateItem(olMailItem)

mli.To = "dvzalagaev@rrrrrrr.ru"
mli.Subject = "Access Report"

strHTMLBody = "<html>" & vbCrLf
strHTMLBody = strHTMLBody & "<Title>Access Report</Title>" & vbCrLf
strHTMLBody = strHTMLBody & "<Body>" & vbCrLf
strHTMLBody = strHTMLBody & "</Body>" & vbCrLf
strHTMLBody = strHTMLBody & "</html>" & vbCrLf

mli.HTMLBody = strHTMLBody

Set atts = mli.Attachments
atts.Add filename, olByValue, 1, "Eagle"

mli.Display

mli.Send
12 фев 07, 16:08    [3772573]     Ответить | Цитировать Сообщить модератору
 Re: Exchange и Access  [new]
Zalagaev
Member

Откуда: Москва
Сообщений: 626
Так, неужели никто не сможет мне оказать помоссч????? Очень надо, правда!
12 фев 07, 17:49    [3773459]     Ответить | Цитировать Сообщить модератору
 Re: Exchange и Access  [new]
Zalagaev
Member

Откуда: Москва
Сообщений: 626
Информации катастрофически мало... нифига не ясно
12 фев 07, 17:54    [3773499]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить