Moje doświadczenia z Excelem, Accesem i programowaniem w VBA

Wpisy z tagiem: mailing

środa, 02 marca 2016

Korzystając z automatycznego mailingu czyli wysyłania maili w Outlooku poprzez aplikację w Excelu czy Accessie, możemy natknąć się na blokadę Outlooka. Na ekranie pojawia się komunikat, że pewien program próbuje wysłać wiadomość. Po dłuższej chwili odblokowują się przyciski i można wyrazić zgodę, jednak przy kolejnym mailu sytuacja się powtarza. W efekcie okazuje się, że cały automatyzm przestaje być skuteczny i nie ma sensu.

Można sobie z tym poradzić za pomocą programu Outlook WarningDoctor firmy CodeTwo. Jest darmowy, bezpieczny i często polecany. Do pobrania na stronie:

Outlook WarningDoctor

Po pobraniu i zainstalowaniu - nic już nie przeszkadza w automatycznym wysyłaniu maili.



 

 


 

Kurs Outlook - efektywna praca>

środa, 03 lutego 2016

Tym razem, w ramach oferty komercyjnej - aplikacja do mailingu. Pozwala na wysłanie poprzez skoroszyt Excela i program pocztowy Microsoft Outlook masowej korespondencji mailowej. Lista adresów jest zdefiniowana w Excelu, istnieje możliwość wybrania wszystkich lub części z nich i rozesłania do adresatów. Każdy mail jest wysyłany oddzielnie do jednego adresata, wysyłana korespondencja nie jest więc traktowana jako SPAM. Można dodać własne logo, załączniki, sformatować tekst w przypadku wysyłania maili w formacie HTML.
Dobre narzędzie do wysyłania newsletterów czy ofert do klientów.


Działanie aplikacji ilustruje filmik:

Koszt: 40zł

Aplikacja w wersji z odkrytym kodem VBA: 70zł.

Kontakt: UI Szultaset

A jeśli Outlook za dużo blokuje i nie chce współdziałać - zapraszam tu:

Usuwanie zabezpieczeń Outlooka


wtorek, 06 października 2015

Z poziomu kodu VBA (zarówno w Excelu jak i Accessie) można też wysyłać maile. Jak to zrobić z wykorzystaniem programu Microsoft Outlook?
Przykładowe uproszczone rozwiązanie wygląda tak:

Public Sub WyslijMail()
Dim Poczta As Object
Dim MojMail As Object

Set Poczta = CreateObject("outlook.application")
Set MojMail = Poczta.createitem(0)
    With MojMail
        .To = "AdresDo@domena.pl"
        .CC = "AdresDW@DOMENA.PL"
        .Subject = "Temat maila"
        .ReadReceiptRequested = False
        .OriginatorDeliveryReportRequested = False
        .body = "Treść maila"
        .Attachments.Add "c:\Folder\MojZalacznik.xlsx"
        .Display
        '.send
    End With
End Sub


Jak widać - tworzymy obiekt Outlook.Application oraz w jego ramach - nową pozycję czyli mail (tu Obiekt MojMail).
Potem wystarczy tylko ustawić poszczególne właściwości maila. W przykładzie są one wpisane na sztywno, ale oczywiście można odwołać się tu np. do komórek arkusza z zapisanymi wartościami.
Makro może być zaimplementowane także w kodzie VBA w Accessie.

Najważniejsze właściwości to:

To - adresat właściwości. Jeżeli adresatów jest kilku - ich adresy mailowe powinny być oddzielone średnikami;
CC - adresy do wiadomości
UCC - ukryte adresy do wiadomości
Subject - temat maila
Body - temat maila
ReadReceiptRequested  - żądanie potwierdzenia odczytu maila (ustawione na False lub True)
OriginatorDeliveryReportRequested  - żądanie potwierdzenia dostarczenia maila (ustawione na False lub True)
Attachments.Add - dodanie załącznika do maila





Jeżeli mail ma być wysłany automatycznie, bez wyświetlania go na ekranie - stosujemy metodę Send. Chcąc obejrzeć tak stworzoną wiadomość mailową (a wysłać ręcznie) musimy zastosować metodę Display.

 

------------------------------------------------------------------------------


 

| < Listopad 2017 > |
Pn Wt Śr Cz Pt So N
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30      


Książki warte polecenia
zobacz szczegóły...


A tu oferta na dziś:





ministat liczniki.org



Napisz do mnie!