Сообщение как вложение. Как узнать отправлено или нет?

[IgorGO]

По факту отправки сообщения по эл.почте должна сработать одна процедура обработки этого файла, а если файл не был отправлен - другая процедура.

теперь самому убогому понятно, что если в файле есть

Sub Одна
...
End Sub

Sub Другая
...
End Sub

то при отправке файла нужно выполнить Одна, в обратном случае - Другая

[IgorGO]

Private Sub CommandButton1_Click()
  If Application.Dialogs(xlDialogSendMail).Show Then MsgBox "Молодец! Отправил" Else MsgBox "Закрыл... гнида!!!"
End Sub

[IgorGO]

но в этой ситуации у пользователя есть несколько путей для проявления присущего пользователям ковартсва:
1. Удалить файл из сообщения
2. Отправить самому себе или на левый адрес

в итоге...
1. и нажал "Отправить" - но файл-то не отправлен!!!
2. файл ушел не по адресу!
в обоих случаях будет последующей процедурой обработан как отправленный((( хотя согласно п.1 факта отправки файла не было!!!

[Bezdar]

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

Private Sub CommandButton1_Click()
  If Application.Dialogs(xlDialogSendMail).Show Then MsgBox "Молодец! Отправил" Else MsgBox "Закрыл... гнида!!!"
End Sub

то, что загрузилось диалоговое окно отправки сообщения еще не значит, что сообщение было отправлено, потому как можно просто нажать крестик и выйти из него (окна) без отправки этого сообщения, не правда ли?

[Bezdar]

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

в обоих случаях будет последующей процедурой обработан как отправленный((( хотя согласно п.1 факта отправки файла не было!!!

вот именно! ситуаций может быть море, все не предусмотришь, а юзеры народ ушлый, все Кулибины через одного

[IgorGO]

а Вы
1. замените Ваш код на мой
2. 1 раз нажмите "Отправить"
3. 2-й раз закройте окно крестиком
(уловите разницу в полученных сообщениях)

[IgorGO]

и еще... пока Вы не обьясните ситуацию (что должно происходить, чего нужно добиться)
НИ КТО НИ ЧЕМ Вам НЕ ПОМОЖЕТ, лаконичная Вы наша!

[Bezdar]

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

а Вы
1. замените Ваш код на мой
2. 1 раз нажмите "Отправить"
3. 2-й раз закройте окно крестиком
(уловите разницу в полученных сообщениях)

Гениально! Вот что значит МЭТР. А меня в какие-то дебри унесло.
Вы мой спаситель! Благодетель! Огромное мерси! Беру обратно все, что я наговорила вам ранее.

[IgorGO]

А меня в какие-то дебри унесло

чтобы прекратить мучительные блуждания в дебрях - достаточно встретить своего Сусанина!

Поздравляю! (я знал, что задача решаема)))