MS Excel

Zdravím, mám dotaz ohledně zaslání mailu rovnou z Exelu.
Jde o to že občas toto makro využije člověk kde nebude mít spuštěn Outlook.
Makro co mám a funguje dobře jen musím mít puštěn outlook jinak se zasekne. Do makra mohu přidat příkaz:
Shell ("OUTLOOK.EXE")
Ale né že by to nějak extra vadilo, ale spustí outlook i na počítači kde již je spuštěn a toto makro se občas pouští i několikrát tak že by se i poté při každém spuštění otevřel a spustil další.

Tak se chci zeptat zda jde nějak aby se případně Outlook spustil, ale jen pokut neběží, či jinak toto odejít aby se mail odeslal i když nebude spuštěn.

Pro jistotu přikládám na ukázku makro

Zaslat odpověď >

elninoslov(31.8.2017 14:37)#037466

Mne to na Office 2016 funguje, tak ako chcete. Akú máte verziu, možno tam bude problém.citovat

Nomi(31.8.2017 15:15)#037468

elninoslov napsal/a:

Mne to na Office 2016 funguje, tak ako chcete. Akú máte verziu, možno tam bude problém.

Já tu mám 2013 a na stanicích co kolegyně pracují vzdáleně je 2007

a na obou se to zasekne pokut neběží.citovat

lopi007(31.8.2017 15:37)#037470

Otestujte zda je outlook spuštěn:

Sub TestOutlookIsOpen()
Dim oOutlook As Object

On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0

If oOutlook Is Nothing Then
'tady ho spustite
Else
'tady zapiste co chcete udelat pokud bezi
End If
End Sub

A jen tak pro zajímavost co když bude na PC např. Thnunderbird?

citovat

elninoslov(31.8.2017 16:07)#037473

lopi007: on testuje či je Outlook otovrený obdobne:
...
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
IsCreated = True
End If
OutlApp.Visible = True
On Error GoTo 0
...

Nomi: "...se to zasekne..." - Na ktorom riadku ?

Skôr si myslím, že je problém v tom čo sa tu spomínalo len pár týždňov dozadu (sa mi nechce hľadať tú tému), a to, že staršie Office pristupujú k obj. modelu Outlook inak.

Dim objOL as Object
Set objOL = CreateObject("Outlook.Application")
vs
Dim objOL as Outlook.Application
Set objOL = New Outlook.Application

Prípadne pridať referenciu na Microsoft Outlook xx.x Object Library.citovat

Nomi(1.9.2017 14:36)#037500

@elninoslov
Zasekne se nechápu proč na řádku připojování přílohy (to jsme kontroloval a ta je na disku vytvořená)

.Attachments.Add PdfFile

Zkusil jsem postup co jsi psal včetně přidání reference a nepomohlo.

@lopi007 ve firmě se používá všude Outlook tak že toto neřeším ;o)

Vyřešeno tím že jsem poprosil Správce sítě aby nastavily na farmě spuštění Outlooku po startu - tak snad lidi nebudou zavírat stejně by si ho měli pouštět aď pro řešení mailů tak případné sdílené úkoly a kalendářcitovat

TLOU(5.1.2018 14:30)#038917

Zdravím, nechci zakládat nové vlákno. Byl by někdo ochotný toto makro upravit tak, aby se nevkládala příloha, ale připojilo by se to přímo do těla zprávy jako obrázek. Díky moc.citovat

Vovka(5.1.2018 20:29)#038919

Již dlouho používám pro zasílání e-mailů z Excelu (i s více adresáty a s přílohami) proceduru od C.Pearsona, která se obejde bez služeb Outlooku. Bližší informace lze nalézt na http://www.cpearson.com/excel/Email.aspxcitovat

xlnc(5.1.2018 22:12)#038920

Věčné téma...

https://proexcel.cz/jak-odeslat-e-mail-z-excelu/

"Umístilo by se to" je formulace hodná pár facek. Ono by se to nepoto, kdybyste formuloval, co by jako to tamto se to.

Umístit obsah do těla (Body) je možné (text, HTML).
Umístit řekněme náhled na buňky jako obrázek jde také. Už to ale začne být trochu problematické (práce se schránkou).citovat

TLOU(6.1.2018 13:15)#038923

Promiňte, strašně se omlouvám, jsem jen hloupý BFU, co se neumí ani pořádně zeptat a zasloužil by pár facek...
Zeptal jsem se laicky, že nechci přílohu, ale připojení do těla zprávy jako obrázek. OK po vašem tedy: náhled určitých buněk jako obrázek. V tomto konkrétním případě z listu "Servis" výběr A1:C2. A můžeme si klidně tykat nebo zde na foru je to jinak?citovat

elninoslov(9.1.2018 10:47)#038958

No a cez Envelope by to nemohlo byť (rondebruin) ?
Len to nepozná všetky formáty buniek, viď príklad.

Příloha: zip