• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse