Добрый день.
Подскажите куда и что нужно добавить в код, чтоб после пересылки макросом письма, письмо становилось прочитанным.
если можно то еще подскажите как сделать чтоб фильтровать по теме письма, чтоб пересылать только письма с определённой темой
Подскажите куда и что нужно добавить в код, чтоб после пересылки макросом письма, письмо становилось прочитанным.
если можно то еще подскажите как сделать чтоб фильтровать по теме письма, чтоб пересылать только письма с определённой темой
| Код |
|---|
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 |
