< návrat zpět

MS Excel


Téma: VBA outlook 2007 rss

Zaslal/a 4.8.2017 12:40

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

Příloha: 7z37107_sesit1.7z (10kB, staženo 29x)
Zaslat odpověď >

Strana:  1 2   další »
#037109
avatar
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
#037110
avatar
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 5

Děkuji
Radekcitovat
#037117
elninoslov
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.Application
citovat
#037119
avatar
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
icon #037120
eLCHa
@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
#037132
avatar
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
#037152
avatar
Tak jsem se k tomu dostal až teď a padá to na kroku
Set OutApp = CreateObject("Outlook.Application")

Děkuji
Radekcitovat
#037155
elninoslov
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
#037156
avatar
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
icon #037157
eLCHa
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 If
Nejdří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ší »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09