MS Excel

Téma: Velké písmo u měsíce a skrytý email

Zaslal/a Martin K. 3.4.2014 7:59

Zdravím pánové.
mám jen spíš lehčí dotazy. Na ten první jsem odpověď našel, ale ne uplně to co bych chtěl. Ovšem stačí a funguje, jde mi jen pokud to někdo již řešil, tak jestli se podělí. Další dotaz je horší a nějak nejsem schopen napsat i v Googlu tak aby to našlo co chci, hledá to furt nesmysly :-(.

1:
Potřeboval jsem někam přidat měsíc s rokem aktuálním a chtěl jsem první písmeno u měsíce velké. Hledal jsem dlouho a nenašel, ale našel jsem jak to přidat přes funkci, díky které to funguje. Vzorec :
=VELKÁ2(HODNOTA.NA.TEXT(DNES();"mmmm rrrr")) ve VBA ActiveCell.FormulaR1C1 = "=PROPER(TEXT(TODAY(),""mmmm""))"

Otázka je jestli tohle nejde udělat tak jak jsem chtěl původně přes:
Range("I10").Value = Format(Date, "mmmm")

2
Posílám přes jednoduché makro přílohy, tady vše funguje a dovedu nastavovat dle potřeby, proto ty odkazy a mám tam i moře podmínek, ne možná elegantně, ale funguje vše jak má. Ovšem, potřeboval bych odeslat i email, který se neukládá v doručené poště a jen jednoduše to vypnout v MS Otlooku není možné. Mimo toho jednoho to jinak ukládat potřebuji.

Jde o finanční odměny, kdy samozřejmě by neměli zůstat v PC žádnné stopy. Tabulka je zaheslovaná, ale formulář co posílam ne a nejde kvůli importu heslo přidat.

Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.createitem(olMailItem)
' podpis v html
With otlNewMail
.display
End With
signature = otlNewMail.htmlbody
' text zpravy v html, přidá se po zadání příkazu .htmlbody
textzpravy = zaklad.Sheets("Info & Nastavení").Range("C37").Value + "<br>" + zaklad.Sheets("Info & Nastavení").Range("C40").Value + " " + Format(Date, "mmmm yyyy.")
With otlNewMail
.To = zaklad.Sheets("Info & Nastavení").Range("C20").Value
.CC = zaklad.Sheets("Info & Nastavení").Range("C22").Value
.Subject = zaklad.Sheets("Info & Nastavení").Range("C30").Value + " - " + Format(Date, "mmmm yyyy.")
.htmlbody = "<html><body>" & textzpravy & signature 'vlastní email + podpis
.Attachments.Add ActiveWorkbook.FullName 'přidá přílohu
' buď zobrazí nebo odešle
.display ' or .send
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing

Nemá někdo zkušenosti ? Koukal jsemi na nastavovaní, třeba důvěrný email pošlu, stejne všechno možné okolo jde nastavit, ale na tohle jsem nepřišel.

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.