Отправка почты макросом Excel

[doober]

Сообщение от valerij

If Send_Mail("valeri0749@yandex.ru", "valeri0749@yandex.ru", "проверка отправки почты", txt) Then

[/CODE]
Пишет:
"Не удалось отправить письмо"

Правильно пишет,этим методом самому себе невозможно отправить.

Я рад за Вас EducatedFool,что помог и вы окультурили функцию,потому ,что я вырвал её со своей программы.Она там имеет другой вид.Выдал как идею.

[valerij]

Сообщение от doober

Правильно пишет,этим методом самому себе невозможно отправить..

doober!
Да я как только, не пробовал, один фиг.
А скажи, так или на оборот?

If Send_Mail("от Кого", "Кому", "проверка отправки почты", txt) Then

[valerij]

Мужики!!!
Перешел в ХР, все заработало, письмо отправлено, правда еще, письмо, не увидел.
Значит с W7, работать не хочет и как ....??

[doober]

Когда я выделил строку,я подразумевал,что отправитель и получатель должны быть разными.
По вопросам безопасности в W7 такой метод отправки считается уязвимым,и они убрали эту возможность и библиотеку

[valerij]

Сообщение от doober

Когда я выделил строку,я подразумевал,что отправитель и получатель должны быть разными.

С этим я разобрался.

По вопросам безопасности в W7 такой метод отправки считается уязвимым,и они убрали эту возможность и библиотеку

И, что, никак, отправить почту, ставь ХР??

[valerij]

doober, Игорь!!!!!!!!!!!
Хоть и пишет, что письмо успешно отправлено, но ни одного письма не получил!!!
Почему, как проверить??????

[EducatedFool]

Хоть и пишет, что письмо успешно отправлено, но ни одного письма не получил!!!

Потому что ты либо отправляешь со своего адреса на свой адрес, либо пытаешься отправить письмо не со своего адреса.
Так не получится.

Правильно будет так:

If Send_Mail("КомуОтправляем@yandex.ru", "valeri0749@yandex.ru", "проверка отправки почты", txt) Then

Отправляй письма не на свой же адрес, а на любой другой.

[valerij]

Сообщение от EducatedFool

Потому что

С этим разобрался, все ОК, жаль, что под 7 не может, ну то ладно.
А вот почему, Игорь, твоим макросом не отправляет .xls файл?
Повторю свою задачу.
У меня в книге три листа(№2, №4 и ИТОГ), а нужно отправить два первых(№2, №4), макрос doober отправляет .xls файл, но вот в каком виде я получаю, скрин:

[doober]

Это потому,что я двоешник у меня 2 в кубе получилось 8
Замените строчку в коде

  If WB.Sheets(n).Name = "1@" Or WB.Sheets(n).Name = "4@" Or WB.Sheets(n).Name = "8@" Then
на
 If WB.Sheets(n).Name = "1@" Or WB.Sheets(n).Name = "4@" Or WB.Sheets(n).Name = "9@" Then

Игорь здесь ни причем

[valerij]

Сообщение от doober

Это потому,что я двоешник у меня 2 в кубе получилось 8

Сереж, а сколько же 2 в кубе =?
Час попоробую, а почему у меня в 7 не рулит, а Здесь....