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: 64059 Skopiuj do schowka Jak wstawić datę z komórki do tytułu i treści maila.
Autor Wiadomość
MichalScz 
forumowicz


Posty: 17
Wysłany: 06-02-2019, 23:04   Jak wstawić datę z komórki do tytułu i treści maila.

Cześć.
Nie wiem jak wstawić do tytułu i treści maila wartość przechowywaną w komórce E1 z arkusza "Sheet2". Komórka E1 przechowuje datę obliczaną za pomocą poniższej formuły:
Kod:
=IF(WEEKDAY(TODAY()+2;2)=6;TODAY()+2+2;IF(WEEKDAY(TODAY()+2;2)=7;TODAY()+2+2;TODAY()+2))
Chodzi mi o to, że data musi być na dwa dni do przodu z pominięciem weekendów.
Przykład: jeżeli wysyłam maila w poniedziałek 01.01.2019r to chciałbym, żeby w tytule i treści maila była data środa 03.01.2019r. Analogicznie jeżeli wysyłam we wtorek, data czwartkowa, w środę, data piątkowa.
Jeżeli wysyłam maila w czwartek 04.01.2019r to chciałbym aby w tytule i treści maila widniała data poniedziałek 08.01.2019r.
Jeżeli wysyłam maila w piątek 05.01.2019r. to data w tytule i treści powinna być wtorek 09.01.2019r.
Do tej pory korzystałem z Date + 2, ale w każdy czwartek i piątek muszę ręcznie edytować datę.

Poniżej kod makro za pomocą którego wysyłam maile.

Kod:
Sub XXX()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "XXX"
        .CC = ""
        .BCC = ""
        .Subject = "Zlecenia na" & " " & Date + 2 & "r."
        .Body = "Dzień dobry." & vbCrLf & _
        "" & vbCrLf & _
        "W załączniku zlecenia na dzień" & " " & Date + 2 & "r." & vbCrLf & _
        "" & vbCrLf & _
        "Pozdrawiam" & vbCrLf & _
        "Michał" & vbCrLf & _
       
               .Display
       
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
    End Sub


Dzięki za pomoc.
Pozdrawiam
Michał

edycja Zbiniek:
Przy wpisywaniu kodów makr lub formuł proszę używać znaczniki [code] (zgodnie z pkt. 3.1 Regulaminu naszego forum).
ID posta: 362099 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 135 razy
Posty: 576
Wysłany: 06-02-2019, 23:22   

Kod:
.Subject = "Zlecenia na" & " " & Sheets("Sheet2").Range("E2").Value & "r."


choć może przydać się przeformatowanie daty, np.
Kod:
.Subject = "Zlecenia na" & " " & Format(Sheets("Sheet2").Range("E2").Value, "yyyy-mmm-dd") & "r."


Jeszcze lepszym rozwiązaniem byłoby wyliczenie tej daty bezpośrednio w VBA, ale o tej porze się nie podejmuję, bo pewnie jakiegoś babola bym spłodził...

I w treści analogicznie...
ID posta: 362100 Skopiuj do schowka
 
 
MichalScz 
forumowicz


Posty: 17
Wysłany: 06-02-2019, 23:41   

Działa, Dzięki :beer
ID posta: 362101 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2659 razy
Posty: 8828
Wysłany: 09-02-2019, 11:59   

MichalScz napisał/a:
Chodzi mi o to, że data musi być na dwa dni do przodu z pominięciem weekendów.
Sprawa jeszcze bardziej Ci się komplikuje gdy po weekendzie wypada święto. :devil Bo jak rozumiem "dwa dni do przodu" to dwa dni robocze do przodu. Czyli należałoby uwzględnić nie tylko weekendy ale także i święta.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 362256 Skopiuj do schowka
 
 
MichalScz 
forumowicz


Posty: 17
Wysłany: 09-02-2019, 17:02   

Formuła z której korzystam pomija weekndy. Czerwone kartki w kalendarzu edytuje ręcznie. Na szczęście nie ma ich dużo i nie jest to bardzo uciążliwe.
Pozdrawiam
Michał
ID posta: 362265 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