Codzienny mail

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

Moderator: Moderatorzy

Codzienny mail

Postprzez 1jkl1 » Pt 26.10.2012 14:45

Witam,
codziennie rano wysyłam raport z dnia poprzedniego do kilku odbiorców. Z czego tak naprawdę adresat jest jeden, a kilku DW. Pracuje w MSO 2010. Czy można mieć do tego jakąś listę, aby nie wklepywać tego DW ??

Z góry dziękuję
Jacek
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez OShon » Pt 26.10.2012 19:11

Jest kilka sposobów - a przynajmniej 2

Prosty:
Jednym z nich jest lista dystrybucyjna jaką utworzysz w kontaktach. Jest to taki magazyn kontaktów.
Dzięki niemu możesz dodając tylko jego nazwę w DW, a podłączą się wszystkie adresy w nim zawarte.

Średnio skomplikowany:
Drugi sposób to generowanie wiadomości kodem VBA.
W tedy wywołasz go po przez Alt+F8 lub podłączysz przycisk z menu.
Jeśli jesteś ciekaw jak tego dokonać pisz lub szukaj rozwiązania na tym forum.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9497
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Codzienny mail

Postprzez 1jkl1 » So 27.10.2012 06:35

Dziękuje za odpowiedź. Interesuje mnie drugi sposób. Poproszę o kod VBA. Rozumiem, że będzie to kod uniwersalny i można go wykorzystać do kolejnych maili tego typu.

Jacek
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez OShon » So 27.10.2012 10:42

Oczywiście że ten sam model może być powielany. Nie zapomnij tylko zmieniać nazwę procedur, ponieważ może być tylko jedna o danej nazwie.

Jak => Otwierasz Developera [Alt+F11] menu/insert/module i wklejasz poniższy kod:
Kod: Zaznacz cały
Sub codzienny_mail()
Dim omail As MailItem
Set omail = Application.CreateItem(olMailItem)
With omail
    .To = "Adres_do@domena.pl"
    .CC = "pierwszy@domena.pl, drugi@domena.pl, trzeci@domena.pl"
    .Subject = "Temat wiadomości"
    .Display
End With

Zapisujesz [Ctrl+S] i zamykasz developera
Wywołujesz kod spod interfejsu [Alt+F8] lub spod przycisku jaki utworzysz i podepniesz do menu.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9497
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Codzienny mail

Postprzez 1jkl1 » Pn 29.10.2012 08:37

Witam, po wklejeniu tego kodu mam jak poniżej. Albo coś robię nie tak albo ??

Obrazek
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez OShon » Pn 29.10.2012 09:22

Dopisz na koniec na końcu - nie przykleiło się.
Kod: Zaznacz cały
End Sub
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9497
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Codzienny mail

Postprzez 1jkl1 » Pn 29.10.2012 10:05

Ok, ale jedna jeszcze prośba - ten kod otwiera całkiem nową wiadomość ja pracuje na raporcie z dnia poprzedniego, wybieram prześlij dalej uaktualniam dane i wtedy potrzebuję wypełnić zgodnie z poniższym wzorem. Czy to duży kłopot ?
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez OShon » Pn 29.10.2012 10:56

W takim razie zapisz sobie jako szablon wiadomosć którą wypełniasz.
Mail/Menu/plik/zapisz jako/Szablon oft.
Potem zamień linię w kodzie uzupełniając nazwę ścieżki i zapisanego pliku
zamiast:
Kod: Zaznacz cały
Set omail = Application.CreateItem(olMailItem)

wpisz:
Kod: Zaznacz cały
Set omail = Application.CreateItemFromTemplate("sciezka\nazwa_szablonu.oft")

On też może już zawierać elementy niezbędne do nadania (nie tylko treść) ;]
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9497
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Codzienny mail

Postprzez 1jkl1 » Pn 29.10.2012 11:30

Prawie ideał - dziękuję. Ideał będzie wtedy jak w temacie udało by się automatycznie wstawiać datę z dnia poprzedniego. Czyli mail wysyłamy 2012-10-29 a w treści tematu mamy NP. "Sprzedaż z dnia 2012-10-28" itd.

Z góry Raz jeszcze wielkie dzięki - i tak jest bajka. Że też wcześniej nie wszedłem na FORUM - męczę się tak codziennie w dni pracujące od początku roku.
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez OShon » Pn 29.10.2012 11:48

Kod: Zaznacz cały
.Subject = "temat z dania: " & format(now -1, "YYYY-MM-DD")

ps. zapraszamy ;]
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9497
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Codzienny mail

Postprzez 1jkl1 » Pn 29.10.2012 11:55

Super oto chodziło.
Dziękuję za poświęcony czas.

Jacek
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez 1jkl1 » Śr 31.10.2012 14:17

Jeszcze pytanie, czy da się ustawić kolor czcionki na czarny w przypadku dopisywania nowych wyrazów ?? U mnie z czarnego zmienia się na ciemno niebieski. Generalnie przy wszystkich mailach w formacie HTML mam to samo. Jak dopisze kilka słów lub liter to odbiorca zaraz widzi co było dopisane w przypadku maili przesyłanych dalej. Jest to irytujące za każdym razem pamiętać o zaznaczeniu tekstu i wybieraniu koloru czarnego aby mieć pewność.
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez OShon » Śr 31.10.2012 17:32

To domyślna modyfikacja tekstu zgodna z konfiguracją w ustawieniach Plik/Poczta/papeteria i czcionki
Możesz ja zmienić.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9497
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Codzienny mail

Postprzez 1jkl1 » Śr 31.10.2012 18:17

No i oto chodzi - wreszcie mój Outlook zaczyna mi się podobać. Ciekawe co w najnowszej wersji nas czeka ?? Lada chwila założymy na forum nowy dział.
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez OShon » Śr 31.10.2012 19:56

Ja już testowałem 15tkę (czyli OL 2013), poza paroma kosmetycznymi znaniami wizerunkowymi czysty marketing. Większa integracja społecznościowa, chmura i nacisk na W8.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9497
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Codzienny mail

Postprzez 1jkl1 » Pn 12.11.2012 11:01

Witam, kolejna prośba - jak wstawić wiadomość z szablonu do wiadomości na którą odpowiadam ? Ta z szablonu otwiera się w nowym oknie, a nie w już wiadomości otwartej. Może jest na to kod VBA ?
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez OShon » Pn 12.11.2012 12:01

No trzeba ją dokleić pod spodem - może to nie być przyjemne dla oka ponieważ dziedziczysz ustawienia wg wiadomosci na jaką odpowiadasz.

będzie to tak:
Kod: Zaznacz cały
Sub odpowiedz_na_tego_maila()
'MVP OShon from VBATools.pl
Dim omail  As MailItem, oFolder As MAPIFolder
 Select Case TypeName(Application.ActiveWindow)
 Case "Explorer":  Set omail = ActiveExplorer.Selection.Item(1)
 Case "Inspector": Set omail = ActiveInspector.CurrentItem
 Case Else: Exit Sub
 End Select
 Call Odpowiedz_z_szablonem(omail)
End Sub


Private Sub Odpowiedz_z_szablonem(Item As Outlook.MailItem)
    Dim Odpowiedz As MailItem, Szablon As MailItem, tresc$
    Set Odpowiedz = Item.Reply
        tresc = Item.HTMLBody
    Set Szablon = Application.CreateItemFromTemplate("C:\Temp\szablon.oft") 'zmodyfikuj tą linię
    With Szablon.Recipients
        .Add (Odpowiedz.Recipients.Item(1).Address)
        .ResolveAll
    End With
    Szablon.HTMLBody = Szablon.HTMLBody & vbNewLine & tresc
    Szablon.Display
End Sub


Samą odpowiedź opisałem w tym artykule: Zastosowanie szablonów OFT w odpowiedzi na maila
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9497
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Codzienny mail

Postprzez 1jkl1 » Pt 16.11.2012 09:28

Super dziękuję za kolejną pomoc. Jeszce jedno pytanie, Czy da się ustawić aby odpowiedź na maile w innych formatach zawsze była w formacie HTML ?
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Re: Codzienny mail

Postprzez OShon » Pt 16.11.2012 10:38

Szablon musisz wykonać w HTMLu i zapisać go przed odwołaniem się do niego w kodzie.
Jeśli będzie w TXT to taka będzie odpowiedź.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9497
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Codzienny mail

Postprzez 1jkl1 » Cz 22.11.2012 10:02

Jeszcze jedna prośba o modyfikacje kodu VBA przy odpowiedzi z szablonem aby temat był ten sam co wiadomość na którą odpowiadamy.
1jkl1
 
Posty: 40
Dołączył(a): Śr 12.09.2007 10:57
Lokalizacja: Warszawa

Następna strona

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

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 6 gości