Příspěvky uživatele

Formát buňky - text.

V nastavení toho Outlooku se někdo šťoural?
Normálně je soubor s emaily nazván Outlook.pst (u Tebe abc.pst) a je umístěn v profilu uživatele v dokumentech.
Cesta k Tvému souboru vede do cloudu (OneDrive)?
Není potřeba se k tomu cloudu nějak přihlásit?

Kód sem testoval na Office 2016 a Win7
a běhal bez problému.

Outlook máš taky z Office 2016?

Co znamená nejde?
Zobrazí se chybová hláška nebo se sekne na nějakém řádku?
Ten kód někdy fungoval?

Edit:
Co tento kód:
Option Explicit

Private Sub Send_mail_Click()

Dim Outapp As Outlook.Application
Dim Zprava As Outlook.MailItem
Dim PDF_path As String

'PDF_path = ActiveWorkbook.Path & "\logfile.txt" '"\Objednávka.pdf"

PDF_path = "C:\EXCEL\logfile.txt" '"\Objednávka.pdf"

'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF_path _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Set Outapp = New Outlook.Application
Set Zprava = Outapp.CreateItem(olMailItem)

On Error GoTo ERR1

With Zprava
.BodyFormat = olFormatPlain 'format mailu
.Display 'zobrazit okno
.To = Range("b1") 'adresát
.Subject = Range("b2") 'předmět
.Body = Range("b3") 'obsah
.Attachments.Add PDF_path 'příloha
.CC = Range("b4") 'kopie mailu
.Send 'odeslat
End With
GoTo konec
ERR1:
MsgBox "e-mai nebyl odeslán, něco je špatně", vbCritical, "CHYBA !!!"
MsgBox PDF_path
Zprava.Close olDiscard

konec:
End Sub

Při testování jsem měl hodnoty (To, Subject, Body) přímo v kódu. K jednotlivým buňkám si doplň i odkaz na konkrétní list.

Samozřejmě v Tool -> References musí bít vybrána příslušná knihovna (Microsoft Outlook xx.x Object Library).

Použit maticový vzorec. Jeho zadání se ukončí CTRL+SHIFT+ENTER

CZ Excel?

=MOD(ŘÁDEK();2)=0

Půjčil sem si Lugrův soubor a upravil načítání jmen do Ověření dat.

Maticový vzorec, jeho zadání se ukončí trojkombinací CTRL+SHIFT+ENTER

Dobře, budu za blba, ale zeptám se. Proč kolekce?

Na to by stačilo pole a zbavíš se jednoho cyklu nebo další variantou je Slovník (Dictionary) s funkcí Exists.

Použil sem soubor co vkládal Jirka a doplnil kód pro Pole a Slovník, trochu sem upravil i tu kolekci (v proměnné byl překlep).

Pokud by si u slovníku použil včasnou vazbu, můžeš využít výhod Intellisense
https://excelmacromastery.com/vba-dictionary/

Vyzkoušej tohle, snad Ti to bude fungovat podle představ.

Přesně jak píše kolega výše.

Z toho popisu co si sem dával, sem pochopil, že se sešit do kterého se výsledky kopírují nemá zavírat, ale zůstat otevřený, proto ta kontrola počtu spuštěných instancí.

Pokud by se sešít zavíral "ručně" a opětovně otevíral přes makro budou instance excelu stále viset v paměti.

Pokud se má tedy soubor, do kterého se kopíruje zavírat, nejjednodušší to bude udělat přímo v kódu a při tom i odstřelit "druhou" instanci

Tak tady to máš.
Musel sem se zbavit i ovládacích prvků na výběr jména a místa zaměstnání. Nelíbil se jim skrytý list Data na který byly navázány.
Zvolil sem cestu nejmenšího odporu a nahradil je za Ověření dat.

Jinak v kódu se používají "CodeName" listů, to jsou ty jména, která vidíš v editoru VBA mimo závorky u jednotlivých listů. Je to z toho důvodu, pokud by došlo do budoucna k přejmenování jednotlivých listů, kód bude stále funkční.

Jediné co musí být dodrženo je jméno souboru shodné z konstantou v modulu mod_Nastaveni

Pokud tedy provedeš přejmenování souboru, změň jméno i u konstanty !!!

Prozatím jen vyměněny optionbuttony z prvků formuláře za ActiveX + kód.
Když vybereš nějaký optionbutton ze skupiny, další dva se zakážou.

V Module2 je resetovací kód.

Ve skupině A je popisek součástí optionbuttonu v dalších skupinách je součástí buněk (jak si původně měl).

Dej vědět co více vyhovuje.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje