Již 10.000+ CAD tipů.
Přes 118.000 registrovaných u nás, celkem 1.091.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět ![]() |
archiv |
Autor | |
PopelkaM ![]() Zasloužilý člen ![]() Přihlášen: 05.čvc.2010 Lokalita: ČR (PA) Používám: Inventor 2023 Stav: Offline Bodů: 127 |
![]() Zasláno: 10.říj.2023 v 10:56 |
Dobrý den, lze do kódu níže dokončit operaci sdílení modelu a vygenerovaný link poslat určité osobě např. Outlookem? Snaha je zjednodušit a urychlit sdílení modelu. Děkuji za radu.... S pozdravem Popelka ------------------------------------------------------------------------------------------ Imports System.Windows.Forms Sub Main() Dim oCommandMgr As CommandManager oCommandMgr = ThisApplication.CommandManager Dim oControlDef As ControlDefinition oControlDef = oCommandMgr.ControlDefinitions.Item("cmdCreateViewShare") 'Generate shared view oControlDef.Execute2(False) SendKeys.SendWait("{TAB 4}{ENTER}") End Sub
|
|
![]() |
|
Vladimír Michl ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor ![]() ![]() Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 21889 |
![]() |
Poslat mail z iLogicu je celkem jednoduché (viz níže), ale ViewShare je samostatný modul (ne core aplikace), takže tam bude řízení iLogicem asi problém.
oOlApp = CreateObject("Outlook.Application") oOlMail = oOlApp.CreateItem(0) strbody = "<p style='font-family:calibri;font-size:16'>" & "Dobrý den," & "<br><br>" & vbNewLine & vbNewLine & _ "píši ohledně součásti " + iProperties.Value("Project", "Part Number") & "</p>" & vbNewLine With oOlMail .bodyformat=2 .To = "vladimir.michl@arkance-systems.com" .CC = "" .BCC = "" .Subject = "iLogic mail" .HTMLbody = strbody '.Attachments.Add (FilePath & "\" & File & ".jpg") '.Display .Send End With |
|
![]() |
|
PopelkaM ![]() Zasloužilý člen ![]() Přihlášen: 05.čvc.2010 Lokalita: ČR (PA) Používám: Inventor 2023 Stav: Offline Bodů: 127 |
![]() |
Dobrý den,
to je škoda, že to nejde... ![]() Byla by to docela dobrá funkce. Technologové by se podívali na model bez jakéhokoliv prohlížeče. Ten kdo by sdílel model by to měl pro vytvoření snadnější... Popelka
|
|
![]() |
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět ![]() |
|
Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,289 sekund.