App.EXEName в VBA

[Rojohn]

Добрый день!
Кто-нибудь знает, какой аналог App.EXEName в VBA?
Нужно для API...

Спасибо!

[alibek]

А что, по твоему, этот аналог должен возвратить?

[Rojohn]

Наверное имя экзешника, который EXCEL

[alibek]

Ну тогда все просто.
Добавляй в модуль такую функцию:

Код: Выделить всё

Function AppExeName() As String
  AppExeName = "excel.exe"
End Function

[Rojohn]

Я бы добавил, но думаю тут не так просто. Дело в том, что я плохо владею API и хочу переделать кирпич по отправке письма по SMTP на VBA.
А там (в функции InitWinsockService) есть строки:

Код: Выделить всё

m_lngResolveMessage = RegisterWindowMessage(App.EXEName & ".ResolveMessage")   
p_lngWinsockMessage = RegisterWindowMessage(App.EXEName & ".WinsockMessage")

Думаю замена на Application.DefaultFilePath (единственное, что удалось найти по отношению к расположению EXE) совсем не подойдёт...

[iGrok]

О господи... =)))
Ты бы хоть в мсдн залез, посмотрел, что ты вообще такое делаешь..
Это должна быть ЛЮБАЯ УНИКАЛЬНАЯ ДЛЯ СИСТЕМЫ СТРОКА...

[Rojohn]

Дык никто и не говорил, то я гуру в API. Я даже не знаю как это правильно посмотреть в MSDN:)

И вообще, что-то в этом кирпиче не то - не работает.
Во-первых очепятка в слове "HELO", во-вторых - зачем указывать пароль для SMTP? А в третьих что-то ещё не пашет - нет контакта...

В итоге я могу написать как написал внизу первого поста?)) Или Application.AltStartupPath или...?

[iGrok]

Я даже не знаю как это правильно посмотреть в MSDN:)

http://lmgtfy.com/?q=RegisterWindowMessage

А вот насчёт остального - не знаю. С этим кирпичём не работал.

А как ты написал внизу первого поста? Там вроде вообще никакого кода нету.

В общем, вместо App.EXEName придумай тому, что ты пишешь какое-то относительно уникальное название. Типа "RojohnSMTP". Этого будет достаточно.

[Rojohn]

Это было в предпоследнем посте...

В общем, вроде класс есть, а вроде и нет. А вроде бы простая задача: отправить почтовое сообщение из Excel VBA по SMTP на стандартное мыло без вложений.......

[alibek]

Во-первых очепятка в слове "HELO", во-вторых - зачем указывать пароль для SMTP? А в третьих что-то ещё не пашет - нет контакта...

Во-первых, не опечатка.
Во-вторых, нужно.
А в-третьих, читай документацию по почтовым протоколам.

http://en.wikipedia.org/wiki/Simple_Mai ... r_Protocol и далее

[Rojohn]

Как интересно! Почему-то в обычной спецификации написано "HELO" - значит тут необычный SMTP...
А что, в документации есть что-то то, чего не учли разработчики кирпича и что мне надо добавить?
Или как иначе его юзать для отправки?
В VBA у меня вообще не доходит до места выбора команд - вылетает раньше где-то...

[FireFenix]

над SMTP ещё так ни кто не издевался

А что, в документации есть что-то то, чего не учли разработчики кирпича и что мне надо добавить?

Если это нормальный рабочий кирпич, то там только нужно внимательно прочитать документацию и подставить свои значения в нужных строчках конфигурации

[Rojohn]

Вроде как всё подставил правильно - не шлёт! Уже менял много раз по-разному - без разницы.

А описание (более старое правда) я читал - там про перестановки букв ни слова....

[iGrok]

Гм.. А что за кирпич-то?
Неужто этот: viewtopic.php?f=28&t=15649 ?
Нету там ошибок и опечаток.

[Rojohn]

Он самый... но чёт не шлёт ничего! И так и сяк его пытал. Только аттачи убрал и адреса свои на yandex.ru и на gmail.ru вставил...

[Rojohn]

Короче разобрался: глючная dll в Win XP. Скачал такую же с Vista, заменил и всё заработало в примере с CDO. А в этом классе он тоже используется...