Przerobienie makra (UDW)

Pytania, uwagi, problemy związane z Microsoft Office Outlook, wersje 2007, 2010, 2013 i 2016.

Moderator: Moderatorzy

Przerobienie makra (UDW)

Postprzez MrVirago » Cz 01.04.2021 08:36

Cześć,

mam takie makro które fajnie działa i dodaje udw do każdego wysyłanego maila. Pojawiła się jednak kwestia że w outlooku mam podpięte 3 konta mailowe (imap) i chciałbym aby to UDW było dodawane tylko dla maili wychodzących z jednego konta, nie z wszystkich jak dzieje się teraz, jakiś pomysł jak to poprawić?

Kod: Zaznacz cały
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Set oRecipient = Item.Recipients.Add("mail1@domena.pl")
    oRecipient.Type = olBCC
    Item.Recipients.ResolveAll
    Set oRecipient = Item.Recipients.Add("mail2@domena.pl")
    oRecipient.Type = olBCC
    Item.Recipients.ResolveAll
End Sub
MrVirago
 
Posty: 1
Dołączył(a): Cz 01.04.2021 08:33

Re: Przerobienie makra (UDW)

Postprzez OShon » Cz 01.04.2021 11:10

Rozważałem taki warunek i udało mi się to osiągnąć dopiero w tym dodatku: http://vbatools.pl/auto-dw-lub-udw/
Po ostatnich poprawkach MS jest problem z identyfikacja kont, pobierz sobie DEMO ze strony i sprawdź czy ci wyszukuje i pokazuje na suwaku konta - jak tak, to super.
Zatem polecam.
Obrazek
Oskar Shon - MVP Office Dev. 11/22, 3x MCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 11146
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl


Powrót do Microsoft Outlook 2007 / 2010 / 2013 / 2016

Kto przegląda forum

Użytkownicy przeglądający ten dział: Google [Bot] i 4 gości