MS Excel

Ahoj.

Když už se automaticky spouští úloha v Excelu, chtěl bych, aby se i výsledek automaticky odesílal.

K tomu jsem si našel přiložený VBA kód.

Problém mám v tom, že na noťasu kde mám office 2016 to jede bez problémů, ale pokud to chci hodit na firemní PC kde je office 2007 tak vyhodí chybu, procedura spadne viz obrázek.

Našel jsem zde podobné téma, ale to můj problém nevyřešilo.

Pomůže prosím někdo?

http://imgur.com/K4mZYJz

Děkuji
Radek

Zaslat odpověď >

Strana: 1 2 další »

Pavlus(4.8.2017 13:08)#037109

Ahoj,
nevím, jestli to bude tvůj případ, ale u nás kdysi něco podobného dělal antivirový program (bylo nutné upravit nastavení).
P.citovat

Raders486(4.8.2017 13:15)#037110

Děkuji za rychlou reakci.
Antivir jsem odebral aby se nerozběhl po spuštění PC, PC restartoval.

Tížený výsledek se však nedostavil

Děkuji
Radekcitovat

elninoslov(4.8.2017 14:15)#037117

Tipujem na:
1. Chýbajúca referencia na "Microsoft Outlook xx.x Object Library"
2. Rozdielnu deklaráciu triedy (ktorú treba ošetriť pomocou
podľa Application.Version) napr.:
Dim objOL as Object
Set objOL = CreateObject("Outlook.Application")
vs
Dim objOL as Outlook.Application
Set objOL = New Outlook.Applicationcitovat

Raders486(4.8.2017 14:23)#037119

Elninoslov děkuji za reakci, ale tomu už nerozumím vůbec.

Mohl by jsi být konkrétnější co čím nahradit?

Děkuji
Radekcitovat

eLCHa(4.8.2017 14:33)#037120

@elninoslov
Já sice nemám Office 2016 a vše se vyvíjí, ale když použiju CreateObject tak přece nepotřebuji reference

@RK
Odkrokujte a zjistěte, na kterém řádku to padá.citovat

Raders486(4.8.2017 16:36)#037132

Ono tady ani tak nejde o Outlook 2016 jak o Outlook 2007.

Jinak v odkaze je obrázek akorát jsem si nevšiml že není podtrzeny krok na kterém to spadlo. Je to první řádek po zadimovani.
Set OppApp = createobject...

Omlouvám se píší z mobilu.

Děkujicitovat

Raders486(5.8.2017 17:21)#037152

Tak jsem se k tomu dostal až teď a padá to na kroku
Set OutApp = CreateObject("Outlook.Application")

Děkuji
Radekcitovat

elninoslov(5.8.2017 22:02)#037155

Ale to vieme už od začiatku, to je tak nejak jasné.
Vyskúšal ste niektorú z tých 2 vecí čo som písal ?
1. Tools - References - zaškrtnúť "Microsoft Outlook xx.x Object Library" - OK

2. vymente riadky
Dim OutApp as Object
Set OutApp = CreateObject("Outlook.Application")
za riadky
Dim OutApp as Outlook.Application
Set OutApp = New Outlook.Application

Ak to prejde v prípade 1. - tak OK, ak to prejde v prípade 2. tak skúsime dorobiť podmienenú deklaráciu premennej a jej priradenie podľa verzie Office.citovat

Raders486(6.8.2017 8:17)#037156

Jo tak. Jsem méně chápavější tak se omlouvám.

Jinak jsem vyměnil dle instrukce a opět to spadne viz obrázek

http://imgur.com/TAZmNY4.citovat

eLCHa(6.8.2017 9:15)#037157

Z referencemi to nemá nic společného.

Máte při spuštění kódu Outlook spuštěný nebo ne? CreateObject vytváří novou instanci a to může dělat problémy.
Zkuste nahradit tímto.Dim OutApp As Object
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
End IfNejdříve otestuje otevřenou instanci a k ní se připojí. Pokud není, pak vytvoří novou.

Obrázky nedávejte na externí server, lze je zde uložit jako přílohu.citovat

Strana: 1 2 další »

Téma: VBA outlook 2007

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje