VBATools

Outlook nie posiada możliwości nadania odpowiedzi jednobrzmiącej do kilku adresatów w jednym obiekcie.

Rys 1. Zachowanie menu podczas zaznaczenia wielu wiadomości.

Przy pomocy prostego makra można po zaznaczeniu wiadomości (Ctrl+L i Przycisk myszy) uruchomić poniższą procedurę (Alt+F8).

W zależności od potrzeb adresatów można umieścić w polu DO, DW lub UDW. Steruje tym stała “jak”

Option Explicit
Sub Odpowiedz_do_wielu()
'MVP OShon from VBATools.pl
 Dim oNewMail As MailItem, oMail As Object
 Dim NoDupes As New Collection, adresy$, ile As Variant
 Const jak& = 1 'określenie formy nadania, można przypisać do radiobuttonów
 Set oNewMail = CreateItem(olMailItem)

 On Error Resume Next
 For Each oMail In Application.ActiveExplorer.Selection
    NoDupes.Add oMail.SenderEmailAddress, CStr(oMail.SenderEmailAddress)
 Next oMail
 On Error GoTo blad

 For Each ile In NoDupes
    adresy = adresy & ile & "; "
 Next ile
 'Wysyłanie wiadomości w polu DO = 1, DW = 2, UDW = 3
 Select Case jak
    Case 1: oNewMail.To = Left(adresy, Len(adresy) - 2)
    Case 2: oNewMail.CC = Left(adresy, Len(adresy) - 2)
    Case 3: oNewMail.BCC = Left(adresy, Len(adresy) - 2)
 End Select

 oNewMail.Display
koniec:
 Set oNewMail = Nothing
Exit Sub
blad:
 MsgBox "Błąd wykonania procedury ''Odpowiedz do wielu''" & vbCr _
 & "Zaznacz wiadomości przy pomocy klawisza (Ctrl+Lewy klawisz myszki) i ponów operacje.", _
 vbInformation, "Informacja o błędzie. VBATools.pl"
Resume koniec
End Sub

Osadzenie procedury można znaleźć w artykule: Instalacja i uruchamianie makr
Efektywnie jest dla powtarzalnej czynności dodać przycisk na pasku zadań zgodnie z artykułem: Uruchamianie makr przyciskiem na pasku narzędzi, lub dla wersji 2007/10 jako przycisk szybkiego uruchamiania.

Przy częstym użytkowaniu procedury, przy pozostawianiu możliwości wskazania obszaru uzupełnienia pól można wykonać następującą formę, przypisując pod przyciski do wartości stałej “jak” opisanej pow.:

Rys 2. Interfejs wykonany na potrzeby pow procedury.

(c) Shon Oskar – www.VBATools.pl

Odpowiedz_do_wielu