Příspěvky uživatele

Zdravím,vše šlape perfektně.
Drobně si upravuju makro na jiné vstupní parametry. A narazil jsem na problém, nevím jak přidat do podmínky ještě další příkaz:

' orig If bIsSended Then Odeslano(i, 1) = "A" 'když byl příznak odeslání, zapiš "A"
If bIsSended Then Odeslano(i, 1) = "Odeslano" 'když byl příznak odeslání, zapiš "Odeslano"
...zmenil jsem si "A" na "Odeslano"

protože ten kod aplikuju na jiný případ, kde po načtení tabulky, odeslání emailů nezapisuju údaj z pole "Odeslano" zpět do původního sloupce ale vedle, tak pokud @odeslan byl, doplní se tam "Odeslano" ale pokud nebyl, doplní se mi tam hodnota ze zdrojového sloupce, kde bylo "N"- a to potřebuju ošetřit.
tzn přidat podmínku, že když :

If bIsSended Then Odeslano(i, 1) = "Odeslano" 'když byl příznak odeslání, zapiš "Odeslano"

????'když se příznak nezměnil na Odeslano, vymaž to co tam zbylo tzn"N"???

... nebylo provedeno, tak do toho (pole) koukne a pokud tam zůstalo "N" , tak ho smaže.

Ten klíčový řádek je asi:
Worksheets("Exp").Cells(PRVNI_RADEK_DAT, 9).Resize(RowsA).Value = Odeslano 'Zápis výsledků do 9.sl., zda bylo odesláno, nebo zůstáva predchozí stav
'

A prosím, jinak obecně bych potřeboval vysvětlit, proč to VBA nebere?

Mám v bunce i4 "N", v bunce vedle i5 mám vzorec :
=KDYŽ(I4="N";""), to je jasné, funguje
ale potřebuju to napsat do VBA..jak ?
If Range(i4).value = "N" Then Range(i5).Value = "je tam N"
...samozřejmě to nefunguje, kde je ten "pes" ?

Tohle je jen jednoduchý příklad, abych pochopil jak na to.

Chci totiž v makru napsat to , aby mi byla vrácena třeba do proměnné hodnota výsledku vzorce.

Díky.P

Ok, vyzkouším,a otestuju.
Děkuju !

ani po smazání $ nejde spustit, zasekne se to hned v prvním kroku

Dobrý večer,
máte to se mnou těžké co?
Když to spustím, vyhodí chybu viz obr.
Asi to chce něco přidat do Reference, ale nevím co, jsou tam toho desítky...

To tělo emailu a předmět bude vždy stejné.

Pavel

V tom outlooku mi to zas tolik nevadí, zkusím povolit ty makra .To bylo jen abych viděl jaký je v tom rozdíl, excel/outlook. Budu to spouštět z excelu.

..tak v excelu to jede dobře. Když spustím kod ten z outlook vyhodí mi to to error:

Zdravím,
no původně jsem si to představoval takto.
Mám excel.sešit kde je seznam klientů, jejich email, cesta k jejich složce, a parametr "Odeslan"

Finální kod měl spustit makro z excelu, které otevře nový email, pro 1.klienta, /pokud má ve sloupci "odesláno" "N"/ a připojí k němu všechny soubory z jeho složky = slupec B.

Jakmile email odešle , zapíše do sloupce C "A"

Pak pokračuje na další řádek, dalšího klienta až do konce.

To už je na mě ale "vyšší dívčí". Neumím práci s proměnnou. Pokud by jste dokázal napsat i toto, můžete do toho kodu strčit i poznámky, který řádek nebo sekce co dělá? Takto se to učím za pochodu. Nahraju si nějaké makra a pak to zkouším u v kodu různě modifikova /pokus/omyl, no programátor ze mě nebude.
Díky
Pavel

Zkoušel jsem napsat makro v Outlooku. - zatím mi jde jen připravit mejl pro jednoho klienta, a přiložit všechny soubory z jeho složky.

..ale je tu problém, že než ho spustím, musím ručně otevřít nový prázdný email a nad ním až spustit to makro.

/////

Private Sub vice_priloh_Click()
Rem tlačítko doplní všechny soubory do nového meilu.z daneho adresare
Rem Funguje jen v Outloku a Musis ručně otevřít nový prázný email
Rem Sub AttachAllFilesinaLocalFolder()
' vloží do přílohy emailu všechny soubory ze složky

Dim objMail As Outlook.MailItem
Dim strFolderPath As String
Dim strFileName As String

If TypeName(Application.ActiveInspector.CurrentItem) = "MailItem" Then
Set objMail = Application.ActiveInspector.CurrentItem
End If

'Změňte cestu ke složce podle svého skutečný případ
strFolderPath = "C:\a pracovni\adresare\adam\"
strFileName = Dir(strFolderPath)

While Len(strFileName) > 0
objMail.Attachments.Add (strFolderPath & strFileName)
strFileName = Dir
Wend

End Sub

///////

...jde to nějak vyřešit , aby se ten nový email otevřel sám, a doplnily se i pole:

????? .BodyFormat = olFormatHTML
.Display
.HTMLBody = "posíláme protokoly" & " " & " Najděte přiložený soubor " & .HTMLBody

.To = "ab@volny.cz"
.CC = "ab@volny.cz"
.BCC = "ab@volny.cz"
.Subject = "TEST MAIL"

Chtěl jsem do toho taky přidat příjemce, příjemce kopie, předmět, a text ale nevím jak to tam zakomponovat

Víc by mi vyhovovalo, kdyby to makro bylo dostupné z excelu, ale když ho tam nakopíruju, tak mi vyhodí chybu "

***************************************

Děkuji

Pavel

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje