{quote}{login=Казанский}{date=12.06.2010 03:04}{thema=}{post}Наверно, это в Аутлуке: Сервис - Центр управления безопасностью - Программный доступ - Никогда не предупреждать.{/post}{/quote}  
 
А если outlook 2003? такого в Сервисе я не нашел

вопрос следующий макрос для отправки письма c книгой excel взятого с этого замечательного ресурса ActiveWorkbook.SendMail Recipients:="post@post.ru", Subject:="тема" все работает, но можно как то убрать запрос на подтвержления отправки письма?

Спасибо огромное!!!! все заработало

* опечатка там, срабатывает все дело до первой фильтрации по #н/д

Я записывал его в excele сравнивал 2 файла впр-ом на предмет различия по уник столбцу, в ручную все работает первый раз выбираю фильтр по #н/д, потом не пустые, потом пустые все это в одном столбце, стандартные вообщем операции для сравнения. Записываю макрос а он срабатывает только до места протягивания формулы где появляются значения н/д и те значения которые присутсвуют на 2 листах, так вот макрос срабатывает до момента фильтрации по н/д, далее работа его прекращается и лист остается вообще без данных, повторяю в ручную все конечно работает а нужен очень макрос тк таких файлов оч много и каждый раз их впр-ить не оч хочется, помогите )))

Sub  
 
Selection.AutoFilter  
   Columns("I:I").Select  
   Selection.Insert Shift:=xlToRight  
   Selection.NumberFormat = "General"  
   Range("I10").Select  
   ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Лист1!C[-4]:C[-3],2,0)"
   Selection.AutoFill Destination:=Range("I10:I1635"), Type:=xlFillDefault  
   Range("I10:I1635").Select  
   Selection.Copy  
   Range("I1637").Select  
   Range("I1634").Select  
   Range("I1635").Select  
   Range(Selection, Selection.End(xlUp)).Select  
   Application.CutCopyMode = False  
   Selection.Copy  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   Application.CutCopyMode = False  
   Selection.AutoFilter Field:=9, Criteria1:="#н/д"  
   Selection.ClearContents  
   Selection.AutoFilter Field:=9, Criteria1:="<>"  
   Rows("12:1634").Select  
   Selection.Delete Shift:=xlUp  
   Selection.AutoFilter Field:=9, Criteria1:="="  
   Range("I2").Select  
End Sub  
 
Макрос перестает работать после первого контакта с автофильтром, как бороться???

спасибо!

Нужна помощь, решение.  
Задача сравнить файлЫ tabl1 и tabl2 по столбцу ID  
Оставить в файле tabl2 только тех людей которые не нашлись при сравнении по ID c файлом tabl1