Temat: Access vba - wysyłanie maila.

Witam,

Access i outlook w wersji 2007

Z uwagi na fakt, że z bazy korzysta kilka osób i wykonanie akcji przez jedną osobę np. dodanie nowego rekordu skutkuje tym, że inny pracownik powinien wykonać kolejne czynności z tym rekordem chciałbym dodać wysyłanie maila =otwieranie okna nowej wiadomości outlooka.

Chciałbym aby przy dodaniu nowego rekordu pod przycisk "dodaj" dodać uruchomienie kodu który powodowałby to, że otwierane byłoby nowe okno nowej wiadomości outlooka z wpisanymi adresatami, tematem i treścią wiadomości.

Próbowałem tworzyć coś z przykładów znalezionych w necie ale nic mi z tego nie wychodzi.

Mam takie udogodnienie ustawione w excellu i działa to rewelacyjnie ponieważ automatycznie generowany mam raport z bazy MsSql a później automatycznie uruchamia mi się excell.
Dzięki temu wykonując 2 kliknięcia mam wysyłany mail z załączonym raportem do żądanych adresatów.

Z góry serdecznie dziękuje za ewentualną pomoc.
Pozdrawiam

Temat: Access vba - wysyłanie maila.

Jakty tego szukałeś w sieci pełno jest przykładów...

Sub WyslijEmail()

    Dim oApp As Object

    Dim oEmail As Object

    

    

    'Przejmij Outlook lub otwórz jeśli zamkniety

    On Error Resume Next

    Set oApp = GetObject(, "Outlook.Application")

    'sprawdź czy był otwarty

    If oApp Is Nothing Then

        Set oApp = CreateObject("Outlook.Application")

    End If

    On Error GoTo 0

    

    'stworz nową wiadomość e-mail

    Set oEmail = oApp.CreateItem(0)

    

    'wypełnij właściwości mail-a

    With oEmail

        .To = "adres@na.ktory.wyslac"

        .Subject = "Temat wiadomosci"

        

        'Format wiadomosci:

        '    3-rtf

        '    2-html

        '    1-tekst

        .BodyFormat = 1

        .body = "tresc"

        .ReadReceiptRequested = True

        .Recipients.ResolveAll

        

        'Pokaż formularz użytkownikowi

        .Display

    End With

    

    'Posprzątaj

    Set oEmail = Nothing

    Set oApp = Nothing



End Sub

Temat: Access vba - wysyłanie maila.

Michał,
Rozwiązanie dziaal super.
Czy mógłbyś podpowiedzieć, jak wyłączyć komunikat o tym, że "jakiś program próbuje uzyskać dostęp do informacji o adresach e-mail." Zawsze pyta o zezwolenie.

Z góry serdecznie dziękuje za ewentualną pomoc