Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 10489 
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD diskuze, rady, výměna zkušeností

 
CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoexcel - odeslat link

 Odpovědět Odpovědět archiv
Autor
Rostislav Říha Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 03.říj.2004
Lokalita: ČR (Pha)
Používám:
ACA 2010
Stav: Offline
Bodů: 1613
Přímý odkaz na tuto zprávu Téma: excel - odeslat link
    Zasláno: 15.zář.2011 v 06:41
excel umí odeslat soubor jako přílohu mailu - prosím, nemáte někdo makro, které by umělo odeslat místo přílohy jen odkaz na cestu k souboru?
děkuji
Rostislav Říha
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21434
Přímý odkaz na tuto zprávu Zasláno: 15.zář.2011 v 18:05
Na to už vám nebude stačit vestavěná mailovací funkce a budete muset využít nějaké stávající mail-rozhraní. Příklad kódu pro Outlook (autor Ron de Bruin):
Sub Make_Outlook_Mail_With_File_Link()
'Working in Office 2000-2010
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    If ActiveWorkbook.Path <> "" Then
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        strbody = "<font size=""3"" face=""Calibri"">" & _
                  "Colleagues,<br><br>" & _
                  "I want to inform you that the next sales Order :<br><B>" & _
                  ActiveWorkbook.Name & "</B> is created.<br>" & _
                  "Click on this link to open the file : " & _
                  "<A HREF=""file://" & ActiveWorkbook.FullName & _
                  """>Link to the file</A>" & _
                  "<br><br>Regards," & _
                  "<br><br>Account Management</font>"
        On Error Resume Next
        With OutMail
            .To = "jan.novak@cadstudio.cz"
            .CC = ""
            .BCC = ""
            .Subject = ActiveWorkbook.Name
            .htmlBody = strbody
            .Display   'or use .Send
        End With
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    Else
        MsgBox "The ActiveWorkbook does not have a path, Save the file first."
    End If
End Sub
Vladimír Michl (moderátor)
Arkance Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru
Rostislav Říha Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 03.říj.2004
Lokalita: ČR (Pha)
Používám:
ACA 2010
Stav: Offline
Bodů: 1613
Přímý odkaz na tuto zprávu Zasláno: 15.zář.2011 v 19:00
makra v exlu moc neumím (jinak bych se neptal:), tak jsem tohle jen zkopíroval a zkusil pustit... jakmile se v exlu 2003 dostane na strbody=, tak se sekne...zkoušel jsem v té části něco mazat, ale trial+error nezafungovalo:) ... excel 2003 + outlook2007
Rostislav Říha
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21434
Přímý odkaz na tuto zprávu Zasláno: 15.zář.2011 v 19:52
Já myslím, že by to mělo fungovat i ve verzi 2003, nemám ji ale teď na vyzkoušení. Ověřte prosím ta podtržítka na konci řádků (uvozují pokračovací řádek jednoho příkazu), popř. pokračovací řádky slučte do jednoho.
Vladimír Michl (moderátor)
Arkance Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru
Rostislav Říha Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 03.říj.2004
Lokalita: ČR (Pha)
Používám:
ACA 2010
Stav: Offline
Bodů: 1613
Přímý odkaz na tuto zprávu Zasláno: 16.zář.2011 v 16:49
sloučil pokračovací řádky do jednoho a funguje! dík moc!
Rostislav Říha
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 13301:Proč mi Fusion 360 nenabízí funkci Share Public Link (Sdílet veřejný odkaz)?
Tip 8191:Chybějící fonty ve výkresu v AutoCAD 360.
Tip 9471:Problém připojení databáze do Navisworksu.
Tip 10904:VIPVault - ztráta asociace mezi položkou a souborem (Aktualizace)
Tip 9633:VIPNastavení spoje v AutoCAD Plant 3D (postup a principy)
Tip 3445:VIPNastavení pro automatický import databázových spojení při importu .DGN do Autodesk Mapu.


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,711 sekund.