Вопросы с тегами [outlook]

1

голосов
4

ответ
3.7k

Просмотры

Получите сегодняшние встречи с прогнозом с помощью PowerShell: Нежелательные результаты

Я извлекая сегодняшние встречи со следующим кодом: $ olFolderCalendar = 9 $ ола = New-Object -ComObject Outlook.Application $ нс = $ ol.GetNamespace ( 'MAPI') $ Start = (Get-Date) .AddDays (- 1) .ToShortDateString () + "00:00" $ End = (Get-Date) .AddDays (+1) .ToShortDateString () + "00:00" $ Filter = «[MessageClass] = 'IPM.Appointment' И [Пуск]> '$ Start' и [End] < '$ End'»$ НАЗНАЧЕНИЯ = $ ns.GetDefaultFolder ($ olFolderCalendar) .Items $ Appointments.Sort ( "[Start]") $ Appointments.IncludeRecurrences = $ ложный Еогеасп ($ Назначение в $ Appointments.Restrict ($ Filter)) {...} Все сегодняшние назначения перечислены, но также много повторяющихся встреч, которые не происходит сегодня (дни рождения, еженедельные встречи, ...). Любая идея, как избежать этого? РЕДАКТИРОВАТЬ: Похоже, все эти нежелательные назначения рода из моего мобильного телефона синхронизированного мировоззрения. Постараюсь сценарий на «чистый» PC. EDIT: Я попробовал скрипт на другом компьютере без синхронизированных элементов, и это то же самое: все повторяющиеся элементы отображения, являются ли они сегодня или нет. И [IsRecurring] = '$ False' не помогает либо.
Fabian
1

голосов
1

ответ
68

Просмотры

Изменено MessageClass непрочитанного элемента почты в папке «Непрочитанные» не может быть сохранено без ошибок

У меня есть собственный внешний вид 2013+ надстройка с помощью Add-In Express, с помощью кнопки на главной ленте, которая при нажатии меняет класс сообщений выбранного почтового отправления (среди других на самом деле-полезных операций). Это прекрасно работает во всех ситуациях, потому что если выбранная папка в Outlook, это папка Непрочитанного исключения. При сохранении MailItem с обновленным MessageClass для непрочитанных элементов в этой папке я получаю сообщение об ошибке: Операция не может быть выполнена, так как сообщение было изменено. Это также происходит, если элемент становится автоматически считывается с помощью настройки панели чтения, но если сообщение вручную помечены как прочитанные до нажатия кнопки. Это не происходит, если другие менее фундаментальные свойства (как субъект) почтовое отправление будут изменены таким же образом. Следующий пример иллюстрирует проблему (Bounds проверка / обработку исключений для краткости опущена): общественного недействительный ChangeSelectedMailItemMessageClass () {вар activeExplorer = _outlookApp.ActiveExplorer (); Выбор вар = activeExplorer.Selection; Пункт вар = Выбор [1] в качестве MailItem; item.MessageClass = "Some.Valid.Message.Class"; item.Save (); // "Операция не может быть выполнена, так как сообщение было изменено. Plugin.Marshal.ReleaseComObject (пункт); Plugin.Marshal.ReleaseComObject (выбор); Plugin.Marshal.ReleaseComObject (activeExplorer); } Такое же поведение можно увидеть пытается установить пользовательские свойства пользовательских элементов в поисковой папке, критерии ссылки, что пользователь собственности, поэтому я подозревал, что это связано с папки поиска, а не папку непрочитанной почты специально. Отпускание ссылки отбора и activeExplorer до внесения поправок в MailItem нет никакой разницы, и срок службы MailItem от чтения внести поправки настолько мал, что это может быть сделано (с учетом приведенных выше фрагмент кода). Может быть уместна информация: прогноз 2016, хотя дублированные на 2013 Использование надстроек Express, хотя подозрительные объекты не связаны COM выпускается как можно скорее, насколько я могу сказать, Outlook, подключается к Exchange Online против автономный режим не имеет никакого значения, ошибка та же Эти сообщения в моем почтовом ящике или какой-то вложенной, никакие другие почтовые ящики, связанные с Outlook, в то время, пока можно ли внести изменения в MessageClass непрочитанного элемента из папки непрочитанной почты, не встречая ошибку? Edit: Представляется, что другая установленная надстройка мешает каким-то образом в этом процессе, но это
Pablissimo
1

голосов
0

ответ
379

Просмотры

Включение опции Run-а-Script в мастере правил (Windows 7, Outlook 2016)

Опция «Выполнить скрипт» отключена для безопасности с помощью обновления Windows. Здесь https://www.slipstick.com/outlook/rules/outlook-2016-run-a-script-rules/ вы можете увидеть разницу до и после обновления: «запустить приложение» отсутствует. Если вы хотите посмотреть на скриншот от меня (после обновления Microsoft) посмотреть на последнее изображение в этом сообщении. У меня немецкая версия Outlook. Для включения этой опции я смотрел на Outlook 2013 «Выполнить скрипт» правило исчезло. Я включил макрокоманд (испытано как было упомянуто @jsotola) и добавьте в реестре следующий ключ: [HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 15.0 \ Outlook \ Security] "EnableUnsafeClientMailRules" = DWORD: 00000001. Но нет никакого «Выполнить скрипт» -option в правилах Outlook. Я тестировал его даже с перезагрузкой. Редактировать: Я проверил его на другом компьютере с Windows 10, а также Outlook, 2016: Вот ключ реестра работает как необходимо, и я могу выбрать «Выполнить скрипт». Так что я вижу, это все еще работает. Но мне это нужно для моего компьютера с Windows 7.
Sascha
1

голосов
1

ответ
87

Просмотры

VBA электронной почте ответ - текст не добавляет

Я сочинительство макрос, который находит по электронной почте и ответы на него. Проблема заключается в том, что текст, который я хочу ответить не добавляет. Не могли бы вы сказать мне, что я делаю неправильно? Sub Test () Dim olApp как объект Dim olNs как объект Dim Fldr как объект Dim I As Long Set olApp = CreateObject ( "Outlook.Application") Set olNs = olApp.GetNamespace ( "MAPI"). GetDefaultFolder (olFolderInbox) .Folders ( "Тест") я = 1 Для каждого olMail В olNs.Items Если InStr (olMail.Subject, "kanapka") 0 Тогда С olMail.ReplyAll .CC = "хуг @ хуг" .Body = "Dear All," _ & vbCrLf и "аааааа" «эти две линии должны добавить olMail.Reply.Display End С I = I + 1 End If Next End Sub olMail
Tomek
1

голосов
2

ответ
2.2k

Просмотры

Создать JIRA вопрос с электронной почтой Outlook,

Можно ли автоматически создавать JIRA вопрос с некоторой заранее определенной электронной почты Outlook? Так как только что настроен почтовый идентификатор получает почту, проблема JIRA создается автоматически.
testndtv
1

голосов
1

ответ
649

Просмотры

Вставить изображение в HTML для автоматического outlook365 Email Отправить

Я пытаюсь внедрить и образ в моем HTML-код с помощью SMTP и электронной почты в питона. Пакеты: импорт smtplib из email.mime.multipart импорта MIMEMultipart из email.mime.text импорта MimeText Это фрагмент кода в HTML Это то, что я вижу в реальной отправки электронной почты, я чувствую, что я делаю что-то очень неправильно, что, вероятно, очевидно, для большинства.
megv
1

голосов
1

ответ
31

Просмотры

Добавление PDF в Outook

Можете ли вы помочь мне с этим кодом, я новичок пытается решить это. Я создаю PDF файл из конкретного листа (первая страница), и я хотел бы, чтобы добавить его к электронной почте с CC-адресом. Sub zapisz () Dim ThisFile As String Dim OutApp как объект Dim OutMail как объект ThisFile = Range ( "b8"). Value & "" & Range ( "B9"). Value & "" & Range ( "g8"). Value & "" & Range ( "h8") Значение ActiveWorkbook.ExportAsFixedFormat Тип:. = xlTypePDF, FileName: = _ ThisFile, Качество: = _ xlQualityStandard, IncludeDocProperties: = False, IgnorePrintAreas: = False, _ С: = 1 To: = 1, OpenAfterPublish: = False Набор OutApp = CreateObject ( "Outlook.Application") Set OutMail = OutApp.CreateItem (0) С OutMail .to = "" .CC = "[email protected]" .BCC = "" .Subject = "OFERTA ххх" .Body = "Szanowni Państwo, ш załączniku przesyłam ofertę." не .Attachments.Add (ThisFile & "*" и ".pdf") .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Ничто с применением .ScreenUpdating = True .EnableEvents = True End With End Sub`
Ada
1

голосов
1

ответ
798

Просмотры

Не получать ссылки Outlook.MAPIFolder в проекте VBA

Я использую внешний вид 2016 года VBA редактор дает IntelliSense для вещей в пространстве имен Outlook. Однако MAPIFolder не доступен. Моя первая мысль была, что это может быть ссылка проблемы. Таким образом проверяется Инструменты> Ссылки. Я вижу только некоторые ссылки IMAPI. Однако добавление их не решить эту проблему. Кроме того, я думал, что должен быть какой-то длл, что делает трюк. Следовательно, гугл, и получил mapi32.dll. Она обычно находится в папке System32. Однако, VBA не позволяет добавить что либо ... Что такое правильная ссылка, которую я должен добавить? Как решить эту проблему?
deostroll
1

голосов
0

ответ
333

Просмотры

Удаленный сервер возвратил ошибку: (407) Proxy Authentication Required ошибка в прогнозе 365 службы

Я использую ниже Microsoft Exchange URL службы, чтобы позвонить в почтовый ящик в моем asp.net (4,5) C # приложения. https://outlook.office365.com/EWS/Exchange.asmx Обслуживание и и его вызов работает отлично во время работы с Visual Studio 2012. Но в то время как хостинг в IIS, я получаю ошибку ниже то время как метод обслуживания вызова. Удаленный сервер возвратил ошибку: (407) Proxy Authentication Required Я использую следующий код для вызова службы: ExchangeService обслуживания = новый ExchangeService (ExchangeVersion.Exchange2010_SP1); service.Credentials = новые WebCredentials ( "[email protected]", "PWD", "дом"); service.UseDefaultCredentials = TRUE; Microsoft.Exchange.WebServices.Data.Folder RootFolder = Microsoft.Exchange.WebServices.Data.Folder.Bind (обслуживание, WellKnownFolderName. MsgFolderRoot); rootFolder.Load ();
Praveen VR
1

голосов
1

ответ
220

Просмотры

Правило, которое работает код для сохранения вложений выключается

Это Выполнить код сценария для сохранения вложений останавливает сохранение вложений, так как правило, отключается. Public Sub SaveAttachmentsToDisk (MITEM Как Outlook.MailItem) Dim oAttachment Как Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "C: \ Users \ andra.aeras \ Documents \ Test \" Для каждого oAttachment В MItem.Attachments Если правый (oAttachment.FileName , 4) = «XLSX» Тогда oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName End If Next End Sub есть ли способ, чтобы «включить» правила или улучшить этот код, чтобы работать должным образом или работать без правил?
1

голосов
1

ответ
60

Просмотры

VSTO: Откройте календарь эксплорер в новом окне

я нашел этот вопрос: Переключить на календарь Outlook с помощью VSTO. Это работает довольно хорошо, но я хочу, чтобы открыть календарь в новом окне, чтобы не изменить пользователям текущего окна. Я не мог найти какую-либо информацию о том, как это сделать, или, если это вообще возможно. Спасибо за любую помощь!
Maik Fruhner
1

голосов
3

ответ
65

Просмотры

Включить строку текста в HTML электронной почты на основе значения ячейки

У меня есть шаблон с HTML тела. Я хочу, чтобы включить линию в зависимости от величины стоимости клеток F. Если в ячейке F написано «неполными», то она должна включать в себя фразу «Ваш платеж неполна» в электронной почте текст. Если в ячейке F написано «полное» пространство добавляется к телу HMTL. Как я могу добиться этого? С OutMail .to = Cells (cell.Row, "C"). Значение .Subject = "Запрос" & Клетки (cell.Row, "E"). Значение .BodyFormat = olFormatHTML .HTMLBody = Cells (cell.Row, " А ".) Значение & Cells (cell.Row, "B".) Значение _ & "состояние вашего счета является" _ Если (Cells (cell.Row, "F") Value) =. "неполный", то: .HTMLBody = "Ваш платеж будет неполным" _ Else .HTMLBody = "" _ & "Спасибо" _
Al Nikolaj
1

голосов
2

ответ
2.1k

Просмотры

Pasting Chart into Outlook Email from Excel

Пробовал все другие коды на подобных страницах, но не работать. Это моя текущая версия. Работает только если я в настоящее время нового окна электронной почты открытого и как ни странно, мой код будет вставить .Body и диапазон ячеек детали на 2 отдельных новые окна электронной почты. Я просто хочу, чтобы код, открыть новое окно электронной почты с содержанием .Body и деталь диапазона ячеек (содержит таблицу). Кто-нибудь есть какие-либо идеи, где мой код пошло не так? Sub pasting01 () Set OutApp = CreateObject ( "Outlook.Application") Set OutMail = OutApp.CreateItem (0) С OutMail .TO = "[email protected]" .CC = "[email protected]" .Subject = " Тест».Body = "Уважаемый г-н Ли" и vbNewLine ActiveSheet.Range ( "A1: J30"). Copy Set vInspector = OutMail.GetInspector Set wEditor = vInspector.WordEditor wEditor.Application.Selection.Start = Len (.Body) wEditor .Application.Selection.
josephyschen89
1

голосов
1

ответ
1.6k

Просмотры

Изменение или добавление времени на дату в VBA

Я работаю с проектом VBA для Outlook. Проект рассматривает Календарь встреч и сравнивая их с датами вырванных из базы данных SQL и хранимых в переменной Date. В настоящее время, когда даты выходят из базы данных SQL они не имеют какой-либо компонент времени для них, но я хотел бы добавить один к нему. Например из запроса SQL приходит «07/03/2018», и я хотел бы быть в состоянии установить это как «07/03/2018 9:00:00» и различные другие времена дня. Есть ли способ сделать это без преобразования переменной даты в строку и просто добавить время на в конце? Это потому, что я хотел бы иметь возможность использовать функции, основанные Date, такие как DateAdd и т.д. на переменной в программе позже.
Matt Bartlett
1

голосов
0

ответ
172

Просмотры

Sendusingaccount only works when Outlook is not running

Я пытаюсь автоматизировать определенные календарные приглашения в Outlook. Автоматизации основана на VBA в Excel. Мне нужно отправить приглашение из вторичной Перспективы (Exchange) счета, что у меня есть полный доступ. Ниже код представляет собой простой тест, который должен сделать это. Но по какой-то причине он только работает, когда прогноз уже не работает. Когда я запускаю код в то время как прогноз уже запущен, приглашение будет создан, но «от» поле пусто и приглашать только показывает в календаре получателя, а не в моем календаре. Когда Outlook не выполняется, когда код выполняется, все работает: создается приглашение, «из» поля правильно показывает «[email protected]» и пригласить шоу как в календаре получателя и в моем календаре. Когда я пытаюсь поставить на моей основной учетной записи в коде (т.е. Установите olAcct = OL.Session.Accounts ( «[email protected]»)), всё отлично работает независимо от состояния Outlook (т.е. работает или не работает). Любые идеи о том, как это исправить, так что код может работать с Перспективой уже работает? Sub Test () Dim OL Как Outlook.Application, olApp Как Outlook.AppointmentItem, olAcct As Outlook.Account Set OL = GetObject ( "Outlook.Application") Set olApp = OL.CreateItem (olAppointmentItem) Установите olAcct = OL.Session. Accounts ( "[email protected]") olApp.MeetingStatus = olMeeting olApp.RequiredAttendees = "[email protected]" olApp.Subject = "тест" olApp.body = "тестирование" olApp.SendUsingAccount = olAcct olApp.Display End Sub все не работает совершенно независимо от состояния Outlook (т.е. работает или не работает). Любые идеи о том, как это исправить, так что код может работать с Перспективой уже работает? Sub Test () Dim OL Как Outlook.Application, olApp Как Outlook.AppointmentItem, olAcct As Outlook.Account Set OL = GetObject ( "Outlook.Application") Set olApp = OL.CreateItem (olAppointmentItem) Установите olAcct = OL.Session. Accounts ( "[email protected]") olApp.MeetingStatus = olMeeting olApp.RequiredAttendees = "[email protected]" olApp.Subject = "тест" olApp.body = "тестирование" olApp.SendUsingAccount = olAcct olApp.Display End Sub все не работает совершенно независимо от состояния Outlook (т.е. работает или не работает). Любые идеи о том, как это исправить, так что код может работать с Перспективой уже работает? Sub Test () Dim OL Как Outlook.Application, olApp Как Outlook.AppointmentItem, olAcct As Outlook.Account Set OL = GetObject ( "Outlook.Application") Set olApp = OL.CreateItem (olAppointmentItem) Установите olAcct = OL.Session. Accounts ( "[email protected]") olApp.MeetingStatus = olMeeting olApp.RequiredAttendees = "[email protected]" olApp.Subject = "тест" olApp.body = "тестирование" olApp.SendUsingAccount = olAcct olApp.Display End Sub
daniel
1

голосов
1

ответ
1.5k

Просмотры

How to get ics calendar invitation to automatically add to calendar

Я генерация Микросхема календаря приглашения с пакетом узла ческого генератором и отправкой вложения в электронной почте с помощью Mandrill. Календарь Микросхемы приглашение содержит информацию для одного события в определенное время и дату. Пример сгенерированный файл: BEGIN: VCALENDAR версия: 2.0 PRODID: - // sebbo.net//ical-generator//EN МЕТОД: ЗАЯВКА ИМЯ: XXXX событие X-WR-CALNAME: ххххй НАЧАТЬ: VEVENT UID: [email protected] ПОСЛЕДОВАТЕЛЬНОСТЬ: 0 DTSTAMP: 20180318T202459Z DTSTART: 20180330T230000Z DTEND: 20180330T230000Z РЕЗЮМЕ: тест МЕСТОНАХОЖДЕНИЕ: тест ОПИСАНИЯ: тест ОРГАНИЗАТОР; CN = "Информация": электронная почта: [email protected] КОНЕЦ: КОНЕЦ VEVENT: VCALENDAR на данный момент, пользователь получает календарь приглашение в качестве вложения в электронной почте и может добавить событие в свой календарь, если они открывают приложение и нажмите на кнопку «добавить в календарь» (в перспективе). Какие изменения мне нужно сделать так, чтобы календарь пригласите автоматически анализироваться почтовым клиентом и добавляется в календарь пользователя (подобная функциональность содержится в электронном подтверждении от сайтов, таких как Meetup и Eventbrite). Не уверен, что у меня есть контекст знание вокруг, как клиенты электронной почты, календарь система или .ics файлы работы, чтобы иметь структуру, как подойти к этой проблеме Любые предложения или указатели на ресурсы очень ценятся! Спасибо! ИКС файлы работа, чтобы иметь структуру, как подойти к этой проблеме Любые предложения или указатели на ресурсы очень ценятся! Спасибо! ИКС файлы работа, чтобы иметь структуру, как подойти к этой проблеме Любые предложения или указатели на ресурсы очень ценятся! Спасибо!
Brian C
1

голосов
1

ответ
286

Просмотры

Должен ли я добавить Salesforce SPF запись в самом моем домене?

У меня возникли некоторые проблемы с письмами, которые отправляются от SF. Поэтому я хотел, чтобы добавить SPF записи НФА. Добавить ли это сам мой домен? Например, мой домен размещен из NetworkSolutions. Я иду туда и добавить СПФ запись SF, правильно? Если да, то я с немного трудно решить, где именно я бы поставил рекорд ФГИ в полях. Я referrencing этой справочной статьи. https://help.salesforce.com/articleView?id=Sender-Policy-Framework-SPF-and-Salesforce-SPF-Record&language=en_US&type=1 Что бы я положил в хозяине? SF посылает почту из электронной почты, выполненном, как example.com. Там нет субдомен как help.example.com. Был бы я просто положить у = SPF1 тх включают: _spf.salesforce.com ~ все в текстовом поле? Для хозяина, я положил, что мой MXRecord есть, что: пример-com.mail.protection.outlook.
Paul
1

голосов
0

ответ
239

Просмотры

Java Mail Api getting stuck at “220 2.0.0 SMTP server ready”

Так что я пытаюсь отправить почту с помощью корпоративной электронной почты с использованием протокола SMTP. то есть. smtp.office365.com Я пытался всячески закодировать его, но каждый раз, когда она застревает на 220 2.0.0 SMTP сервер готовый код отладки Op DEBUG: JavaMail версия 1.5.1 DEBUG: успешно загружен ресурс: / META-INF /javamail.default.providers DEBUG: Таблицы нагруженных провайдеров DEBUG: Провайдеры Перечислены По имени класса: {com.sun.mail.smtp.SMTPSSLTransport = javax.mail.Provider [ТРАНСПОРТ, SMTPS, com.sun.mail.smtp.SMTPSSLTransport , Oracle], com.sun.mail.smtp.SMTPTransport = javax.mail.Provider [ТРАНСПОРТ, SMTP, com.sun.mail.smtp.SMTPTransport, Oracle], com.sun.mail.imap.IMAPSSLStore = javax.mail .Provider [ЗАП, IMAPS, com.sun.mail.imap.IMAPSSLStore, Oracle], com.sun.mail.pop3.POP3SSLStore = javax.mail.Provider [ЗАП, POP3S, com.sun.mail.pop3.POP3SSLStore, Oracle], com.sun.mail.imap.
Tuhin Bagh
1

голосов
1

ответ
109

Просмотры

findMeetingTimes is not returning busy time slot, “minimumAttendeePercentage” is not effective

Я звоню /v1.0/me/findMeetingTimes, чтобы проверить наличие пользователей. Вот запрос образца: { "чел": [{ "типа": "Обязательно", "EMAILADDRESS": { "имя": "ABC", "адрес": "[email protected]"}}], " minimumAttendeePercentage ": 0.0, "timeConstraint": { "activityDomain":" без ограничений " "временные интервалы": [{ "старт": { "DateTime": "2018-03-30T15: 00: 00Z", "TIMEZONE":" UTC "}, "конец": { "DATETIME": "2018-03-30T16: 00: 00Z", "TimeZone": "UTC"}}]},"
QiZ
1

голосов
0

ответ
70

Просмотры

Доступ Перспектива Android приложение события локально из пользовательского приложения

Мое намерение состоит в том, чтобы иметь возможность видеть вновь добавленные события в Outlook, приложение для Android в приложении агрегатора без подключения к сети. То, что я пробовал: 1) ActiveSync не синхронизирует календари / событий локально (с учетом исходного кода), и он не имеет доступа к контент-провайдеров локального приложения Outlook, напрямую, вместо этого он управляет только поставщиками календаря по умолчанию на Android. 2) контент-провайдеров запросов - не работает, потому что все поставщики приложения Outlook, имеют андроида: экспортироваться = «ложь» Может быть, есть Android Гуру, который может предложить третий вариант?
Eddie Jamsession
1

голосов
1

ответ
79

Просмотры

Создание динамического столбца Excel из электронной почты Outlook

Каждый день я получаю электронные письма, как этот ID | Имя | Цена | КОЛ-ВО | Действительно 1 | ABC | 100,50 | 5 | Y 2 | XYZF | 28,34 | 8 | Y Затем я скопировать содержимое моей электронной почты в электронную таблицу первенствовать, что у меня есть. Теперь то, что я хочу достичь, это запустить макрос, который будет читать это письмо и создать столбцы так ID, Название, Цена, КОЛ и Действителен применять допустимые значения по правой колонке. Является ли это достижимо? Из моего ограниченного знания у меня есть макрос, который извлекает сообщение всего прогноза, но как я могу сделать их в столбцы, а затем применить правильные значения для исправления столбцов? Macro Sub ExportToExcel () On Error GoTo ErrHandler Dim appExcel Как Excel.Application Dim ВКБ Как Excel.Workbook Dim As Excel.Worksheet нед Dim ГСЧ Как Excel. Диапазон дим strSheet As String Dim strPath As String Dim intRowCounter As Integer Dim intColumnCounter As Integer Dim As MSG Outlook.MailItem Dim NMS Как Outlook.NameSpace дим FLD Как Outlook.MAPIFolder Dim ITM As Object strSheet = "test.xlsx" strPath = «C : \ Test \»strSheet = strPath & strSheet Debug.Print strSheet 'Выберите папку экспорта Set NMS = Application.GetNamespace ( "MAPI") Set FLD = nms.PickFolder' Handle потенциальных ошибок с диалоговым окном Выбора папки. Если FLD ничего после этого MsgBox «Там нет почтовых сообщений для экспорта», vbOKOnly, «Ошибка» Exit Sub ElseIf fld.DefaultItemType olMailItem Then MsgBox «Там нет почтовых сообщений для экспорта», vbOKOnly, «Ошибка» Exit Sub ElseIf fld.Items.Count = 0 Then MsgBox "Там нет почтовых сообщений для экспорта", vbOKOnly, "Ошибка" Exit Sub End If «Открыть и активировать книги Excel. Установите appExcel = CreateObject ( "Excel.Application") appExcel.Workbooks.Open (strSheet) Set ВКБ = appExcel.ActiveWorkbook Set WKS = wkb.Sheets (1) wks.Activate appExcel.Application.Visible = True «Копирование объектов в поле почты папка. Для каждого ITM В fld.Items intColumnCounter = 1 Set тзд = ITM intRowCounter = intRowCounter + 1 Набор RNG = wks.Cells (intRowCounter, intColumnCounter) rng.Value = msg.To intColumnCounter = intColumnCounter + 1 Набор RNG = wks.Cells (intRowCounter , intColumnCounter) rng.Value = тзд.
ssrsnoob
1

голосов
1

ответ
130

Просмотры

How to set reference to shared inbox folder?

I found this code in another search, but when I run it, I get "No Such Folder" error. I would like to count emails in a shared inbox folder. Can anyone advise on how to change this code to accomplish this? Sub HowManyEmails() Dim objOutlook As Object, objnSpace As Object, objFolder As MAPIFolder Dim EmailCount As Integer Set objOutlook = CreateObject("Outlook.Application") Set objnSpace = objOutlook.GetNamespace("MAPI") On Error Resume Next Set objFolder = objnSpace.Folders("Personal Folders").Folders("Inbox").Folders("report's").Folders("Customer") If Err.Number 0 Then Err.Clear MsgBox "No such folder." Exit Sub End If EmailCount = objFolder.Items.Count MsgBox "Number of emails in the folder: " & EmailCount, , "email count" Dim dateStr As String Dim myItems As Outlook.Items Dim dict As Object Dim msg As String Set dict = CreateObject("Scripting.Dictionary") Set myItems = objFolder.Items myItems.SetColumns ("SentOn") ' Determine date of each message: For Each myItem In myItems dateStr = GetDate(myItem.SentOn) If Not dict.Exists(dateStr) Then dict(dateStr) = 0 End If dict(dateStr) = CLng(dict(dateStr)) + 1 Next myItem ' Output counts per day: msg = "" For Each o In dict.Keys msg = msg & o & ": " & dict(o) & " items" & vbCrLf Next MsgBox msg Set objFolder = Nothing Set objnSpace = Nothing Set objOutlook = Nothing End Sub Function GetDate(dt As Date) As String GetDate = Year(dt) & "-" & Month(dt) & "-" & Day(dt) End Function
A.Richter
1

голосов
1

ответ
242

Просмотры

Перспективы Macro Если другое заявление

Мой код сортирует электронные письма, основанные на имя вложения. Мне нужна помощь с утверждением другого. Я хочу, чтобы электронные письма, которые не соответствуют параметрам, чтобы перейти к основному почтовому ящику. Сейчас любая вещь, которая не соответствует параметрам просто перемещается в другую папку. Что такое правильный синтаксис? Общественные WithEvents objMails Как Outlook.Items Private Sub Application_Startup () Set objMails = Outlook.Application.Session.GetDefaultFolder (olFolderInbox) .Items End Sub Private Sub objMails_ItemAdd (ByVal Item As Object) Dim objMail Как Outlook.MailItem Dim objAttachments Как Outlook.Attachments Dim objAttachment Как Outlook.Attachment Dim strAttachmentName As String Dim objInboxFolder Как Outlook.Folder Dim objTargetFolder Как Outlook.Folder "Убедитесь, что входящий элемент электронной почты" Если TypeOf Пункт Is MailItem Тогда Set objMail = Комплект objAttachments = objMail.
Lefty25
1

голосов
1

ответ
50

Просмотры

Как открыть вложение в Microsoft Office Online?

Я использую Microsoft Graph, чтобы получить вложение в почте. GET / сообщения / {MESSAGEID} / вложения Ниже приведен файл Excel, я получил в приложении. Она не распространяется через SharePoint или OneDrive. Это реальный файл. { "@ Odata.context": «https://graph.microsoft.com/v1.0/$metadata#users('576552d5-3bc0-42a6-a53d-bfceb405db23')/messages('AAMkADBlZTUwNTkxLWVmODgtNDVhNC1iZjhlLTdjNjA1ODZlMDI5MgBGAAAAAACUbnk-iwQZRbXMgkfKtmYhBwCpTc-InBsuTYwTUBb_VIb4AAAAAAEJAACpTc- InBsuTYwTUBb_VIb4AAEDHFyhAAA% 3D ') / вложения " "значение": [{ "@ odata.type": "# microsoft.graph.fileAttachment", "идентификатор":" есть способ, чтобы получить ссылку, чтобы открыть / просмотреть в Microsoft Office Online? Спасибо
Hongbo Miao
1

голосов
0

ответ
194

Просмотры

Доступ Перспективы IMAP с токена OAuth

Я пытаюсь подключиться к Outlook, с помощью IMAP, используя учетные данные, полученные с помощью OAuth 2.0. Я использую руководство Microsoft для этого. OAuth, кажется, идет хорошо. Я использую маркер конечной точки, описанный в этом документе (https://login.live.com/oauth20_token.srf), с wl.imap и wl.offline_access областей, как описано. Я иду через процесс в моем приложении и получить токен OAuth. Я использую outlook.com адрес электронной почты. Но когда я подключаюсь к imap-mail.outlook.com и попытке аутентификации, он отвергается с простым 2 NO AUTHENTICATE не удался. Я подтвердил, что вызов AUTHENTICATE соответствует документированным требованиям, в том числе адреса электронной почты пользователя и правильно отформатированной лексемы. IMAP разговор выглядит следующим образом: * OK Служба Microsoft Exchange IMAP4 готова. [QgBOADYAUABSADEAMQBDAEEAMAAwADQAOQAuAG4AYQBtAHAAcgBkADEAMQAuAHAAcgBvAGQALgBvAHUAdABsAG8AbwBrAC4AYwBvAG0A] 1 * ВОЗМОЖНОСТЬ ВОЗМОЖНОСТЬ IMAP4 IMAP4rev1 AUTH = ОБЫЧНАЯ AUTH = XOAUTH2 SASL-ИК UIDPLUS MOVE ID UNSELECT ДЕТИ IDLE NAMESPACE LITERAL + 1 ОК ВОЗМОЖНОСТЬ завершена. 2 AUTHENTICATE XOAUTH2 [отредактированный, но проверено] 2 НЕТ AUTHENTICATE не удалось. Я ожидаю, что я получаю неправильное OAuth конечной точку или неправильные области, но пока не знаю. Может кто-нибудь помочь с этим? В случае, если это имеет значение, это для приложения iPhone. м получает неправильное OAuth конечной точки или неправильные области, но пока не знает. Может кто-нибудь помочь с этим? В случае, если это имеет значение, это для приложения iPhone. м получает неправильное OAuth конечной точки или неправильные области, но пока не знает. Может кто-нибудь помочь с этим? В случае, если это имеет значение, это для приложения iPhone.
Tom Harrington
1

голосов
0

ответ
42

Просмотры

Как я могу знать, если почта получила является родительской почтой с помощью VBA

Мне нужно, чтобы удалить все ответы и вперед к почтовому ящику. Я уже отключил Ответить, Ответить всем и вперед от моего мастера электронной почты шаблона, но некоторые люди используют старые письма, чтобы не создавать новую. Я также проверка электронной почты, тему для строк «RE:» и «FWD:» относиться к ним, как я хочу, но некоторые люди меняют тему, и я не знаю, как проверить, если это оригинальная почта (родительская почта). Какие-либо предложения? С уважением, Элио Fernandes
Elio Fernandes
1

голосов
0

ответ
113

Просмотры

Как импортировать контакты Outlook, используя reactjs

Я хочу, чтобы принести на все контакты пользователя кругозора. Я изо всех сил для этой конкретной вещи. Я также сделал много RnD. Но не смогли получить никакого полезной ресурс для reactjs integration.I была попадались ниже два сайта и я реализовал both.But результат не в соответствии с ожидания. 1.https: //www.design19.org/blog/import-hotmail-contacts-windows-live-contact-api/ Здесь я получаю ответ, но его пустой массив. Если я заменить меня / контакты / мне тогда дать свои данные правильно, но для меня / контакты / или для любого другого пути его дает пустой массив. 2.https: //docs.microsoft.com/en-us/outlook/rest/javascript-tutorial Это чисто JS вещь, я также попытался преобразовать это в reactjs, но большинство вещей, которые делаются с помощью Jquery и JS и что поэтому его давая такие вопросы, как обратный вызов () не определена и его как вещи. Пожалуйста, помогите мне в этом.
iqbal sheikh
1

голосов
1

ответ
62

Просмотры

Неверный запрос паров запроса при создании новой подписки O365

Я получаю следующее сообщение об ошибке при попытке создать подписку webhook для ресурса события: / мне / события $ Фильтр = singleValueExtendedProperties / Any (ер: ер / идентификатор эк «Строка% 20 {+ propertyIdentifier +}% 20Name% 20 получен + propertyGuid +»и содержит (EP / значение, 'значения')) propertyIdentifier и propertyGuid пользовательских значений используются следующий ответ: { "ошибка": { "код": "InvalidRequest", "сообщение":«запрос URI ресурсов рабочей нагрузки строка не поддерживает строки запроса:% 24filter = SingleValueExtendedProperties% 2fany (ер% 3aep% 2fPropertyId + Eq +% 27String +% 7bpropertyIdentifier% 7d + название + propertyGuid + и + содержит (ер% 2fValue% 2c% 27value% 27)) "". innerError ": { "запрос-идентификатор": "2422c28b-41ba-46d8-8ee9-5a28b2d814de", "дата":"2018-06-08T17: 31: 07" }}} Я вижу, что API только не периодически и хотел бы понять, почему это не удается.
Surakshith
1

голосов
1

ответ
227

Просмотры

VBA Recursive to Search Through Subfolders and Attach Matching Files

I have a macro that works to create emails, attach files. It runs and I use a recursive function to search through the directory to find files, match them to a field in the spreadsheet, and then attach them once found. It works and has worked for a while. However, they have added a level in the directory and now for some reason, it will not work. I am adding here the recursive section only, as that is where the error happens. EDIT: For some reason when running from this new, higher level, it skips all the files that have numbers in the filename. Those filename numbers are what the macro uses to compare against the number in the field, so when it skips them it fails. So why would it skip them now, but work fine when running from the next subfolder down from the root directory? Here is a sample directory to show how it looks, with Division being the root top folder. SubfolderD is where I want it to get to, find the data: Division-->SubfolderA-->Subfolder2-->Subfolder3-->Etc Division-->SubfolderB-->Subfolder2-->Subfolder3-->Etc Division-->SubfolderC-->Subfolder2-->Subfolder3-->Etc Division-->SubfolderD-->Subfolder2-->Subfolder3-->Etc I can adjust the function to search at the SubfolderD and it will find the files. The issue is that new folders will be added and the files to be found may be in the other folders. So I need to get it to work from the Division folder consistently. I have stepped through the sub with F8 and I have looked at the debug print in the Immediate window. It seems to get all the way through SubfolderC, but then stops and for some reason seems to give up. Any thoughts? Thanks Function recurse(sPath As String, strname As String, strName3 As String) Dim FSO As New FileSystemObject Dim myFolder As Scripting.Folder Dim mySubFolder As Scripting.Folder Dim myFile As Scripting.file Dim strJDFile As String Dim strDir As String Dim strJDName As String Set myFolder = FSO.GetFolder(sPath) ' strName = Range("a2").Offset(0, 3) strName3 = Replace(strName3, "/", " ") For Each mySubFolder In myFolder.SubFolders Debug.Print " mySubFolder: " & mySubFolder For Each myFile In mySubFolder.Files If "*" & myFile.Name & "*" Like "*" & strName3 & "*" Then strJDName = myFile.Name strDir = mySubFolder & "\" strJDFile = strDir & strJDName recurse = strJDFile Exit Function Else Debug.Print " myFile.name: " & myFile.Name End If Next recurse = recurse(mySubFolder.Path, strname, strName3) Next End Function Edited to Post Entire Sub: Option Compare Text Sub Recursive() ' ' Dim OutApp As Object Dim OutMail As Object Dim cell As Range Dim strDir As String Dim strFilename As String Dim sigString As String Dim strBody As String Dim strname As String Dim strName1 As String Dim strName3 As String Dim strDept As String Dim strName2 As String Dim LR As Long Dim oItem As Object Dim dteSat As Date Dim nextSat As Date Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") sigString = Environ("appdata") & _ "\Microsoft\Signatures\Test.htm" If Dir(sigString) "" Then signature = GetBoiler(sigString) Else signature = "" End If Select Case Time Case 0.25 To 0.5 GreetTime = "Good morning" Case 0.5 To 0.71 GreetTime = "Good afternoon" Case Else GreetTime = "Good evening" End Select With ActiveSheet With .Columns(2) .NumberFormat = "General" .TextToColumns Destination:=.Cells(1), _ DataType:=xlFixedWidth, fieldinfo:=Array(0, 1) End With End With With Item K = Weekday(Today) dteSat = Now() + (10 - K) nextSat = Date + 7 - Weekday(Date, vfSaturday) End With LR = ActiveSheet.UsedRange.Rows.Count Columns("z:z").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("z2") = "Yes" Range("z2").AutoFill Destination:=Range("z2:z" & LR) For Each cell In Columns("J").Cells.SpecialCells(xlCellTypeConstants) If cell.Value Like "?*@?*.?*" And _ LCase(Cells(cell.Row, "z").Value) = "yes" Then Set OutMail = OutApp.CreateItem(0) With OutMail strName3 = Cells(cell.Row, "b").Value strName1 = Cells(cell.Row, "d").Value strName2 = Trim(Split(strName1, " ")(1)) strname = Cells(cell.Row, "a").Value strJDFile = recurse("z:\Division", strname, strName3) strBody = "The form needs to be completed no later " & _ "than next week. " & _ .SentOnBehalfOfName = "" .To = cell.Value .Subject = "Please Reply" .HTMLBody = "" & GreetTime & " " & strName1 & ", " & strBody & "" & signature .Attachments.Add strJDFile .Display 'Or use Send End With Set OutMail = Nothing End If Next cell End Sub Function GetBoiler(ByVal sFile As String) As String Dim FSO As Object Dim ts As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set ts = FSO.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.ReadAll ts.Close End Function Function recurse(sPath As String, strname As String, strName3 As String) Dim FSO As New FileSystemObject Dim myFolder As Scripting.Folder Dim mySubFolder As Scripting.Folder Dim myFile As Scripting.file Dim strJDFile As String Dim strDir As String Dim strJDName As String Set myFolder = FSO.GetFolder(sPath) ' strName = Range("a2").Offset(0, 3) strName3 = Replace(strName3, "/", " ") For Each mySubFolder In myFolder.SubFolders Debug.Print " mySubFolder: " & mySubFolder For Each myFile In mySubFolder.Files If "*" & myFile.Name & "*" Like "*" & strName3 & "*" Then strJDName = myFile.Name strDir = mySubFolder & "\" strJDFile = strDir & strJDName recurse = strJDFile Exit Function Else Debug.Print " myFile.name: " & myFile.Name End If Next recurse = recurse(mySubFolder.Path, strname, strName3) Next End Function
1

голосов
1

ответ
150

Просмотры

How to Interop with Outlook when running with elevated privileges?

При отладке проблемы с Outlook, Interop, я заметил, что при запуске моего процесса, как пользователь, который является частью группы администраторов, мои работы приложения, как и ожидалось. Однако запустить его в тот же пользователь при повышенных привилегий не удается. Проблема может быть легко воспроизведена как он возникает, как только мы пытаемся сделать Interop. При попытке создать новый экземпляр: Var NewOutlookApp = новое приложение (); // Сбои, если прогноз уже работает: System.Runtime.InteropServices.COMException: La рекуперацией де Ла Фабрик де классов COM пур ле composant АВЭК ле CLSID {0006F03A-0000-0000-C000-000000000046} а échoué ан Raison де l'ERREUR Suivante: 80080005 Échec де l'Execution дю Serveur (Exception де HRESULT: 0x80080005 (CO_E_SERVER_EXEC_FAILURE)). // Это приводит к: извлечения COM класса фабрики для componant с CLSID {0006F03A-0000-0000-C000-000000000046} не удалось из-за следующей ошибки: 80080005 Не удалось запустить сервер (HRESULT Exception: 0x80080005 (CO_E_SERVER_EXEC_FAILURE)). // Если Outlook не работает уже это работает, как ожидалось. При попытке извлечь существующий экземпляр: вар ExistingOutlookApp = (Application) System.Runtime.InteropServices.Marshal.GetActiveObject ( "Outlook.Application"); // Сбои, если прогноз не работает (ожидаемое поведение). // Сбои даже если прогноз уже работает: System.Runtime.InteropServices.COMException (0x800401E3): ОПЕРАЦИЯ нет в наличии (Exception де HRESULT: 0x800401E3 (MK_E_UNAVAILABLE)) // Это приводит к: Операция не доступна. Это ожидаемое поведение? Если это так, что было бы целесообразным способом Interop между приложением, работающим с повышенными привилегиями и Outlook, работает без подъема в то время как процессы запускаются как одного пользователя? Конфигурация по окружающей среде: Windows 10, полностью до даты Перспективы 2016 года Нажмите, чтобы запустить библиотеку Interop: 14.0.0.0 Visual Studio 2017
Laurent Gabiot
1

голосов
1

ответ
196

Просмотры

прогноз 2010 - предупреждение всплывающего окна перед отправкой электронной почты из личной почты

Я Outlook 2010 на моей работе и связан мой личный почтовый идентификатор в качестве основного счета и остальной части группы совместно почты ид связаны на уровне сервера. Поэтому, когда я отправить новое сообщение электронной почты из группы, он выбирает личный почтовый идентификатор по умолчанию и пользователь должен изменить его каждый раз. Я использую ниже макрос, чтобы обеспечить предупреждение всплывал, когда С выбран в качестве моего личного идентификатора, однако этот макрос предупредит даже если общий почтовый идентификатор выбирается из. Как предотвратить это предупреждение, если С не является основной идентификатор или личный идентификатор или есть макрос для автоматического выбора От когда новое сообщение электронной почты создается на основе группы общих почтовых идентификаторов? Private Sub Application_ItemSend (ByVal Item As Object, Отменить As Boolean) Если InStr (LCase (Item.SendUsingAccount), "[email protected]") Тогда строку $ = «Вы посылаете это из [email protected]
Sara
1

голосов
2

ответ
402

Просмотры

Как рассчитать общее количество вложений в мировоззрении

Я был на самом деле происходит через указанный ниже код для подсчета вложений из выбранных писем. Sub CountAttachmentsinSelectedEmails () Dim olSel Как Выбор Dim oMail как объект Dim AttCount As Long Dim strMsg As Set Струнный olSel = Outlook.Application.ActiveExplorer.Selection Для каждого oMail В olSel «Для того, чтобы подтвердить, если выбранные элементы все сообщения электронной почты, если oMail.Class olMail Тогда strMsg = «Пожалуйста, выберите элементы почты только!» НРЭС = MsgBox (strMsg, vbOKOnly + vbExclamation) Exit Sub End If «Получить общее количество вложений в выбранных писем AttCount = oMail.Attachments.Count + AttCount Далее strMsg = "Есть" и AttCount и "вложения в" & olSel.Count и "выбранные письма. Есть ли способ, чтобы пропустить их? Есть ли какой-либо код для подсчета общих документов в почтовый или RAR файла вложения в электронной почте? Если есть какой-либо код, мы можем включить, что здесь? Есть ли способ, чтобы пропустить их? Есть ли какой-либо код для подсчета общих документов в почтовый или RAR файла вложения в электронной почте? Если есть какой-либо код, мы можем включить, что здесь?
Suresh SuRi
1

голосов
0

ответ
265

Просмотры

Как показать изображение в описании ICS файла генерируется через PHP

Это мой файл ектронное: BEGIN: VCalendar VERSION: 2.0 PRODID: https: //www.google.com/ CALSCALE: Григорианский TZ: +00 НАЧАТЬ: VEVENT UID: https: //www.google.com/ DTSTAMP: 20180809T000000 DTSTART : 20180809T113000 РАСПОЛОЖЕНИЕ: Doubletree By Hilton, Norwalk, CA DTEND: 20180809T133000 РЕЗЮМЕ: состояние нации X-ALT-DESC; FMTTYPE = текст / html: Нажмите здесь END: VEVENT END: VCALENDAR Все содержимое отображается собственно, за исключением изображения. Я проверил на Outlook 2013 2017, но изображение не появляется в описании, хотя изображение URL правильно и изображение present.Can кто поможет?
user2431224
1

голосов
1

ответ
99

Просмотры

Как создать событие в группу

Я использую Microsoft Graph API v1 с учетными данными администратора с помощью своего программного обеспечения для создания событий в группе. Однако в ответ я получаю 403 со следующим: { «Ошибка»: { «код»: «ErrorAccessDenied», «сообщение»: «. Отказано в доступе Проверьте учетные данные и повторите попытку», «innerError»: { «Запрос -id ": "c4754c79-5e3a-4f63-9f88-404100513796", "дата": "2018-07-11T10: 11: 27"}}} на запрос POST к https://graph.microsoft.com/v1 0,0 / группы / {idGroup} / Событие / Я проверил все права, предусмотренные в приложении через Azure AD и все в порядке (жетоны, код и область применения с Group.Read.All Group.ReadWrite.All). Кроме того, Группа создана, пользователи добавляют к нему и владелец админ я использую для создания запроса. Кроме того, я пытался на Microsoft Graph API Explorer, но у меня есть такая же ошибка. Вчера утром создание было возможно, но я думаю, что некоторые права были повреждены. Кто-нибудь получил эту проблему раньше? Как это исправить?
Louis JACQUES
1

голосов
0

ответ
99

Просмотры

Добавить таблицу в теле письма

Hi I am using below code to add chart and send email to multiple recipients. It works fine. In my sent item i can see a perfect email created and sent. But all the recipients are not able to see the charts. All they see is two red X Sub Send_Email_Updated() Dim olApp As Object Dim NewMail As Object Dim NewMail1 As Object Dim ChartName As String Dim ChartName1 As String Dim SendingRng As Range Dim htmlString As String Dim OMail As Outlook.MailItem Set wb = ActiveWorkbook Set S1 = wb.Worksheets("Incident Tickets") Set S2 = wb.Worksheets("Assets and Representatives") Set S3 = wb.Worksheets("Email") 'Set SendingRng = Worksheets("Email").Table("A30:C43") Set SendingRng = Worksheets("Email").Range("A30:C43") Set olApp = CreateObject("Outlook.Application") Set OMail = olApp.CreateItem(olMailItem) ' Group 1 If S3.Cells(7, 2) 0 Or S3.Cells(8, 2) 0 Or S3.Cells(9, 2) 0 Then OMail.Display 'fill in the file path/name of the gif file app graph ChartName = Environ$("Temp") & "\Chart 1.gif" ActiveWorkbook.Worksheets("Email").ChartObjects("Chart 1").Chart.Export _ Filename:=ChartName, FilterName:="GIF" 'fill in the file path/name of the gif file trend graph ChartName1 = Environ$("Temp") & "\Chart 31.gif" ActiveWorkbook.Worksheets("Email").ChartObjects("Chart 31").Chart.Export _ Filename:=ChartName1, FilterName:="GIF" Set NewMail = olApp.CreateItem(0) With NewMail .Subject = "Action Required on Incidents and Problem Candidates for GC060.1 - Group 1" .To = "[email protected]" .HTMLBody = "" & "" & "" & "_ "" & "" & "" & _ .Send End With ChartName = vbNullString ChartName1 = vbNullString End If End Sub
Animesh Das
1

голосов
1

ответ
172

Просмотры

Форматирование точек пули в тело Outlook, с помощью Powershell

В настоящее время я застрял на том, чтобы создать автоматизированную систему электронной отправки. Я пытаюсь форматировать электронную почту в пути, где он создает пункты маркированных перечислить вещи. Код: $ mail.body = «Привет Пользователь, в настоящее время являются следующим из-за #bullet точка 1 #bullet точки 2 Спасибо, Отправитель»
J. Tam
1

голосов
1

ответ
29

Просмотры

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

Я прикреплял сообщение электронной почты нового сообщения перед его отправкой. Но, полученное вложение редактируемые на Outlook, Desktop и не в сети Outlook. Это означает, что при попытке открыть вложение, оно появляется в режиме создания письма в рабочем столе Outlook. Я использовал CreateItem создать и отправить сообщение, и ItemAttachment поставить вложение. Я не понимаю, почему это работает в сети, а не на рабочем столе. Вот часть кода, который делает вложение: Var мыло = '' + '' + '' + '' + подлежащее + '' + '' + тело + '' + '' + '' + '' + AttachmentName + '' + 'ложь' + '' + '' + attachmentMime + '' + '' + '' + '' + '' + до + '' + '' + '' + ''; Спасибо. + '' + '' + К + '' + '' + '' + ''; Спасибо. + '' + '' + К + '' + '' + '' + ''; Спасибо.
Lady Dia
1

голосов
0

ответ
27

Просмотры

Загрузка содержимого с другого веб-сайта

Я пытаюсь загрузить 5 календарей Outlook, на мой веб-сайт. Я создал вкладки, которые позволяют пользователю пройти через все календари сразу. Я использую Iframe как способ отображения моих календарей. Однако, это, кажется, непредсказуемым и медленный способ отображения календарей. Хотя время загрузки не является большой проблемой. Кажется, я получаю сообщение об ошибке, а также (иногда). Вот пример ошибок я сталкиваюсь: В приведенном выше примере, если бы я, чтобы обновить страницу, появятся календари. Я стараюсь избегать такого рода несоответствий. Есть ситуации, в которых будет появляться только часть календаря. Я хотел бы знать: Есть ли в любом случае для меня, чтобы улучшить свой код, чтобы эти календари будут появляться без каких-либо проблем? Имейте в виду, что: пользователь в настоящее время в состоянии взаимодействовать с календарем, я попытался внедренным и объектом (как удалить способность взаимодействовать с календарем после перейти на следующую вкладку) Мой код: Номер 5 Номера 4 Номера 3 Номера 2 Номера 1 Первого #frame {ширина: 100%; высота: 40vw; позиция: относительная; Слева направо: 0px; топ: 0px; границы: нет; } #Frame {-MS-увеличение: 0.7; } Номер 5 Номер 4 Номер 3 Номер 2 Номер 1 Первый #frame {ширина: 100%; высота: 40vw; позиция: относительная; Слева направо: 0px; топ: 0px; границы: нет; } #Frame {-MS-увеличение: 0.7; } Номер 5 Номер 4 Номер 3 Номер 2 Номер 1 Первый #frame {ширина: 100%; высота: 40vw; позиция: относительная; Слева направо: 0px; топ: 0px; границы: нет; } #Frame {-MS-увеличение: 0.7; } Слева направо: 0px; топ: 0px; границы: нет; } #Frame {-MS-увеличение: 0.7; } Слева направо: 0px; топ: 0px; границы: нет; } #Frame {-MS-увеличение: 0.7; }
1

голосов
2

ответ
70

Просмотры

Ошибка при Перспективе VBA макрос работает слишком часто

Let me start with a brief description of what my project accomplishes currently. I have 3 subroutines in 'ThisOutlookSession'. One checks the last ~30 unread mail items and sends the subject to a sub that checks it's contents for a key word, the other does the same thing but handling the Items_ItemAdd event (new incoming mail) and the last sub I alluded to already checks the subject line and if a keyword is found calls a module I named 'ExcelConnection' which is where the issue stems from. In the 'ExcelConnection' module I have this code that opens a workbook: Dim oXL As Object Dim oWS As Object Dim lngRow As Long Set oXL = CreateObject("Excel.Application") oXL.Workbooks.Open FileName:="T:\Capstone Proj\TimeStampsOnly.xlsx", AddTOMRU:=False, UpdateLinks:=False '// Change sheet name to suit Set oWS = oXL.Sheets("TimeStamps") The issue is: This process takes about a minute or so to complete and then it goes through an ExitSave point where the workbook is saved, closed, and the application 'quits', BUT if another piece of mail comes in before it finished running and "ExitSaving" it gives an error saying I cant open the workbook since it's already open. This also stops the initial instance and the result is the workbook stays open in the background where I can't close it manually and I cant edit it either since it keeps saying it's being modified by 'Another User' (Outlook). Is there any way to tell the macro to wait until the everything is done running before it runs again? This only happens when two pieces of mail with keywords come in within a minute or so of each other. If you have any questions or need more code samples please let me know! Thank you. Edit: This is the code for the 'ExcelConnection' module that is triggered by a keyword in subject line of email. Public Sub ExcelConnect(msg As Outlook.MailItem, LType As String) '// Declare all variables needed for excel functionality and open appropriate document Dim oXL As Object Dim oWS As Object Dim lngRow As Long Set oXL = CreateObject("Excel.Application") oXL.Workbooks.Open FileName:="T:\Capstone Proj\TimeStampsOnly.xlsx", AddTOMRU:=False, UpdateLinks:=False '// Change sheet name to suit Set oWS = oXL.Sheets("TimeStamps") lngRow = oWS.Range("A" & oXL.Rows.Count).End(-4162).Offset(1).Row '// -4162 = xlUp. not available late bound Dim subArray() As String Dim jRow As Long Dim jobnum As Variant subArray = Split(msg.Subject, "-", 2) '// Need the hypen to end the standardized subject line jobnum = Trim(Right(subArray(0), 8)) jRow = IsExist(jobnum, lngRow, oWS) Select Case LType '// Choose actions based on proccess step Case "MDIQE" If oWS.cells(jRow, 3).Value 0 Then GoTo ExitSave Else With oWS .cells(jRow, 1).Value = jobnum .cells(jRow, 2).Value = msg.ReceivedTime .cells(jRow, 3).Value = msg.ReceivedTime End With End If '------------------------------------------------------------- Case "MDIQ" If oWS.cells(jRow, 2).Value 0 Then GoTo ExitSave Else With oWS .cells(jRow, 1).Value = jobnum .cells(jRow, 2).Value = msg.ReceivedTime End With End If '------------------------------------------------------------- Case "MDIE" If oWS.cells(jRow, 3).Value 0 Then GoTo ExitSave Else With oWS .cells(jRow, 1).Value = jobnum .cells(jRow, 3).Value = msg.ReceivedTime End With End If '------------------------------------------------------------- Case "MDIR" If oWS.cells(jRow, 4).Value 0 Then GoTo ExitSave Else With oWS .cells(jRow, 1).Value = jobnum .cells(jRow, 4).Value = msg.ReceivedTime End With End If '------------------------------------------------------------- Case "MDIP" If oWS.cells(jRow, 5).Value 0 Then GoTo ExitSave Else With oWS .cells(jRow, 1).Value = jobnum .cells(jRow, 5).Value = msg.ReceivedTime End With End If '------------------------------------------------------------- Case "MDIF" If oWS.cells(jRow, 6).Value 0 Then GoTo ExitSave Else With oWS .cells(jRow, 1).Value = jobnum .cells(jRow, 6).Value = msg.ReceivedTime End With End If End Select ExitSave: With oXL .activeworkbook.Save .activeworkbook.Close SaveChanges:=1 '// 2 = xlDoNotSaveChanges but not availabe late bound .Application.Quit End With Set oXL = Nothing Set oWS = Nothing End Sub Function IsExist(jobnum As Variant, upper As Long, oWS As Object) As Long Dim i As Integer, ValueToFind As Variant ValueToFind = jobnum For i = (upper - 1) To 1 Step -1 If CStr(oWS.cells(i, 1).Value) = ValueToFind Then IsExist = i Exit Function End If Next i IsExist = upper 'If found nothing End Function Thanks for all the help everyone.
Wagner Braga
1

голосов
1

ответ
110

Просмотры

Python: Как только подобрать самое последнее сообщение в электронной почте из Outlook,

Я хотел бы, чтобы забрать последнее сообщение только без экстракта Re, Fw в сообщении электронной почты из Outlook, используя Python 3. Импорт win32com.client прогноз = win32com.client.Dispatch ( «Outlook.Application»). GetNamespace ( "MAPI «) = outlook.GetDefaultFolder Входящие (6) печати (inbox.Items [LEN (inbox.Items) -1] .Body)
K.Minoda

Просмотр дополнительных вопросов