Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 69260 Skopiuj do schowka Outlook - wysyłanie raportów o błędzie - Print screen
Autor Wiadomość
dzikzlasu
Stały bywalec Excelforum


Pomógł: 2 razy
Posty: 261
Wysłany: 03-11-2020, 13:27   Outlook - wysyłanie raportów o błędzie - Print screen

Witam,
potrzebuje narzędzia którego będą używać użytkownicy moich formularzy. jeśli znajdą jakiś błąd to za pomocą 1 przycisku powinien zrobić się raport czyli printscreen wkleić do maila outlooka i wysłać do mnie.

znalazłem fajny kod do excela który dokładnie to wykonuje. problem w tym że jeśli jakieś makro w excelu wywali błąd to nie będzie dało się odpalić kolejnego makra raportującego.
dlatego pomyślałem że może takie makro mogło by być w outlooku i po odpaleniu ze wstążki minimalizowało by outlooka, robiło printscreen i wysyłało maila.

Czy macie na to lepszy pomysł?
Czy ktoś z Was potrafi przerobić makro excelowe na outlooka?

Dzięki za uwage.

Kod:
Sub SetRecipients()
    Dim aOutlook As Object, aEmail As Object
    Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String

    Application.SendKeys "(%{1068})"
    DoEvents

    Set aOutlook = CreateObject("Outlook.Application")
    Set aEmail = aOutlook.CreateItem(0)
    Set rngeAddresses = ActiveSheet.Range("A3:A13")

    For Each rngeCell In rngeAddresses.Cells
        strRecipients = "testowyjakismail@gmail.com" 'strRecipients & ";" & rngeCell.Value
    Next

    aEmail.Subject = "Indicator activity warning ( TestMailSend )"
    aEmail.To = strRecipients
    aEmail.display '<~~ This is required so we can send keys to it

    Wait 2 '<~~ wait for 2 seconds for email to get displayed

    SendKeys "^({v})", True '<~~ Paste

    DoEvents '<~~ Waiting for paste to happen

    '~~> Finally send
    aEmail.send

    Set aOutlook = Nothing
    Set aEmail = Nothing
End Sub

Private Sub Wait(ByVal nSec As Long)
    nSec = nSec + Timer
    While nSec > Timer
        DoEvents
    Wend
End Sub
ID posta: 394455 Skopiuj do schowka
 
 
Tajan


Pomógł: 4730 razy
Posty: 10412
Wysłany: 04-11-2020, 15:59   

W makrach zrób własną obsługę błędów i wykorzystaj ją do wysłania wiadomości.
ID posta: 394492 Skopiuj do schowka
 
 
dzikzlasu
Stały bywalec Excelforum


Pomógł: 2 razy
Posty: 261
Wysłany: 09-11-2020, 11:37   

w sumie dobry pomysł...
Ale biorąc pod uwagę ilość plików i makr do przeróbki musiałbym kilka dni to przerabiać.

Więc z chęcią bym pozostał przy stworzeniu 1 makra w outlooku.
Jeśli ktoś jest w stanie pomóc będę wdzięczny.

P.S (jeśli komuś to kiedyś pomoże - to na chwile obecną radze sobie w 3 kliknięcia.
Stworzyłem nowego maila z wypełnionym adresem i tematem i zapisałem na pulpicie (.msg)
do wstążki (nowej wiadomości) dodałem ikonkę Wycinek ekranu i pióro)
1) otwórz MSG
2) Wycinek ekranu pozwala zaznaczyć obszar do printscreena i wkleja do treści wiadomości
3) pióro pozwala rysować na printscreenie (należy we właściwościach wstążki dodać kartę Rysowanie)
ID posta: 394750 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe