Dobrý večer. To se vážně nenajde někdo kdo by mi mohl pomoci?
Děkujicitovat
Děkujicitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: hypertextový odkaz změna adresy
MS Excel
Téma: hypertextový odkaz změna adresy 
Zaslal/a Raders486 10.2.2021 8:34
Dobrý den.
Před odesláním emailu odkazuje hypertextový odkaz na síťové uložiště.
Po odeslání emailem se hypertextový odkaz odkazuje na lokální úložiště a ukáže se hláška, že odkaz nelze otevřít.
Náhled:
https://ibb.co/p3BQ7df
Vlevo zobrazuje obrázek odkaz na síťové uložení
Vpravo zobrazuje obrázek odkaz na lokální uložení po provedené proceduře.
Už nevím jak to lépe popsat.
Pro kopírování a vkládání používám:
rng.SpecialCells(xlCellTypeVisible).Copy
With NewWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End With
ale ani toto nepomáhá.
Celá procedura v příloze.
Používám jako rozdělovník akcí.
Mohl by se prosím na to někdo podívat?
Děkuji
Příloha: 
49781_rozdelovnik-akci-reklamace.rar (30kB, staženo 15x)
49781_rozdelovnik-akci-reklamace.rar (30kB, staženo 15x)Lugr, děkuji za snahu, ale článek na který mě odkazujete, nic neřeší.
Kopíruji pokaždé jiný hypertextový odkaz a pokaždé mám jiného adresáta do emailu.
Potřeboval bych jen vědět jak kopírovat a jak vložit hypertextový odkaz, aby nezměnil adresu ze serverové na lokál.
I tak děkujicitovat
Kopíruji pokaždé jiný hypertextový odkaz a pokaždé mám jiného adresáta do emailu.
Potřeboval bych jen vědět jak kopírovat a jak vložit hypertextový odkaz, aby nezměnil adresu ze serverové na lokál.
I tak děkujicitovat
Dajte Break na riadok s Kill...
Nastavte, aby to odoslalo mail na nejakú Vašu skúšobnú adresu (ja som použil zoznam.sk).
Makro stopnite.
Zostane Vám uložený súbor v tempe.
Stiahnite si prílohu zo skúšobného mailu.
Porovnajte súbor z mailu s tým čo je v tempe.
Mne to totiž funguje aj v tejto Vašej verzii.
Prípadne krokujte makro, a zistite, kedy sa odkaz zmení. Skúsil by som najskôr stopku na
Application.CutCopyMode = False
a
.SaveAs TempFilePath...
A uveďte ešte verziu Office.citovat
Nastavte, aby to odoslalo mail na nejakú Vašu skúšobnú adresu (ja som použil zoznam.sk).
Makro stopnite.
Zostane Vám uložený súbor v tempe.
Stiahnite si prílohu zo skúšobného mailu.
Porovnajte súbor z mailu s tým čo je v tempe.
Mne to totiž funguje aj v tejto Vašej verzii.
Prípadne krokujte makro, a zistite, kedy sa odkaz zmení. Skúsil by som najskôr stopku na
Application.CutCopyMode = False
a
.SaveAs TempFilePath...
A uveďte ešte verziu Office.citovat
Elninislov děkuji za reakci.
Office ze kterých je odesíláno je 2013 a 2016.
Co se krokování týká, krokoval jsem od If Rcount >= 2 Then, ale stejně jsem na nic nepřišel.
Napadá Vás prosím třeba jiný způsob jak rozesílat odkazy jednotlivě na konkrétní osoby tak, aby se ostatní nemuseli zaobírat řádky, které pro ně nejsou určeny?
Děkuji moc.citovat
Office ze kterých je odesíláno je 2013 a 2016.
Co se krokování týká, krokoval jsem od If Rcount >= 2 Then, ale stejně jsem na nic nepřišel.
Napadá Vás prosím třeba jiný způsob jak rozesílat odkazy jednotlivě na konkrétní osoby tak, aby se ostatní nemuseli zaobírat řádky, které pro ně nejsou určeny?
Děkuji moc.citovat
Tak som si prešiel jedno MS fórum, a vyzerá to žiaľ zatiaľ tak, že bezradný nie sme len my, ale i samotný M$. Problém je častý, a s typickými radami od M$ (rozumejte na prd).citovat
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