Elektroda.pl
Elektroda.pl
X
Elektroda.pl
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[VBA] Makro z excela+wysyłka mailem podsumowania wpisu w excelu do zmiennych odb

Kaharma 27 Mar 2019 10:38 90 0
  • #1
    Kaharma
    Poziom 8  
    Musze zmienić pewien proces w pracy. Chcę napisać makro, które zautomatyzuje mi wysyłkę zakresu danych z excela, poprzez maila, do zmiennych odbiorców.
    W załączniku jest przykładowy plik.
    Jestem początkująca w makrach i udało mi się stworzyć coś takiego.

    --------------------------
    Sub wysyłka_wiersz_zmiana_graf()

    Dim naglowki, wiersz, wszystko As Range
    Dim c, r, odbiorca, lider As String

    '
    ' wysyłka_wiersz Makro
    '
    ' zakres
    c = ActiveCell.Column
    r = ActiveCell.Row

    'If c > 6 Then Set naglowki = Range("A1:G1")
    If c > 6 Then Range(Cells(r, c - 6), Cells(r, c)).Select
    odbiorca = Cells(r, 1).Value
    lider = Cells(r, 7).Value
    'Set wszystko = Union(naglowki, wiersz)
    'wszystko.Select


    ' envelope
    ActiveWorkbook.EnvelopeVisible = True

    ' opcje
    With ActiveSheet.MailEnvelope
    .Introduction = "KONSULTANT_______DOTYCZY DNIA___PRZED ZMIANĄ____ILOŚĆ GODZIN____PO ZMIANIE___ILOŚĆ GODZIN2__PRZEŁOŻONY"
    .Item.To = odbiorca & "@xxx.pl"
    .Item.Cc = lider & "@xxx.pl"
    .Item.Subject = "zmiana grafikowa"
    .Item.Send
    End With

    '
    Application.Goto Reference:="wysyłka_wiersz_zmiana_graf"
    Application.WindowState = xlNormal
    ActiveWorkbook.Save
    ActiveWorkbook.Save
    End Sub
    ---------------------
    Idealne rozwiązanie, to makro które wysyła podsumowanie wpisu w mailu (dany wiersz) do konsultanta (kolumna A) dw przełożonego (kolumna G), zawierające treść:
    ,np. "Twoja zmiana grafikowa z dnia (kolumna B), pierwotne godziny pracy (kolumna C), na godziny pracy (kolumna E), została zaakceptowana przez przełożonego."
    ------------------------

    Czy jesteście mi w stanie pomóc?

    Pozdrawiam