Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Alexxxandro
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос для действия непрочтеных писем сделать прочитанными
 
#
25.07.2017 09:38:41
Все сделал. Можно закрывать тему. Все было очень просто)всем спасибо
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
24.07.2017 23:25:45
Нет. Я не очень могу понять его почему он не хочет работать тогда когда я добавил функции прочтение письма. Без этого работает а с ним нет (((
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
24.07.2017 22:38:55
Вроде запустил, но опять проблема(( теперь выдал ошибку Ошибка Run-time error '438' - Object doesn't support this property or method
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
24.07.2017 21:11:16
Еще одного?! А для чего, его? Можете поправить, а то я совсем не могу понять, что с ним сделать, чтоб он заработал(
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
24.07.2017 19:29:45
Ругается, но я коменчу поля с 7 по 12. Вот нужно его поправить как то а как не понимаю(  
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
24.07.2017 17:11:47
Все сделал, как говорили. и снова ошибка ( и в поиске посмотрел типа Next должен быть выше end. но тогда тоже ошибка.  без них работает , но нужно чтоб отмечал его прочтённым после пересылки.
Код
Private Sub Application_NewMail()
    Dim myFolder As Outlook.MAPIFolder
    Dim myItem As Outlook.MailItem  
  Dim x As Long
    Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    
    For Each myItem In myFolder.Items.Restrict("[Unread]=TRUE") 'без этого все работает но.
        If myFolder.UnRead Then 'без этого все работает но.
          If myFolder.Sender.adress = mailaddress Then 'без этого все работает но.
             myFolder.UnRead = False 'без этого все работает но.
            End If 'без этого все работает но.
        End If 'без этого все работает но.  
      If (myFolder.UnReadItemCount <> 0) Then 
           For x = 1 To myFolder.Items.Count
                If (myFolder.Items(x).UnRead) And (TypeName(myFolder.Items(x)) = "MailItem") Then 
                   If (myFolder.Items(x).SenderName = "***") Then
                        Set myItem = myFolder.Items(x).Forward
                        myItem.To = "'***'"
                        myItem.Subject = Date  
                      myItem.Send
                    End If
                End If
            Next x  
      End If
 
End Sub
Изменено: Alexxxandro - 24.07.2017 17:15:20
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
24.07.2017 13:57:07
Добавляю в код вот эти строки
Код
For Each myItem In myFolder.Items.Restrict("[Unread]=TRUE")
    If myFolder.UnRead Then
    If myFolder.Sender.adress = mailaddress Then
    myFolder.UnRead = False
И он начинает выдавать ошибку block if without end if
Изменено: Alexxxandro - 24.07.2017 13:57:29
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
24.07.2017 11:08:43
Код выдает ошибку, вставляю его вместо старого в OutLook в ThisOutlookSession  и дает ошибку Run-time error 13  Type mismatch
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
22.07.2017 16:16:05
Что то не подумал что так можно посмотреть).
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
22.07.2017 15:02:47
А если например мне нужно будет фильтр по нескольким темам? Через точку с запятой прописывать их?
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
22.07.2017 14:53:04
Спасибо. Попробую. Отпишусь
Код
Option Explicitа
Эта строка для чего? Что она значит
 
Перейти    
Макрос для действия непрочтеных писем сделать прочитанными
 
#
22.07.2017 09:52:00
Добрый день.
Подскажите куда и что нужно добавить в код, чтоб после пересылки макросом письма, письмо становилось прочитанным.
если можно то еще подскажите как сделать чтоб фильтровать по теме письма, чтоб пересылать только письма с определённой темой
Код
Private Sub Application_NewMail()
 
    Dim myFolder As Outlook.MAPIFolder
 
    Dim myItem As Outlook.MailItem
    
    'Dim Mi As Outlook.Mailtem
    'Dim mailaddress As String
    
 
    Dim x As Long
 
    Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
 
 'For Each mi In myFolder.Items.Restrict("[Unread]=TRUE")
'If myFolder.UnRead Then
'If myFolder.Sender.adress = mailaddress Then myFolder.UnRead = False
        If (myFolder.UnReadItemCount <> 1) Then
 
            For x = 1 To myFolder.Items.Count
 
                If (myFolder.Items(x).UnRead) And (TypeName(myFolder.Items(x)) = "MailItem") Then
 
                    If (myFolder.Items(x).SenderName = "джо") Then
 
                        Set myItem = myFolder.Items(x).Forward
 
                        myItem.To = "'3589@ггг.com'"
 
                        myItem.Subject = "Date"
 
                        myItem.Send
                        'UnRead = False
                    End If
 
                End If
 
            Next x
 
     
      End If
 '    End If
End Sub
 
Перейти    
Вызов Макроса в pptx из excel
 
#
06.07.2016 17:16:30
Спасибо.
 
Перейти    
Вызов Макроса в pptx из excel
 
#
06.07.2016 12:11:18
Добрый день.
Есть два макроса один который в Power Pointe и второй тот что в ексели.
вот не могу не как найти код, который мог бы запускать макрос который в поинете.
 
Перейти    
Макрос для открытия pptx
 
#
05.07.2016 11:12:34
Такие разве есть?
 
Перейти    
Макрос для открытия pptx
 
#
05.07.2016 11:03:47
Мне нужно в открывшейся презентации обновить графики.
походу с таким мало кто работает.
Изменено: Alexxxandro - 05.07.2016 11:04:33
 
Перейти    
Макрос для открытия pptx
 
#
05.07.2016 10:53:26
спасибо, да все заработало. проблема была в коде. а путь указывал верно.
Но есть вопрос один.
что нужно прописать чтоб макрос обновил график?
 
Перейти    
Макрос для открытия pptx
 
#
05.07.2016 10:07:59
спасибо за ссылку.
но код ошибку выдает. запускает powerpoint, но нужную презентацию не открывает.

Код
Sub кнопка_PPtx()
    Dim objWrdApp As Object, objWrdDoc As Object
    Set objWrdApp = CreateObject("PowerPoint.Application")
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc") вот в этой строчки ошибку выдает
    objWrdDoc.Close True 
    objWrdApp.Quit
    Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub
Изменено: Alexxxandro - 05.07.2016 11:17:35
 
Перейти    
Макрос для открытия pptx
 
#
05.07.2016 09:19:51
Добрый день!
Подскажите, код который мог бы открывать файл pptx.
Ситуация следующая, у меня есть файл ексель, который обновляет таблицы с помощью макроса, после этого мне нужно полученные данные обновить в презентации. но для этого она должна хотя бы открыться, а потом ее нужно сохранить уже под другим именем.
На форумах полазил не смог найти ответа.
 
Перейти    
Страницы: 1
Наверх