Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hyperlink auslesen und versenden

Hyperlink auslesen und versenden
Markus
Hallo zusammen,
ich möchte per VBA einen Hyperlink aus dem aktivem Sheet und der aktiven Zelle auslesen und an eine E-Mail (Lotus Notes) anhängen.
Makros, wo ich eine Datei oder einen Text anhängen kann habe ich gefunden, aber dies leider nicht.
Wie müßt das denn aussehen?
Danke Gruß Markus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Hyperlink auslesen und versenden
12.09.2012 12:59:32
UweD
Hallo
ist es das?

Sub HYP()
Dim ADD$
ADD = Selection.Hyperlinks(1).Address
End Sub
Gruß UweD

AW: Hyperlink auslesen und versenden
13.09.2012 08:57:38
Markus
nein, das ist es leider nicht, als Anhang mal der Auszug wie der Text eingefügt wird.
Statt des Textes hätte ich jetzt gern den Link aus der selektierten Zelle eingefügt.
Dim rtBody 'As NotesRichTextItem
Set rtBody = doc.CreateRichTextItem("body")
rtBody.appendText "Hier soll der Link stehen!"

AW: Hyperlink auslesen und versenden
13.09.2012 10:03:01
UweD
Hallo
Das war nur der Teil, wie die Hypadresse ausgelesen wird.
Das musst du noch in deine Senderoutine einbauen..
also ungefähr so
Sub Hyp()
Dim rtBody 'As NotesRichTextItem
Dim Add$
Set rtBody = doc.CreateRichTextItem("body")
Add = Selection.Hyperlinks(1).Address
rtBody.appendText Add
End Sub

Gruß UweD

Anzeige
AW: Hyperlink auslesen und versenden
13.09.2012 12:27:27
Markus
Super, danke so läuft es.
Gruß Markus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige