06 июля 2015, 14:42
Вопрос по VBA и Outlook 2003
Люди, подскажите кто шарит. Хочу отправить запрос с телефона емейлом роботу в VBA (Excel), чтобы прислал текущее состояние робота и системы.
Аутлук на компе принимает запрос (простой емейл с текстом в теле) и че дальше? как-то его надо считать в VBA. Где его искать и как? Кто что подскажет, как лучше сделать?
Отправлять из VBA как-то проще было…
Аутлук на компе принимает запрос (простой емейл с текстом в теле) и че дальше? как-то его надо считать в VBA. Где его искать и как? Кто что подскажет, как лучше сделать?
Отправлять из VBA как-то проще было…
23:49
Наши гризли испугались гамбургских петухов… хе хеВойна Европе будет снится в кошмарных снах, где они будут ностальгировать по фюреру и подличать… хрюшки недорезанные, воевать не фэйки стряпать… Россия...
KrumBumBes, а если будет или пропадет, то вообще пофиг в чем бабос, да
23:41
Банк «Кузнецкий» — Прибыль 10 мес 2024г: 178,48 млн руб (-11,76% г/г)
KrumBumBes, спасибо, я туда не гляжу. Уж очень место специфическое
С основных торгов ОР сняли в мае 2023, это точно, я проверил
znak, старая песня о главном, и где бы не пел, все мимо. Киви, башнефть, теперь здесь зазубренное веками выдаешь? Про то что ты учитель учителей еще небыло? Еще про то что те кто в курсе пихая акци...
«Народный суд средней ступени города Цзинань (провинция Шаньдун. — Прим. ред.) публично приговорил <…> бывшего секретаря партийного комитета и председателя правления Банка Китая Лю Ляньгэ за пол...
23:23
Будет 60!, а то ждали 600, но вот что вышло.
Softline_IR, объясните, а то я не понимаю. У вас чистый долг/EBITDA резко вырос, до 2,4х, при текущих ставках слишком высокий показатель. Не безрассудно ли так увеличивать долг, занимая под высокий...
Кай Лёд, в октябре этого года падали, а в столбце октября рост .
23:22
фучи на МММвб на вечерке +0,3% это же просто ралли на текущем рынке
я бы сделал проще и устойчивее:
VBA проверяет папку с письмами по расписанию (каждую минуту например),
если появляется файл (письмо) с нужным содержанием, то отправляет Вам что надо.
А из Excel уже проверять его наличие.
Лучше поставить на комп и на мобильник приложение Dropbox с единым аккаунтом и роботом просто периодически сбрасывать файл в нужную папку на локальном компе. На телефоне файл автоматом синхронизируется и вы увидите состояние своего робота.
Опционально можно завести специальный файл для команд роботу.
ну можно и так конечно.
просто, быстро, бесконечно расширяемо, не нужно писать письма(небезопасные), минимум знаний.
намного безопаснее расшаривания папки на компе с роботом
особенно осознавая, что за этим стоит твой код,
каждую строчку которого ты понимаешь и знаешь.
А его наличие уже проверять из Excel VBA
… вот пример (находится за пару минут) с планеты эксель, почти все необходимое в нем есть:
Private Sub Application_NewMail()
Set myOlApp = Application
Set myNameSpace = myOlApp.GetNamespace(«MAPI»)
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myitem = myFolder.Items(myFolder.Items.Count)
If myitem.SenderName = «Нужный отправитель» Then
txt = myitem.Body
a = Split(txt, vbNewLine)
For i = 0 To UBound(a)
If InStr(1, a(i), «При трассировке пользователем») > 0 Then Stop: us = «FIO» ' тут необходимо распарсить нужный текст
If InStr(1, a(i), «сервер — клиент:») > 0 Then Stop: Ls = 123 ' тут необходимо распарсить нужный текст
If InStr(1, a(i), «клиент — сервер: „) > 0 Then Stop: UpLs = 123 ' тут необходимо распарсить нужный текст
If InStr(1, a(i), “тестовый объем: „) > 0 Then: dSize = 1234 ' тут необходимо распарсить нужный текст
Next
Set XL = CreateObject(“excel.application»)
XL.Visible = False
xlsFileName = «C:\test.xls» 'Путь к вашему файлу
Set b = XL.workbooks.Open(xlsFileName)
Set r = b.Application.Range(«DATA») 'имя вашей таблицы
i = r.rows.Count
r(i + 1, 1) = us
r(i + 1, 2) = Ls
r(i + 1, 3) = UpLs
r(i + 1, 4) = dSize
b.Close True
XL.Quit
End If
End Sub