Mne to na Office 2016 funguje, tak ako chcete. Akú máte verziu, možno tam bude problém.
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Zaslání mailu z Exelu
Já tu mám 2013 a na stanicích co kolegyně pracují vzdáleně je 2007
a na obou se to zasekne pokut neběží.
MS Excel
Téma: Zaslání mailu z Exelu 
Zaslal/a Nomi 31.8.2017 13:55
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
Příloha: 
37464_mail.zip (49kB, staženo 47x)
37464_mail.zip (49kB, staženo 47x)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ěží.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?
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?
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.
...
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.
@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ář
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ář
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.
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.aspx
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).
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).
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?
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?
No a cez Envelope by to nemohlo byť (rondebruin) ?
Len to nepozná všetky formáty buniek, viď príklad.
Len to nepozná všetky formáty buniek, viď príklad.
Příloha: 38958_envelope.zip (18kB, staženo 35x)
38958_envelope.zip (18kB, staženo 35x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články