Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Написание скриптов в Outlook

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4

Открыть новую тему     Написать ответ в эту тему

indapublic



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, нужен скрипт, который создавал бы новую учетную запись. Не могу найти готовый, сам вряд ли осилю. Может кто-то поделится уже готовым. Буду очень признателен

Всего записей: 200 | Зарегистр. 05-02-2008 | Отправлено: 04:43 03-12-2011
vlli

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
чтобы не мучиться попробуй сначала средствами самого аутлука, потом поищи макросы на V

Всего записей: 10 | Зарегистр. 04-12-2011 | Отправлено: 15:08 04-12-2011
indapublic



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Тут хоть мучайся, хоть не мучайся, все равно не получается.
Я дополнительно пытаюсь написать скрипт для закрытия аутлука. Но он почему-то не работает.
 
On Resume Next
Set Outlook = GetObject(, «Outlook.Application»)
If Err = 0 Then
Outlook.Quit()
End If
 
Не подскажите, в чем может быть ошибка

Всего записей: 200 | Зарегистр. 05-02-2008 | Отправлено: 15:16 04-12-2011
indapublic



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Немного исправил и все заработало
 
On Error Resume Next
Set Outlook = GetObject(, «Outlook.Application»)
If Err = 0 Then
Outlook.Quit()
End If

Всего записей: 200 | Зарегистр. 05-02-2008 | Отправлено: 11:25 05-12-2011
paradimov



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
может кто заморачивался уже с конвертом в трее... требуется помощь светлых голов!
 
задача: добиться появления конверта в трее в outlook 2007 при сортировке писем по папкам.  
 
общими усилиями в теме на ixbt создали скрипт, который, работает, но с существенной оговоркой.  
 
он раскидывать почту по папкам (и конверт появляется в трее), только после того, как будет вызвано окно VB (нажатием Alt-F11). т.е. открыл окно, закрыл – и тогда скрипт нормально работает.  
 
если же это окно [после запуска outlook] не открыть – то никакой реакции не будет. почта приходит, падает во "входящие" (для работы скрипта галки в правилах должны быть сняты), скрипт не срабатывает. если же нажать Alt-F11 в любой момент, то следующие письма уже будут обработаны скриптом.  
 
вопрос: как заставить срабатывать скрипт за запуске outlook'a?
 
спасибо

Всего записей: 7 | Зарегистр. 08-03-2008 | Отправлено: 05:54 06-12-2011 | Исправлено: paradimov, 05:55 06-12-2011
GVT



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет !
Может кто подскажет такую вещь, не могу никак найти в инете... кто сталкивался ???
ОЧЕНЬ НАДО
Вот программно создаю письмо и нужно чтобы это письмо было подписано ЦИФРОВОЙ подписью  
(т.е. установлен сертификат X509 подписи. Не путать с простой подписью внизу сообщения).
Чтоб было понятнее: Вкладка в интерфейсе Параметры -> окно Параметры сообщения -> Бзопасность -> Параметры безопасности -> окно Свойства безопасности -> шилдик Добавить в сообщение цифровую подпись.
Вот программно установить этот шилдик и нужно
все письма подписывать не надо (это к тому, что можно в настройках проставить и все будут такие),
ан нет только определенные.

Всего записей: 12 | Зарегистр. 30-09-2004 | Отправлено: 21:26 06-12-2011
GVT



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем спасибо - нашел. Sorry, что не написал сразу ;( , не было времени.
Вот решение довольно простое:
 
Dim msg As Outlook.MailItem
msg.GetInspector.CommandBars.FindControl(msoControlButton, 719, "", True).Execute
msg.GetInspector.CommandBars.FindControl(msoControlButton, 718, "", True).Execute
 
т.е. по ID кнопочки (msoControlButton) просто делаем нажатие ...
Вот собственно и всё.  
Проверено и работает на Outlook 2007, думаю и в др. тоже будет работать
 

Всего записей: 12 | Зарегистр. 30-09-2004 | Отправлено: 20:17 18-01-2012 | Исправлено: GVT, 20:19 18-01-2012
Yaromaxx

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sagirus
Вполне возможно сделать перемещение отправленных сообщений - пишем правило на перемещение после отправки, и отключаем сохранение отправленных писем в настройках почты. Иначе не нашел как такое можно сделать

Всего записей: 399 | Зарегистр. 24-02-2010 | Отправлено: 13:11 29-02-2012
xxxKOSCHEIxxx



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста,
 
Требуется в Outlook 2010 сделать так чтобы при отправке сообщение к нему в начало добавилась следующая часть:
 
From: От кого (e-mail)
To: Кому (e-mail)
Copy:  
Sent: Monday, July 30, 2012 18:42
Subject: "тема сообщения"

Всего записей: 2 | Зарегистр. 20-10-2011 | Отправлено: 19:18 01-08-2012
RaX

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Написал скрипт для Outlook на vba, теперь хочу его копировать на все компьютеры с помощью vbs. Может кто подскажет как это можно сделать
 
----------------------------
Option Explicit
 
Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")
 
wsh.Run("OUTLOOK.EXE")
 
Set wsh = Nothing
----------------------------
 
Застрял вот на этом месте запускаю outlook с помощью vbs, а как вызвать vba и импортировать текстовый файл не получается
 
Заранее благодарен

Всего записей: 18 | Зарегистр. 18-12-2005 | Отправлено: 17:09 27-09-2012
Black_Lung



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xxxKOSCHEIxxx
Нажать F1, в поиске набрать "создание подписи".
 
хотя это в конце будет ставится, чтобы в начале было во всех сообщениях нужно это настраивать на сервере почты возможно. У себя я не настраивал, изначально было что в каждом письме есть "от","кому" и т.п. и в любом аутлуке после 2003
 
RaX
outlook vba из вне работает через объект "outlook.application"
 

Код:
 
Set olApp = CreateObject("outlook.application")
Set oNS = olApp.GetNamespace("MAPI")
Set oFldr = oNS.Folders.Item("Microsoft Outlook Personal Folders File (.pst)")
.....
...
 

Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 18:01 27-09-2012 | Исправлено: Black_Lung, 18:18 27-09-2012
poofik



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Здравствуйте,
кто нибудь решал задачу с добавлением в "избранное" общкй папки Exchange. А то они спрятаны от пользователя пока их в избранное не кинешь.  
может у кого есть скрипт или подскажете куда посмотреть .
Спасибо.

Всего записей: 111 | Зарегистр. 23-08-2006 | Отправлено: 09:33 05-04-2013 | Исправлено: poofik, 09:33 05-04-2013
WestGott

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем
Написал скрипт на VBA под Outlook 2007 для разбора входящих писем. Скрипт сохраняет письма в папки на сетевом диске и сортирует по папкам в самом Outlook.
Текст скрипта поместил в ThisOtlookSession
Собственно скрипт это обработчик события Application_NewMail() и ряд вспомогательных подпрограмм вызывываемых из Application_NewMail()
 
Проблема заключается в том, что скрипт отрабатывает однократно при первом возникновении события Application_NewMail() - обработка проходит, письмо сохраняется в папку на диске, из папки "входящие" письмо перемещается в нужную папку в самом Outlook. То есть как бы всё нормально.
Но когда подобное письмо приходит второй раз - обработка не отрабатывает.
код

Всего записей: 96 | Зарегистр. 10-04-2010 | Отправлено: 23:08 04-05-2013 | Исправлено: WestGott, 23:17 04-05-2013
WestGott

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возникшую проблему решил, путём использования другого события. Вместо Application_NewMail() я переделал код под событие Application_NewMailEx(ByVal EntryIDCollection As String).
 
код

Всего записей: 96 | Зарегистр. 10-04-2010 | Отправлено: 18:58 19-05-2013
MaksimM23



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Мальчишки и девчонки, подскажите можно ли настроить Outlook 2007, чтобы он забирал почту с сервера каждый день ровно в 18:00, Outlook постоянно весит в трее. "Автоматически доставлять каждые" (0-1440мин.) - это меня не устраивает, ибо комп выключается, а при включении настройка - "Автоматически доставлять каждые" сбивается по времени. Может как скрипт можно написать? Спасибо!

Всего записей: 9 | Зарегистр. 10-02-2013 | Отправлено: 09:04 25-07-2013
Dugin

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте, есть скрипт для сохранения вложений из письма, запускается после срабатывания правила, с этим проблем нет. хотелось бы усовершенствовать функционал скрипта (знаний в кодировании увы минимальны). практически в каждом письме есть два файла с расширением .txt, один из которых в названии всегда имеет слово image, в идеале при сохранении хотелось бы получить переименование этих файлов в 1.txt и image.txt, при положительном решении вопроса могу финансово отблагодарить (адекватные суммы конечно)
 

Всего записей: 3 | Зарегистр. 07-04-2016 | Отправлено: 14:33 12-07-2016
KDPoid



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dugin,
Звучит несложно...
 скрипт показать можете?

Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 08:00 13-07-2016
Dugin

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KDPoid, да скрипт сейчас каждое письмо сохраняет в отдельную папку присваивая имя которые было в теме письма+время создания письма
 
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
  Dim objAtt As Outlook.Attachment
 
 dateOfMailItem = Format(itm.ReceivedTime, "yyyy.mm.dd_hhnnss")
 
For t = 1 To Len(itm.Subject)
  s = Mid(itm.Subject, t, 1)
  If Not LCase(s) Like "[?/\|*<>:]" Then
    sSubject = sSubject & s
  End If
Next t
 If Dir("c:\Work\" & dateOfMailItem & "_" & sSubject, vbDirectory) = "" Then
     MkDir "c:\Work\" & dateOfMailItem & "_" & sSubject
 End If
 saveFolder = "c:\Work\& dateOfMailItem & "_" & sSubject & "\"
  k = 0
 
 For Each objAtt In itm.Attachments
 
 ext = Mid(objAtt.FileName, Len(objAtt.FileName) - InStr(1, StrReverse(objAtt.FileName), ".") + 1, Len(objAtt.FileName))
j = " "
k = k + 1
  For i = 1 To 1000
   If Not Dir(saveFolder & Format(Now, "yyyy.mm.dd") & "_" & k & "_" & j & objAtt.FileName & ext) = "" Then
    j = "_" & i & "_"
   Else
    Exit For
   End If
  Next i
  objAtt.SaveAsFile saveFolder & j & objAtt.FileName & ext
  Set objAtt = Nothing
 Next
End Sub

Всего записей: 3 | Зарегистр. 07-04-2016 | Отправлено: 08:36 13-07-2016 | Исправлено: Dugin, 08:38 13-07-2016
KDPoid



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Странно, кажется тут:

Код:
saveFolder = "c:\Work\& dateOfMailItem & "_" & sSubject & "\"  

потеряна кавычка
 
А про остальное(Оставлю только интересные части):

Код:
 
...
 saveFolder = ... & "\" ' Сформировали название папки со слэшем в конце
...
 For Each objAtt In itm.Attachments ' Для каждого аттача
   ext = ... ' выделим его старое расширение из имени файла
... ' заполняем j чтобы избежать переписывания файлов
   
' сохраняем вложение в папку saveFolder  
' c именем, составленным из j, старого имени с расширением и ещё раз расширения... ?!?
   objAtt.SaveAsFile saveFolder & j & objAtt.FileName & ext  
' Попробовал, так и есть. image.png сохраняется как image.png.png
 
  Set objAtt = Nothing  
 Next  
 

 Так что, всё что вам нужно, перед сохранением проверить имя файла и решить, под каким именем сохранять вложение.
Например, строчку сохранения переписать так:

Код:
 
If InStr("image", objAtt.FileName) > 0 Then
    objAtt.SaveAsFile saveFolder & j & "image.txt"
Else
    objAtt.SaveAsFile saveFolder & j & "1.txt"
End If
 

Использование j я оставил, чтобы письма с одинаковой темой или с более чем двумя вложениями не перетирали на диске друг-друга.
Ну, вам виднее, нужно ли оно, если что, убрать j, я думаю, и сами справитесь.

Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 10:23 15-07-2016
Dugin

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо буду пробовать

Всего записей: 3 | Зарегистр. 07-04-2016 | Отправлено: 13:55 15-07-2016
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Написание скриптов в Outlook


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru