Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Mappenname als Link für Outlook | Herbers Excel-Forum


Betrifft: Mappenname als Link für Outlook von: {Boris}
Geschrieben am: 07.01.2010 12:51:37

Hi Leute,

ich erzeuge mit folgenden Codezeilen einen Link, den ich aus der Zwischenablage in eine Outlook-Mail einfügen kann:

Sub link()
Dim newDO As New DataObject
Dim s As String
s = "file://" & ActiveWorkbook.FullName
newDO.SetText s
newDO.PutInClipboard
Set newDO = Nothing
End Sub
In Outlook erscheint dann so was in der Art:

file://C:\ABC\Ordner1\Ordner2\Dateiname.xls

Ich möchte den Link aber gerne hinter ein Schlüsselwort legen, so wie es mit html machbar ist:

Guckst Du HIER

Kann man das realisieren? Wenn ja: Wie?

Danke vorab und

Grüße Boris

  

Betrifft: AW: Mappenname als Link für Outlook von: Hajo_Zi
Geschrieben am: 07.01.2010 12:54:48

Hallo Boris,

ist bei dem an den Du die Mail schickst die Datei an der gleichen Stelle?

GrußformelHomepage


  

Betrifft: Ja - sind immer an der gleichen Stelle oT von: {Boris}
Geschrieben am: 07.01.2010 14:03:05

Grüße Boris


  

Betrifft: Ich kapiere Deine Frage nicht !?! von: NoNet
Geschrieben am: 07.01.2010 13:32:33

Hey {Boris},

¿ meinst Du mit "Schlüsselwort" den angezeigten Text ?

Excelmässig so ausgedrückt : =HYPERLINK("C:\Temp\VerlinkteDatei.xls";"Schlüsselwort") ?

Gruß, NoNet


  

Betrifft: Rechtsklick auf den Link - Hyp.Bearbeiten von: NoNet
Geschrieben am: 07.01.2010 13:58:58

Hallo Boris,

hier eine bebilderte Anleitung aus MS Outlook 2010 beta (habe auf meinem produktiven PC hier bei der Arbeit leider/zum Glück kein Outlook installiert ;-) :



Gruß, NoNet


  

Betrifft: Um es ganz einfach zu formulieren von: {Boris}
Geschrieben am: 07.01.2010 14:19:47

Hi Nonet,

kann man diesen manuellen Vorgang noch in die VBA-Zeilen (sind Bestandteil eines AddIns) integrieren?
Der Anzeigetext könnte dann via Inputbox abgefragt werden.

Grüße Boris


  

Betrifft: Exakt so meine ich es... von: {Boris}
Geschrieben am: 07.01.2010 14:02:41

Hi Nonet,

...und ich möchte es eben NICHT über den von Dir im anderen Beitrag aufgezeigten Weg machen.
Gibt´s da ne Möglichkeit?

Danke und

Grüße Boris


  

Betrifft: AW: Mappenname als Link für Outlook von: mumpel
Geschrieben am: 07.01.2010 14:21:23

Hallo!

Wenn Du die Email direkt erstellst dann ist das kein Problem.


Sub MailMitLink()
Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
    .to = ""
    .htmlBody = "<a href=""" & ActiveWorkbook.FullName & _
                """>Hier herunterladen</a>"
    .display
End With
End Sub

Code eingefügt mit VBA in HTML 2.0


Gruß, René


  

Betrifft: Nachtrag von: mumpel
Geschrieben am: 07.01.2010 14:24:46

Wenn der Anzeigetext variabel sein soll dann so:


Sub MailMitLink()
Dim olApp As Object
Dim LinkText As String
LinkText = InputBox("Bitte Anzeigetext eingeben")
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
    .to = ""
    .htmlBody = "<a href=""" & ActiveWorkbook.FullName & _
                """>" & LinkText & "</a>"
    .display
End With
End Sub

Code eingefügt mit VBA in HTML 2.0



  

Betrifft: Klasse, das funktioniert... von: {Boris}
Geschrieben am: 07.01.2010 15:09:25

Hi Mumpel,

...einwandfrei :-)
Man muss anscheinend also direkt Outlook ansprechen - via "normaler" Zwischenablage kann man es wohl nicht generieren.

Danke und

Grüße Boris


  

Betrifft: OT: Schönes WE... von: Erich G.
Geschrieben am: 10.01.2010 12:34:40

Hi Boris,
..., an dem ich dir (mindestens) 10 freie Minuten wünsche!

(5 Minuten für deine Erholung und 5 Minuten für eine Antwort auf meine Anfrage vom letzten Jahr. ;-))

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


Beiträge aus den Excel-Beispielen zum Thema "Mappenname als Link für Outlook"